annotate src/keyboard.c @ 17783:1a6cc382caff

Move bindings.el after mule-conf.el. Load mule and mule-conf before simple.
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 May 1997 23:20:55 +0000
parents f20c2a909ad3
children abc5e3a73109
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.
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
2 Copyright (C) 1985,86,87,88,89,93,94,95,96,97 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
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14079
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14079
diff changeset
19 Boston, MA 02111-1307, USA. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 /* Allow config.h to undefine symbols found here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 #include <signal.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4600
diff changeset
24 #include <config.h>
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #include <stdio.h>
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"
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
35 #include "charset.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 #include "disptab.h"
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
37 #include "dispextern.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 #include "keyboard.h"
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
39 #include "intervals.h"
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
40 #include "blockinput.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 #include <setjmp.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 #include <errno.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
44 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
45 #include "msdos.h"
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
46 #include <time.h>
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
47 #else /* not MSDOS */
562
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
48 #ifndef VMS
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
49 #include <sys/ioctl.h>
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
50 #endif
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
51 #endif /* not MSDOS */
562
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
52
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
53 #include "syssignal.h"
1046
d4b1e5db2b2a * keyboard.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents: 1008
diff changeset
54 #include "systty.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55
7727
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
56 /* This is to get the definitions of the XK_ symbols. */
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
57 #ifdef HAVE_X_WINDOWS
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
58 #include "xterm.h"
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
59 #endif
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
60
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
61 #ifdef HAVE_NTGUI
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
62 #include "w32term.h"
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
63 #endif /* HAVE_NTGUI */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
64
7807
cd93cee36101 (modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents: 7787
diff changeset
65 /* Include systime.h after xterm.h to avoid double inclusion of time.h. */
cd93cee36101 (modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents: 7787
diff changeset
66 #include "systime.h"
cd93cee36101 (modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents: 7787
diff changeset
67
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 extern int errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
70 /* 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
71
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
72 /* 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
73 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
74
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
75 /* 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
76 during the current critical section. */
2481
a7a0f89c1f64 * keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents: 2439
diff changeset
77 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
78
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
79
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
80 /* File descriptor to use for input. */
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
81 extern int input_fd;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
83 #ifdef HAVE_WINDOW_SYSTEM
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84 /* Make all keyboard buffers much bigger when using X windows. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 #define KBD_BUFFER_SIZE 4096
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 #else /* No X-windows, character input */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 #define KBD_BUFFER_SIZE 256
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 #endif /* No X-windows */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 /* Following definition copied from eval.c */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 struct backtrace
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 struct backtrace *next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 Lisp_Object *function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96 Lisp_Object *args; /* Points to vector of args. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 int nargs; /* length of vector. If nargs is UNEVALLED,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 args points to slot holding list of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 unevalled args */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 char evalargs;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
103 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
104 KBOARD *initial_kboard;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
105 KBOARD *current_kboard;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
106 KBOARD *all_kboards;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
107 int single_kboard;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
108 #else
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
109 KBOARD the_only_kboard;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
110 #endif
10551
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
111
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 /* Non-nil disable property on a command means
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 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
114 Lisp_Object Qdisabled, Qdisabled_command_hook;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 #define NUM_RECENT_KEYS (100)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 int recent_keys_index; /* Index for storing next element into recent_keys */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 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
119 Lisp_Object recent_keys; /* A vector, holding the last 100 keystrokes */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
121 /* 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
122 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
123 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
124 actually mean something.
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
125 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
126 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
127 int this_command_key_count;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
129 /* Number of elements of this_command_keys
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
130 that precede this key sequence. */
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
131 int this_single_command_key_start;
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
132
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
133 /* Record values of this_command_key_count and echo_length ()
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
134 before this command was read. */
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
135 static int before_command_key_count;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
136 static int before_command_echo_length;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
137 /* Values of before_command_key_count and before_command_echo_length
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
138 saved by reset-this-command-lengths. */
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
139 static int before_command_key_count_1;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
140 static int before_command_echo_length_1;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
141 /* Flag set by reset-this-command-lengths,
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
142 saying to reset the lengths when add_command_key is called. */
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
143 static int before_command_restore_flag;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
144
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 extern int minbuf_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 extern struct backtrace *backtrace_list;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 /* Nonzero means do menu prompting. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 static int menu_prompting;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 /* Character to see next line of menu prompt. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 static Lisp_Object menu_prompt_more_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 /* For longjmp to where kbd input is being done. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 static jmp_buf getcjmp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 /* True while doing kbd input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 int waiting_for_input;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 /* True while displaying for echoing. Delays C-g throwing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162 static int echoing;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163
13267
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
164 /* True means we can start echoing at the next input pause
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
165 even though there is something in the echo area. */
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
166 static char *ok_to_echo_at_next_pause;
13267
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
167
9396
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
168 /* Nonzero means disregard local maps for the menu bar. */
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
169 static int inhibit_local_menu_bar_menus;
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
170
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
171 /* Nonzero means C-g should cause immediate error-signal. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 int immediate_quit;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 /* 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
175 Lisp_Object Vhelp_char;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
177 /* List of other event types to recognize as meaning "help". */
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
178 Lisp_Object Vhelp_event_list;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
179
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 /* Form to execute when help char is typed. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 Lisp_Object Vhelp_form;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
183 /* 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
184 Lisp_Object Vprefix_help_command;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
185
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
186 /* 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
187 Lisp_Object Vmenu_bar_final_items;
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
188
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
189 /* Non-nil means show the equivalent key-binding for
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
190 any M-x command that has one.
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
191 The value can be a length of time to show the message for.
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
192 If the value is non-nil and not a number, we wait 2 seconds. */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
193 Lisp_Object Vsuggest_key_bindings;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
194
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 /* Character that causes a quit. Normally C-g.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 If we are running on an ordinary terminal, this must be an ordinary
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 ASCII char, since we want to make it our interrupt character.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 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
201 an ordinary ASCII char. This character needs to be recognized in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 the input interrupt handler. At this point, the keystroke is
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 represented as a struct input_event, while the desired quit
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 character is specified as a lispy event. The mapping from struct
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 input_events to lispy events cannot run in an interrupt handler,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206 and the reverse mapping is difficult for anything but ASCII
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207 keystrokes.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 FOR THESE ELABORATE AND UNSATISFYING REASONS, quit_char must be an
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 ASCII character. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 int quit_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 extern Lisp_Object current_global_map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 extern int minibuf_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
216 /* If non-nil, this is a map that overrides all other local maps. */
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
217 Lisp_Object Voverriding_local_map;
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
218
9607
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
219 /* If non-nil, Voverriding_local_map applies to the menu bar. */
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
220 Lisp_Object Voverriding_local_map_menu_flag;
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
221
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
222 /* Keymap that defines special misc events that should
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
223 be processed immediately at a low level. */
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
224 Lisp_Object Vspecial_event_map;
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
225
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 /* Current depth in recursive edits. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 int command_loop_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 /* Total number of times command_loop has read a key sequence. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 int num_input_keys;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 /* Last input character read as a command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233 Lisp_Object last_command_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
235 /* 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
236 reached by the mouse. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
237 Lisp_Object last_nonmenu_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
238
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239 /* Last input character read for any purpose. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 Lisp_Object last_input_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
242 /* If not Qnil, a list of objects to be read as subsequent command input. */
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
243 Lisp_Object Vunread_command_events;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
245 /* 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
246 int unread_command_char;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
247
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
248 /* 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
249 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
250 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
251
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
252 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
253 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
254 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
255 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
256
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
257 /* 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
258 int extra_keyboard_modifiers;
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
259
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 /* Char to use as prefix when a meta character is typed in.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 This is bound on entry to minibuffer in case ESC is changed there. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 Lisp_Object meta_prefix_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 /* Last size recorded for a current buffer which is not a minibuffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 static int last_non_minibuf_size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267
687
e2b747dd6a6e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 682
diff changeset
268 /* Number of idle seconds before an auto-save and garbage collection. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 static Lisp_Object Vauto_save_timeout;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 /* Total number of times read_char has returned. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 int num_input_chars;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
274 /* 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
275 int num_nonmacro_input_chars;
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
276
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 /* Auto-save automatically when this many characters have been typed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 since the last time. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 static int auto_save_interval;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
282 /* Value of num_nonmacro_input_chars as of last auto save. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 int last_auto_save;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 /* The command being executed by the command loop.
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
287 Commands may set this, and the value set will be copied into
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
288 current_kboard->Vlast_command instead of the actual command. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 Lisp_Object this_command;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290
6178
ad3864a4e0bc (command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents: 6159
diff changeset
291 /* The value of point when the last command was executed. */
ad3864a4e0bc (command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents: 6159
diff changeset
292 int last_point_position;
ad3864a4e0bc (command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents: 6159
diff changeset
293
7345
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
294 /* The buffer that was current when the last command was started. */
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
295 Lisp_Object last_point_position_buffer;
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
296
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
297 /* The frame in which the last input event occurred, or Qmacro if the
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
298 last event came from a macro. We use this to determine when to
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
299 generate switch-frame events. This may be cleared by functions
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
300 like Fselect_frame, to make sure that a switch-frame event is
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
301 generated by the next character. */
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
302 Lisp_Object internal_last_event_frame;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
303
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
304 /* A user-visible version of the above, intended to allow users to
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
305 figure out where the last event came from, if the event doesn't
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
306 carry that information itself (i.e. if it was a character). */
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
307 Lisp_Object Vlast_event_frame;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
308
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
309 /* 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
310 X Windows wants this for selection ownership. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 unsigned long last_event_timestamp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 Lisp_Object Qself_insert_command;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 Lisp_Object Qforward_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 Lisp_Object Qbackward_char;
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
316 Lisp_Object Qundefined;
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
317 Lisp_Object Qtimer_event_handler;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 /* read_key_sequence stores here the command definition of the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 key sequence that it reads. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 Lisp_Object read_key_sequence_cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 /* Form to evaluate (if non-nil) when Emacs is started. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 Lisp_Object Vtop_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 /* User-supplied string to translate input characters through. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 Lisp_Object Vkeyboard_translate_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 /* Keymap mapping ASCII function key sequences onto their preferred forms. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 extern Lisp_Object Vfunction_key_map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331
12712
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
332 /* Another keymap that maps key sequences into key sequences.
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
333 This one takes precedence over ordinary definitions. */
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
334 extern Lisp_Object Vkey_translation_map;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
335
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
336 /* 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
337 Lisp_Object Vdeactivate_mark;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
338
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
339 /* 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
340
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
341 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
342 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
343
16834
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
344 Lisp_Object Qecho_area_clear_hook;
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
345
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
346 /* Hooks to run before and after each command. */
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
347 Lisp_Object Qpre_command_hook, Vpre_command_hook;
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
348 Lisp_Object Qpost_command_hook, Vpost_command_hook;
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
349 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal;
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
350 /* Hook run after a command if there's no more input soon. */
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
351 Lisp_Object Qpost_command_idle_hook, Vpost_command_idle_hook;
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
352
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
353 /* Delay time in microseconds before running post-command-idle-hook. */
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
354 int post_command_idle_delay;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
355
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
356 /* List of deferred actions to be performed at a later time.
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
357 The precise format isn't relevant here; we just check whether it is nil. */
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
358 Lisp_Object Vdeferred_action_list;
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
359
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
360 /* Function to call to handle deferred actions, when there are any. */
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
361 Lisp_Object Vdeferred_action_function;
10070
def41008c136 (command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents: 10060
diff changeset
362 Lisp_Object Qdeferred_action_function;
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
363
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 /* File in which we write all commands we read. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 FILE *dribble;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 /* Nonzero if input is available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368 int input_pending;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
370 /* 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
371 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
372
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 int meta_key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 extern char *pending_malloc_warning;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
377 /* Circular buffer for pre-read keyboard input. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
378 static struct input_event kbd_buffer[KBD_BUFFER_SIZE];
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
379
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
380 /* Vector to GCPRO the frames and windows mentioned in kbd_buffer.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
381
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
382 The interrupt-level event handlers will never enqueue an event on a
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
383 frame which is not in Vframe_list, and once an event is dequeued,
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
384 internal_last_event_frame or the event itself points to the frame.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
385 So that's all fine.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
386
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
387 But while the event is sitting in the queue, it's completely
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
388 unprotected. Suppose the user types one command which will run for
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
389 a while and then delete a frame, and then types another event at
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
390 the frame that will be deleted, before the command gets around to
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
391 it. Suppose there are no references to this frame elsewhere in
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
392 Emacs, and a GC occurs before the second event is dequeued. Now we
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
393 have an event referring to a freed frame, which will crash Emacs
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
394 when it is dequeued.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
395
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
396 Similar things happen when an event on a scroll bar is enqueued; the
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
397 window may be deleted while the event is in the queue.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
398
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
399 So, we use this vector to protect the frame_or_window field in the
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
400 event queue. That way, they'll be dequeued as dead frames or
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
401 windows, but still valid lisp objects.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
402
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
403 If kbd_buffer[i].kind != no_event, then
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
404 (XVECTOR (kbd_buffer_frame_or_window)->contents[i]
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
405 == kbd_buffer[i].frame_or_window. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
406 static Lisp_Object kbd_buffer_frame_or_window;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
407
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
408 /* Pointer to next available character in kbd_buffer.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
409 If kbd_fetch_ptr == kbd_store_ptr, the buffer is empty.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
410 This may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the the
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
411 next available char is in kbd_buffer[0]. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
412 static struct input_event *kbd_fetch_ptr;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
413
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
414 /* Pointer to next place to store character in kbd_buffer. This
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
415 may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the next
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
416 character should go in kbd_buffer[0]. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
417 static volatile struct input_event *kbd_store_ptr;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
418
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
419 /* The above pair of variables forms a "queue empty" flag. When we
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
420 enqueue a non-hook event, we increment kbd_store_ptr. When we
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
421 dequeue a non-hook event, we increment kbd_fetch_ptr. We say that
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
422 there is input available iff the two pointers are not equal.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
423
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
424 Why not just have a flag set and cleared by the enqueuing and
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
425 dequeuing functions? Such a flag could be screwed up by interrupts
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
426 at inopportune times. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
427
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
428 /* If this flag is non-nil, we check mouse_moved to see when the
9618
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
429 mouse moves, and motion events will appear in the input stream.
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
430 Otherwise, mouse motion is ignored. */
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
431 static Lisp_Object do_mouse_tracking;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433 /* Symbols to head events. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 Lisp_Object Qmouse_movement;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
435 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
436 Lisp_Object Qswitch_frame;
9215
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
437 Lisp_Object Qdelete_frame;
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
438 Lisp_Object Qiconify_frame;
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
439 Lisp_Object Qmake_frame_visible;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
440
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 /* Symbols to denote kinds of events. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 Lisp_Object Qfunction_key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 Lisp_Object Qmouse_click;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444 /* Lisp_Object Qmouse_movement; - also an event header */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 /* Properties of event headers. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447 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
448 Lisp_Object Qevent_symbol_elements;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
450 Lisp_Object Qmenu_enable;
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
451
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
452 /* 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
453 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
454 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
455 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
456 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
457 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
458
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
459 /* 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
460 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
461 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
462 apply_modifiers. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
463 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
464
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
465 /* Symbols to use for parts of windows. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 Lisp_Object Qmode_line;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
467 Lisp_Object Qvertical_line;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
468 Lisp_Object Qvertical_scroll_bar;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
469 Lisp_Object Qmenu_bar;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
470
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
471 extern Lisp_Object Qmenu_enable;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
473 Lisp_Object recursive_edit_unwind (), command_loop ();
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
474 Lisp_Object Fthis_command_keys ();
4773
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
475 Lisp_Object Qextended_command_history;
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
476 EMACS_TIME timer_check ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
478 extern char *x_get_keysym_name ();
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
479
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
480 static void record_menu_key ();
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
481
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
482 Lisp_Object Qpolling_period;
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
483
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
484 /* List of absolute timers. Appears in order of next scheduled event. */
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
485 Lisp_Object Vtimer_list;
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
486
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
487 /* List of idle time timers. Appears in order of next scheduled event. */
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
488 Lisp_Object Vtimer_idle_list;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
489
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
490 /* Incremented whenever a timer is run. */
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
491 int timers_run;
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
492
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
493 extern Lisp_Object Vprint_level, Vprint_length;
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
494
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
495 /* 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
496 happens. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
497 EMACS_TIME *input_available_clear_time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 /* Nonzero means use SIGIO interrupts; zero means use CBREAK mode.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 Default is 1 if INTERRUPT_INPUT is defined. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 int interrupt_input;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 /* Nonzero while interrupts are temporarily deferred during redisplay. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 int interrupts_deferred;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
506 /* Nonzero means use ^S/^Q for flow control. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 int flow_control;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 /* Allow m- file to inhibit use of FIONREAD. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 #ifdef BROKEN_FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511 #undef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 /* We are unable to use interrupts if FIONREAD is not available,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 so flush SIGIO so we won't try. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 #ifndef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 #undef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
522 /* If we support a window system, turn on the code to poll periodically
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
523 to detect C-g. It isn't actually used when doing interrupt input. */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
524 #ifdef HAVE_WINDOW_SYSTEM
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 #define POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 /* Global variable declarations. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 /* Function for init_keyboard to call with no args (if nonzero). */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 void (*keyboard_init_hook) ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 static int read_avail_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 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
535 static int readable_events ();
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
536 static Lisp_Object read_char_x_menu_prompt ();
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
537 static Lisp_Object read_char_minibuf_menu_prompt ();
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
538 static Lisp_Object make_lispy_event ();
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
539 #ifdef HAVE_MOUSE
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
540 static Lisp_Object make_lispy_movement ();
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
541 #endif
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
542 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
543 static Lisp_Object make_lispy_switch_frame ();
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
544 static int parse_solitary_modifier ();
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 /* > 0 if we are to echo keystrokes. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 static int echo_keystrokes;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548
6101
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
549 /* Nonzero means don't try to suspend even if the operating system seems
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
550 to support it. */
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
551 static int cannot_suspend;
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
552
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553 #define min(a,b) ((a)<(b)?(a):(b))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 #define max(a,b) ((a)>(b)?(a):(b))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 /* Install the string STR as the beginning of the string of echoing,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 so that it serves as a prompt for the next character.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 Also start echoing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 echo_prompt (str)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
561 char *str;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 int len = strlen (str);
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
564
10579
a7796a68f001 * keyboard.c (kbd_buffer_frame_or_window): Delete; now in perdisplay.
Karl Heuer <kwzh@gnu.org>
parents: 10551
diff changeset
565 if (len > ECHOBUFSIZE - 4)
a7796a68f001 * keyboard.c (kbd_buffer_frame_or_window): Delete; now in perdisplay.
Karl Heuer <kwzh@gnu.org>
parents: 10551
diff changeset
566 len = ECHOBUFSIZE - 4;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
567 bcopy (str, current_kboard->echobuf, len);
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
568 current_kboard->echoptr = current_kboard->echobuf + len;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
569 *current_kboard->echoptr = '\0';
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
570
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
571 current_kboard->echo_after_prompt = len;
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
572
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
573 echo_now ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
576 /* Add C to the echo string, if echoing is going on.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577 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
578 jazz), or a symbol, whose name is printed. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580 echo_char (c)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581 Lisp_Object c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 extern char *push_key_description ();
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
584
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
585 if (current_kboard->immediate_echo)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
587 char *ptr = current_kboard->echoptr;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
588
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
589 if (ptr != current_kboard->echobuf)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 *ptr++ = ' ';
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 /* 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
593 c = EVENT_HEAD (c);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
595 if (INTEGERP (c))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
597 if (ptr - current_kboard->echobuf > ECHOBUFSIZE - 6)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
600 ptr = push_key_description (XINT (c), ptr);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
602 else if (SYMBOLP (c))
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 struct Lisp_String *name = XSYMBOL (c)->name;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
605 if ((ptr - current_kboard->echobuf) + name->size + 4 > ECHOBUFSIZE)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 bcopy (name->data, ptr, name->size);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 ptr += name->size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
611 if (current_kboard->echoptr == current_kboard->echobuf
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
612 && help_char_p (c))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 strcpy (ptr, " (Type ? for further options)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 ptr += strlen (ptr);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
617
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618 *ptr = 0;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
619 current_kboard->echoptr = ptr;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
621 echo_now ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 /* 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
626 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
627
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 echo_dash ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
630 if (!current_kboard->immediate_echo
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
631 && current_kboard->echoptr == current_kboard->echobuf)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632 return;
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
633 /* Do nothing if we just printed a prompt. */
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
634 if (current_kboard->echo_after_prompt
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
635 == current_kboard->echoptr - current_kboard->echobuf)
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
636 return;
2505
c0a13d078f68 * keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents: 2482
diff changeset
637 /* Do nothing if not echoing at all. */
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
638 if (current_kboard->echoptr == 0)
2505
c0a13d078f68 * keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents: 2482
diff changeset
639 return;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
640
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
641 /* Put a dash at the end of the buffer temporarily,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
642 but make it go away when the next character is added. */
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
643 current_kboard->echoptr[0] = '-';
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
644 current_kboard->echoptr[1] = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
645
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
646 echo_now ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
649 /* Display the current echo string, and begin echoing if not already
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
650 doing so. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
652 echo_now ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
654 if (!current_kboard->immediate_echo)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
655 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 int i;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
657 current_kboard->immediate_echo = 1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 for (i = 0; i < this_command_key_count; i++)
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
660 {
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
661 Lisp_Object c;
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
662 c = XVECTOR (this_command_keys)->contents[i];
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
663 if (! (EVENT_HAS_PARAMETERS (c)
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
664 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement)))
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
665 echo_char (c);
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
666 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
667 echo_dash ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670 echoing = 1;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
671 message1_nolog (current_kboard->echobuf);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672 echoing = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674 if (waiting_for_input && !NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 /* Turn off echoing, for the start of a new command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680 cancel_echoing ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
681 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
682 current_kboard->immediate_echo = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
683 current_kboard->echoptr = current_kboard->echobuf;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
684 current_kboard->echo_after_prompt = -1;
13267
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
685 ok_to_echo_at_next_pause = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688 /* Return the length of the current echo string. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
690 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 echo_length ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
693 return current_kboard->echoptr - current_kboard->echobuf;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 /* Truncate the current echo message to its first LEN chars.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 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
698 switches frames while entering a key sequence. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 static void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 echo_truncate (len)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
702 int len;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
703 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
704 current_kboard->echobuf[len] = '\0';
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
705 current_kboard->echoptr = current_kboard->echobuf + len;
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
706 truncate_echo_area (len);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
707 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710 /* Functions for manipulating this_command_keys. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 static void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 add_command_key (key)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 Lisp_Object key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 {
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
715 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
716
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
717 /* If reset-this-command-length was called recently, obey it now.
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
718 See the doc string of that function for an explanation of why. */
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
719 if (before_command_restore_flag)
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
720 {
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
721 this_command_key_count = before_command_key_count_1;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
722 if (this_command_key_count < this_single_command_key_start)
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
723 this_single_command_key_start = this_command_key_count;
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
724 echo_truncate (before_command_echo_length_1);
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
725 before_command_restore_flag = 0;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
726 }
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
727
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
728 if (this_command_key_count >= size)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
730 Lisp_Object new_keys;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
731
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
732 new_keys = Fmake_vector (make_number (size * 2), Qnil);
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
733 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
734 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
735 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
736
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
737 this_command_keys = new_keys;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 }
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
739
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
740 XVECTOR (this_command_keys)->contents[this_command_key_count++] = key;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744 recursive_edit_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749 if (command_loop_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 specbind (Qstandard_output, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 specbind (Qstandard_input, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
755 val = command_loop ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756 if (EQ (val, Qt))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757 Fsignal (Qquit, Qnil);
16181
de4b3d40218f (recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents: 16166
diff changeset
758 /* Handle throw from read_minibuf when using minibuffer
de4b3d40218f (recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents: 16166
diff changeset
759 while it's active but we're in another window. */
de4b3d40218f (recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents: 16166
diff changeset
760 if (STRINGP (val))
de4b3d40218f (recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents: 16166
diff changeset
761 Fsignal (Qerror, Fcons (val, Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
762
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
763 return unbind_to (count, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 /* When an auto-save happens, record the "time", and don't do again soon. */
7224
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
767
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 record_auto_save ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769 {
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
770 last_auto_save = num_nonmacro_input_chars;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771 }
7224
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
772
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
773 /* Make an auto save happen as soon as possible at command level. */
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
774
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
775 force_auto_save_soon ()
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
776 {
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
777 last_auto_save = - auto_save_interval - 1;
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
778
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
779 record_asynch_buffer_change ();
7224
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
780 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
781
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 "Invoke the editor command loop recursively.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 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
785 that tells this function to return.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
786 Alternately, `(throw 'exit t)' makes this function signal an error.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 This function is called by the editor initialization to begin editing.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
793 command_loop_level++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 update_mode_lines = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
795
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
796 record_unwind_protect (recursive_edit_unwind,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
797 (command_loop_level
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
798 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 ? Fcurrent_buffer ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 : Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801 recursive_edit_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 return unbind_to (count, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
804
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 recursive_edit_unwind (buffer)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 Lisp_Object buffer;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809 if (!NILP (buffer))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810 Fset_buffer (buffer);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812 command_loop_level--;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
813 update_mode_lines = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
817 static void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
818 any_kboard_state ()
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
819 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
820 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
821 #if 0 /* Theory: if there's anything in Vunread_command_events,
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
822 it will right away be read by read_key_sequence,
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
823 and then if we do switch KBOARDS, it will go into the side
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
824 queue then. So we don't need to do anything special here -- rms. */
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
825 if (CONSP (Vunread_command_events))
10945
dbf1aab47502 (unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents: 10939
diff changeset
826 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
827 current_kboard->kbd_queue
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
828 = nconc2 (Vunread_command_events, current_kboard->kbd_queue);
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
829 current_kboard->kbd_queue_has_data = 1;
10945
dbf1aab47502 (unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents: 10939
diff changeset
830 }
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
831 Vunread_command_events = Qnil;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
832 #endif
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
833 single_kboard = 0;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
834 #endif
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
835 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
836
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
837 /* Switch to the single-kboard state, making current_kboard
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
838 the only KBOARD from which further input is accepted. */
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
839
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
840 void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
841 single_kboard_state ()
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
842 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
843 #ifdef MULTI_KBOARD
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
844 single_kboard = 1;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
845 #endif
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
846 }
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
847
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
848 /* Maintain a stack of kboards, so other parts of Emacs
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
849 can switch temporarily to the kboard of a given frame
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
850 and then revert to the previous status. */
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
851
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
852 struct kboard_stack
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
853 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
854 KBOARD *kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
855 struct kboard_stack *next;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
856 };
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
857
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
858 static struct kboard_stack *kboard_stack;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
859
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
860 void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
861 push_frame_kboard (f)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
862 FRAME_PTR f;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
863 {
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
864 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
865 struct kboard_stack *p
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
866 = (struct kboard_stack *) xmalloc (sizeof (struct kboard_stack));
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
867
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
868 p->next = kboard_stack;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
869 p->kboard = current_kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
870 kboard_stack = p;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
871
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
872 current_kboard = FRAME_KBOARD (f);
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
873 #endif
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
874 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
875
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
876 void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
877 pop_frame_kboard ()
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
878 {
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
879 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
880 struct kboard_stack *p = kboard_stack;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
881 current_kboard = p->kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
882 kboard_stack = p->next;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
883 xfree (p);
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
884 #endif
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
885 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
886
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
887 /* Handle errors that are not handled at inner levels
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
888 by printing an error message and returning to the editor command loop. */
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
889
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891 cmd_error (data)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892 Lisp_Object data;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
893 {
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
894 Lisp_Object old_level, old_length;
15969
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
895 char macroerror[50];
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
896
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
897 if (!NILP (executing_macro))
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
898 {
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
899 if (executing_macro_iterations == 1)
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
900 sprintf (macroerror, "After 1 kbd macro iteration: ");
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
901 else
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
902 sprintf (macroerror, "After %d kbd macro iterations: ",
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
903 executing_macro_iterations);
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
904 }
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
905 else
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
906 *macroerror = 0;
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
907
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
908 Vstandard_output = Qt;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
909 Vstandard_input = Qt;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
910 Vexecuting_macro = Qnil;
15982
6654a42f95e9 (cmd_error): Clear executing_macro.
Richard M. Stallman <rms@gnu.org>
parents: 15969
diff changeset
911 executing_macro = Qnil;
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
912 current_kboard->Vprefix_arg = Qnil;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
913 cancel_echoing ();
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
914
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
915 /* Avoid unquittable loop if data contains a circular list. */
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
916 old_level = Vprint_level;
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
917 old_length = Vprint_length;
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
918 XSETFASTINT (Vprint_level, 10);
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
919 XSETFASTINT (Vprint_length, 10);
15969
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
920 cmd_error_internal (data, macroerror);
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
921 Vprint_level = old_level;
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
922 Vprint_length = old_length;
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
923
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
924 Vquit_flag = Qnil;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
925
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
926 Vinhibit_quit = Qnil;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
927 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
928 any_kboard_state ();
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
929 #endif
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
930
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
931 return make_number (0);
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
932 }
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
933
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
934 cmd_error_internal (data, context)
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
935 Lisp_Object data;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
936 char *context;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
937 {
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 Lisp_Object stream;
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;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
941 Vinhibit_quit = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
942 echo_area_glyphs = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
944 /* If the window system or terminal frame hasn't been initialized
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 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
946 to stderr and exit. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
947 if (! FRAME_MESSAGE_BUF (selected_frame)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 || noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949 stream = Qexternal_debugging_output;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
950 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
951 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
952 Fdiscard_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 bitch_at_user ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
954 stream = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
956
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
957 if (context != 0)
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
958 write_string_1 (context, -1, stream);
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
959
13770
197ada595605 (Fcommand_execute): Allow function + args list as cmd.
Karl Heuer <kwzh@gnu.org>
parents: 13638
diff changeset
960 print_error_message (data, stream);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
961
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
962 /* If the window system or terminal frame hasn't been initialized
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
963 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
964 if (! FRAME_MESSAGE_BUF (selected_frame)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
965 || noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
966 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
967 Fterpri (stream);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
968 Fkill_emacs (make_number (-1));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
969 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
970 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
971
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
972 Lisp_Object command_loop_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
973 Lisp_Object command_loop_2 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 Lisp_Object top_level_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
975
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
976 /* Entry to editor-command-loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
977 This level has the catches for exiting/returning to editor command loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 It returns nil to exit recursive edit, t to abort it. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
979
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
981 command_loop ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
982 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
983 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
985 return internal_catch (Qexit, command_loop_2, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
986 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
987 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
988 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
989 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
990 internal_catch (Qtop_level, top_level_1, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
991 internal_catch (Qtop_level, command_loop_2, Qnil);
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
992
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
993 /* End of file in -batch run causes exit here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
994 if (noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995 Fkill_emacs (Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
996 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999 /* Here we catch errors in execution of commands within the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1000 editing loop, and reenter the editing loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1001 When there is an error, cmd_error runs and returns a non-nil
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1002 value to us. A value of nil means that cmd_loop_1 itself
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1003 returned due to end of file (or end of kbd macro). */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1004
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1005 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1006 command_loop_2 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1007 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1008 register Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1009
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1010 do
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1011 val = internal_condition_case (command_loop_1, Qerror, cmd_error);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1012 while (!NILP (val));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1018 top_level_2 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 return Feval (Vtop_level);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024 top_level_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1026 /* On entry to the outer level, run the startup file */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1027 if (!NILP (Vtop_level))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1028 internal_condition_case (top_level_2, Qerror, cmd_error);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1029 else if (!NILP (Vpurify_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1030 message ("Bare impure Emacs (standard Lisp code not loaded)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1031 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1032 message ("Bare Emacs (standard Lisp code not loaded)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1033 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1034 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1035
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1036 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1037 "Exit all recursive editing levels.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1038 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1039 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1040 Fthrow (Qtop_level, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1041 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1042
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1043 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1044 "Exit from the innermost recursive edit or minibuffer.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1045 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1046 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1047 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1048 Fthrow (Qexit, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1049
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1050 error ("No recursive edit is in progress");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1051 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1052
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1053 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1054 "Abort the command that requested this recursive edit or minibuffer input.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1055 ()
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 (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1058 Fthrow (Qexit, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1059
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1060 error ("No recursive edit is in progress");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1061 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1062
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1063 /* This is the actual command reading loop,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1064 sans error-handling encapsulation. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1065
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1066 Lisp_Object Fcommand_execute ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1067 static int read_key_sequence ();
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
1068 void safe_run_hooks ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1069
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1070 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1071 command_loop_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1072 {
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1073 Lisp_Object cmd, tem;
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1074 int lose, lose2;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1075 int nonundocount;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1076 Lisp_Object keybuf[30];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1077 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1078 int no_redisplay;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1079 int no_direct;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1080 int prev_modiff;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1081 struct buffer *prev_buffer;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1082 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1083 int was_locked = single_kboard;
10820
5bef43a53c01 (display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents: 10800
diff changeset
1084 #endif
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1085
12227
24328f2358a1 (command_loop_1): Clear prefix arg (undo Feb 1 change).
Karl Heuer <kwzh@gnu.org>
parents: 12185
diff changeset
1086 current_kboard->Vprefix_arg = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1087 Vdeactivate_mark = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1088 waiting_for_input = 0;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1089 cancel_echoing ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1090
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1091 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1092 no_redisplay = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1093 this_command_key_count = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
1094 this_single_command_key_start = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1095
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1096 /* 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
1097 throw to top level. */
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1098 /* Note that the value cell will never directly contain nil
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1099 if the symbol is a local variable. */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
1100 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks))
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1101 safe_run_hooks (Qpost_command_hook);
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1102
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
1103 if (!NILP (Vdeferred_action_list))
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
1104 call0 (Vdeferred_action_function);
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
1105
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
1106 if (!NILP (Vpost_command_idle_hook) && !NILP (Vrun_hooks))
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
1107 {
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
1108 if (NILP (Vunread_command_events)
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
1109 && NILP (Vexecuting_macro)
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
1110 && !NILP (sit_for (0, post_command_idle_delay, 0, 1)))
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
1111 safe_run_hooks (Qpost_command_idle_hook);
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
1112 }
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
1113
6290
6ecf8ea4bd8d (command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents: 6208
diff changeset
1114 /* Do this after running Vpost_command_hook, for consistency. */
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
1115 current_kboard->Vlast_command = this_command;
6290
6ecf8ea4bd8d (command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents: 6208
diff changeset
1116
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1117 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1118 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1119 /* Make sure the current window's buffer is selected. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1120 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1121 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1122
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1123 /* Display any malloc warning that just came out. Use while because
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1124 displaying one warning can cause another. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1125
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1126 while (pending_malloc_warning)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1127 display_malloc_warning ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1128
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1129 no_direct = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1130
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1131 Vdeactivate_mark = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1132
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1133 /* 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
1134 wait 2 sec and redraw minibuffer. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1135
12628
397f6d4852ff (command_loop_1): Clear echo area after 2 sec
Richard M. Stallman <rms@gnu.org>
parents: 12571
diff changeset
1136 if (minibuf_level && echo_area_glyphs
397f6d4852ff (command_loop_1): Clear echo area after 2 sec
Richard M. Stallman <rms@gnu.org>
parents: 12571
diff changeset
1137 && EQ (minibuf_window, echo_area_window))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1138 {
1097
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
1139 /* 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
1140 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
1141 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
1142 specbind (Qinhibit_quit, Qt);
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
1143
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1144 Fsit_for (make_number (2), Qnil, Qnil);
14666
4edbb03c523b (command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents: 14612
diff changeset
1145 /* Clear the echo area. */
4edbb03c523b (command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents: 14612
diff changeset
1146 message2 (0);
16834
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
1147 safe_run_hooks (Qecho_area_clear_hook);
14666
4edbb03c523b (command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents: 14612
diff changeset
1148
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
1149 unbind_to (count, Qnil);
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
1150
14666
4edbb03c523b (command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents: 14612
diff changeset
1151 /* If a C-g came in before, treat it as input now. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1152 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1153 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1154 Vquit_flag = Qnil;
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1155 Vunread_command_events = Fcons (make_number (quit_char), Qnil);
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 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1158
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 #ifdef C_ALLOCA
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1160 alloca (0); /* Cause a garbage collection now */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1161 /* Since we can free the most stuff here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1162 #endif /* C_ALLOCA */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1163
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1164 #if 0
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1165 /* 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
1166 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
1167 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
1168 Is this a good idea? */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1169 if (FRAMEP (internal_last_event_frame)
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
1170 && 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
1171 Fselect_frame (internal_last_event_frame, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1172 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1173 /* 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
1174 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
1175 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
1176 && !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
1177 call0 (Qrecompute_lucid_menubar);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1178
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1179 before_command_key_count = this_command_key_count;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1180 before_command_echo_length = echo_length ();
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1181
13014
077bb437f649 (command_loop_1): Set this_command to nil before reading a command.
Richard M. Stallman <rms@gnu.org>
parents: 12979
diff changeset
1182 this_command = Qnil;
077bb437f649 (command_loop_1): Set this_command to nil before reading a command.
Richard M. Stallman <rms@gnu.org>
parents: 12979
diff changeset
1183
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1184 /* Read next key sequence; i gets its length. */
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
1185 i = read_key_sequence (keybuf, sizeof keybuf / sizeof keybuf[0],
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
1186 Qnil, 0, 1, 1);
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1187
16504
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1188 /* A filter may have run while we were reading the input. */
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1189 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer)
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1190 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer));
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1191
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1192 ++num_input_keys;
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1193
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1194 /* Now we have read a key sequence of length I,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1195 or else I is 0 and we found end of file. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1196
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1197 if (i == 0) /* End of file -- happens only in */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1198 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
1199 /* -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
1200 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
1201 if (i == -1)
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1202 {
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1203 cancel_echoing ();
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1204 this_command_key_count = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
1205 this_single_command_key_start = 0;
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1206 goto finalize;
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1207 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1208
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1209 last_command_char = keybuf[i - 1];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210
2406
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1211 /* 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
1212 forget about that, in case this command moves point far away
11174
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1213 from that position. But also throw away beg_unchanged and
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1214 end_unchanged information in that case, so that redisplay will
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1215 update the whole window properly. */
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1216 if (!NILP (XWINDOW (selected_window)->force_start))
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1217 {
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1218 XWINDOW (selected_window)->force_start = Qnil;
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1219 beg_unchanged = end_unchanged = 0;
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1220 }
2406
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1221
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222 cmd = read_key_sequence_cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 if (!NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1225 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1227 Vexecuting_macro = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1228 QUIT; /* Make some noise. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1229 /* Will return since macro now empty. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1230 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1233 /* Do redisplay processing after this command except in special
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
1234 cases identified below that set no_redisplay to 1.
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
1235 (actually, there's currently no way to prevent the redisplay,
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
1236 and no_redisplay is ignored.
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
1237 Perhaps someday we will really implement it.) */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1238 no_redisplay = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1239
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1240 prev_buffer = current_buffer;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1241 prev_modiff = MODIFF;
6204
ba6268a3dee9 (command_loop_1): Fix misplaced assignment of last_point_position.
Karl Heuer <kwzh@gnu.org>
parents: 6178
diff changeset
1242 last_point_position = PT;
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
1243 XSETBUFFER (last_point_position_buffer, prev_buffer);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1244
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1245 /* Execute the command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1246
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1247 this_command = cmd;
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1248 /* Note that the value cell will never directly contain nil
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1249 if the symbol is a local variable. */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
1250 if (!NILP (Vpre_command_hook) && !NILP (Vrun_hooks))
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1251 safe_run_hooks (Qpre_command_hook);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1252
2924
6e233798a3f7 (read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents: 2898
diff changeset
1253 if (NILP (this_command))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1254 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1255 /* nil means key is undefined. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1256 bitch_at_user ();
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1257 current_kboard->defining_kbd_macro = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1258 update_mode_lines = 1;
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1259 current_kboard->Vprefix_arg = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1260 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1261 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1262 {
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1263 if (NILP (current_kboard->Vprefix_arg) && ! no_direct)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1264 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1265 /* Recognize some common commands in common situations and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1266 do them directly. */
7427
2ea6fdd2dacf Use PT, not point.
Karl Heuer <kwzh@gnu.org>
parents: 7396
diff changeset
1267 if (EQ (this_command, Qforward_char) && PT < ZV)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1268 {
13189
104d1e97803c (command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13108
diff changeset
1269 struct Lisp_Char_Table *dp
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1270 = window_display_table (XWINDOW (selected_window));
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1271 lose = FETCH_BYTE (PT);
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1272 SET_PT (forward_point (1));
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1273 if ((dp
5352
6b91471d9f0f (command_loop_1): Test of whether disp tab elt
Richard M. Stallman <rms@gnu.org>
parents: 5225
diff changeset
1274 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
8238
3b4a76dcecf6 (command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents: 8169
diff changeset
1275 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1
3b4a76dcecf6 (command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents: 8169
diff changeset
1276 : (NILP (DISP_CHAR_VECTOR (dp, lose))
3b4a76dcecf6 (command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents: 8169
diff changeset
1277 && (lose >= 0x20 && lose < 0x7f)))
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1278 : (lose >= 0x20 && lose < 0x7f))
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1279 /* To extract the case of continuation on
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1280 wide-column characters. */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1281 && (WIDTH_BY_CHAR_HEAD (FETCH_BYTE (PT)) == 1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1282 && (XFASTINT (XWINDOW (selected_window)->last_modified)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1283 >= MODIFF)
16196
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1284 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified)
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1285 >= OVERLAY_MODIFF)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1286 && (XFASTINT (XWINDOW (selected_window)->last_point)
7427
2ea6fdd2dacf Use PT, not point.
Karl Heuer <kwzh@gnu.org>
parents: 7396
diff changeset
1287 == PT - 1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1288 && !windows_or_buffers_changed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1289 && EQ (current_buffer->selective_display, Qnil)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1290 && !detect_input_pending ()
15921
11f4f96a71d2 (command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents: 15716
diff changeset
1291 && NILP (XWINDOW (selected_window)->column_number_displayed)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1292 && NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1293 no_redisplay = direct_output_forward_char (1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1294 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1295 }
7427
2ea6fdd2dacf Use PT, not point.
Karl Heuer <kwzh@gnu.org>
parents: 7396
diff changeset
1296 else if (EQ (this_command, Qbackward_char) && PT > BEGV)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1297 {
13189
104d1e97803c (command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13108
diff changeset
1298 struct Lisp_Char_Table *dp
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1299 = window_display_table (XWINDOW (selected_window));
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1300 SET_PT (forward_point (-1));
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1301 lose = FETCH_BYTE (PT);
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1302 if ((dp
7532
996928472982 (command_loop_1): Fix test for valid display table entry,
Richard M. Stallman <rms@gnu.org>
parents: 7502
diff changeset
1303 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
8238
3b4a76dcecf6 (command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents: 8169
diff changeset
1304 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1
3b4a76dcecf6 (command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents: 8169
diff changeset
1305 : (NILP (DISP_CHAR_VECTOR (dp, lose))
3b4a76dcecf6 (command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents: 8169
diff changeset
1306 && (lose >= 0x20 && lose < 0x7f)))
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1307 : (lose >= 0x20 && lose < 0x7f))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1308 && (XFASTINT (XWINDOW (selected_window)->last_modified)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1309 >= MODIFF)
16196
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1310 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified)
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1311 >= OVERLAY_MODIFF)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1312 && (XFASTINT (XWINDOW (selected_window)->last_point)
7427
2ea6fdd2dacf Use PT, not point.
Karl Heuer <kwzh@gnu.org>
parents: 7396
diff changeset
1313 == PT + 1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 && !windows_or_buffers_changed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1315 && EQ (current_buffer->selective_display, Qnil)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316 && !detect_input_pending ()
15921
11f4f96a71d2 (command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents: 15716
diff changeset
1317 && NILP (XWINDOW (selected_window)->column_number_displayed)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1318 && NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1319 no_redisplay = direct_output_forward_char (-1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1320 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1321 }
2924
6e233798a3f7 (read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents: 2898
diff changeset
1322 else if (EQ (this_command, Qself_insert_command)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1323 /* Try this optimization only on ascii keystrokes. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1324 && INTEGERP (last_command_char))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 {
17738
f20c2a909ad3 (command_loop_1): Use an int for last_command_char.
Richard M. Stallman <rms@gnu.org>
parents: 17719
diff changeset
1326 unsigned int c = XINT (last_command_char);
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1327 int value;
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1328
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1329 if (NILP (Vexecuting_macro)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1330 && !EQ (minibuf_window, selected_window))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332 if (!nonundocount || nonundocount >= 20)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1333 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334 Fundo_boundary ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1335 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1336 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1337 nonundocount++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1338 }
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1339 lose = ((XFASTINT (XWINDOW (selected_window)->last_modified)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1340 < MODIFF)
16196
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1341 || (XFASTINT (XWINDOW (selected_window)->last_overlay_modified)
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1342 < OVERLAY_MODIFF)
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1343 || (XFASTINT (XWINDOW (selected_window)->last_point)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1344 != PT)
10309
fe2243b3186b Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents: 10275
diff changeset
1345 || MODIFF <= SAVE_MODIFF
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1346 || windows_or_buffers_changed
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1347 || !EQ (current_buffer->selective_display, Qnil)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1348 || detect_input_pending ()
15921
11f4f96a71d2 (command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents: 15716
diff changeset
1349 || !NILP (XWINDOW (selected_window)->column_number_displayed)
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1350 || !NILP (Vexecuting_macro));
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1351 value = internal_self_insert (c, 0);
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1352 if (value)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1353 lose = 1;
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1354 if (value == 2)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1355 nonundocount = 0;
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1356
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1357 if (!lose
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1358 && (PT == ZV || FETCH_BYTE (PT) == '\n'))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1359 {
13189
104d1e97803c (command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13108
diff changeset
1360 struct Lisp_Char_Table *dp
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1361 = 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
1362 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
1363
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1364 if (dp)
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1365 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
1366 Lisp_Object obj;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
1367
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
1368 obj = DISP_CHAR_VECTOR (dp, lose);
7787
add6e866d6a2 (command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents: 7758
diff changeset
1369 if (NILP (obj))
7828
cfe470ebd714 (command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents: 7807
diff changeset
1370 {
cfe470ebd714 (command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents: 7807
diff changeset
1371 /* Do it only for char codes
cfe470ebd714 (command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents: 7807
diff changeset
1372 that by default display as themselves. */
cfe470ebd714 (command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents: 7807
diff changeset
1373 if (lose >= 0x20 && lose <= 0x7e)
cfe470ebd714 (command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents: 7807
diff changeset
1374 no_redisplay = direct_output_for_insert (lose);
cfe470ebd714 (command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents: 7807
diff changeset
1375 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1376 else if (VECTORP (obj)
7787
add6e866d6a2 (command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents: 7758
diff changeset
1377 && XVECTOR (obj)->size == 1
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1378 && (obj = XVECTOR (obj)->contents[0],
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1379 INTEGERP (obj))
7787
add6e866d6a2 (command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents: 7758
diff changeset
1380 /* Insist face not specified in glyph. */
add6e866d6a2 (command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents: 7758
diff changeset
1381 && (XINT (obj) & ((-1) << 8)) == 0)
7758
ce538d63b1e9 (command_loop_1): Allow direct output for insert
Richard M. Stallman <rms@gnu.org>
parents: 7727
diff changeset
1382 no_redisplay
ce538d63b1e9 (command_loop_1): Allow direct output for insert
Richard M. Stallman <rms@gnu.org>
parents: 7727
diff changeset
1383 = direct_output_for_insert (XINT (obj));
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1384 }
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1385 else
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1386 {
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1387 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
1388 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
1389 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1390 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1391 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1392 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1393 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1394
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1395 /* Here for a command that isn't executed directly */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1396
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1397 nonundocount = 0;
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1398 if (NILP (current_kboard->Vprefix_arg))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1399 Fundo_boundary ();
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
1400 Fcommand_execute (this_command, Qnil, Qnil, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1401
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1402 }
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
1403 directly_done: ;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 /* If there is a prefix argument,
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
1406 1) We don't want Vlast_command to be ``universal-argument''
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
1407 (that would be dumb), so don't set Vlast_command,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1408 2) we want to leave echoing on so that the prefix will be
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1409 echoed as part of this key sequence, so don't call
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1410 cancel_echoing, and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1411 3) we want to leave this_command_key_count non-zero, so that
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1412 read_char will realize that it is re-reading a character, and
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1413 not echo it a second time.
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1414
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1415 If the command didn't actually create a prefix arg,
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1416 but is merely a frame event that is transparent to prefix args,
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1417 then the above doesn't apply. */
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1418 if (NILP (current_kboard->Vprefix_arg) || CONSP (last_command_char))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1419 {
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
1420 current_kboard->Vlast_command = this_command;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1421 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1422 this_command_key_count = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
1423 this_single_command_key_start = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1424 }
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1425
15946
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1426 /* Note that the value cell will never directly contain nil
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1427 if the symbol is a local variable. */
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1428 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks))
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1429 safe_run_hooks (Qpost_command_hook);
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1430
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1431 if (!NILP (Vdeferred_action_list))
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1432 safe_run_hooks (Qdeferred_action_function);
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1433
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1434 if (!NILP (Vpost_command_idle_hook) && !NILP (Vrun_hooks))
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1435 {
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1436 if (NILP (Vunread_command_events)
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1437 && NILP (Vexecuting_macro)
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1438 && !NILP (sit_for (0, post_command_idle_delay, 0, 1)))
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1439 safe_run_hooks (Qpost_command_idle_hook);
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1440 }
966efa980335 (command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents: 15921
diff changeset
1441
6208
db4139d43f8a (command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents: 6204
diff changeset
1442 if (!NILP (current_buffer->mark_active) && !NILP (Vrun_hooks))
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1443 {
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1444 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
1445 {
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1446 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
1447 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
1448 }
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1449 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
1450 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
1451 }
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1452
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1453 finalize:
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1454 /* Install chars successfully executed in kbd macro. */
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1455
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1456 if (!NILP (current_kboard->defining_kbd_macro)
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1457 && NILP (current_kboard->Vprefix_arg))
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1458 finalize_kbd_macro_chars ();
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1459
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1460 #ifdef MULTI_KBOARD
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
1461 if (!was_locked)
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1462 any_kboard_state ();
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1463 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1464 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1465 }
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1466
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1467 /* Subroutine for safe_run_hooks: run the hook HOOK. */
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1468
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1469 static Lisp_Object
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1470 safe_run_hooks_1 (hook)
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1471 Lisp_Object hook;
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1472 {
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1473 return call1 (Vrun_hooks, Vinhibit_quit);
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1474 }
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1475
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1476 /* Subroutine for safe_run_hooks: handle an error by clearing out the hook. */
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1477
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1478 static Lisp_Object
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1479 safe_run_hooks_error (data)
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1480 Lisp_Object data;
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1481 {
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1482 Fset (Vinhibit_quit, Qnil);
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1483 }
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1484
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1485 /* If we get an error while running the hook, cause the hook variable
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1486 to be nil. Also inhibit quits, so that C-g won't cause the hook
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1487 to mysteriously evaporate. */
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1488
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
1489 void
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1490 safe_run_hooks (hook)
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1491 Lisp_Object hook;
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1492 {
8247
26dbb6234efd (safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents: 8238
diff changeset
1493 Lisp_Object value;
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1494 int count = specpdl_ptr - specpdl;
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1495 specbind (Qinhibit_quit, hook);
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
1496
14219
22324381ef74 (safe_run_hooks): Use Qt, not Qerror, to avoid running the debugger.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1497 internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error);
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1498
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1499 unbind_to (count, Qnil);
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1500 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1501
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1502 /* Number of seconds between polling for input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1503 int polling_period;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1504
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3538
diff changeset
1505 /* Nonzero means polling for input is temporarily suppressed. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1506 int poll_suppress_count;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1507
8653
07cc798f5cab (polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 8589
diff changeset
1508 /* Nonzero if polling_for_input is actually being used. */
07cc798f5cab (polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 8589
diff changeset
1509 int polling_for_input;
07cc798f5cab (polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 8589
diff changeset
1510
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1511 #ifdef POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1512
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1513 /* Handle an alarm once each second and read pending input
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1514 so as to handle a C-g if it comces in. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1515
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1516 SIGTYPE
10746
ea87e4d9c8ea (input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents: 10701
diff changeset
1517 input_poll_signal (signalnum) /* If we don't have an argument, */
ea87e4d9c8ea (input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents: 10701
diff changeset
1518 int signalnum; /* some compilers complain in signal calls. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1519 {
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
1520 /* This causes the call to start_polling at the end
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
1521 to do its job. It also arranges for a quit or error
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
1522 from within read_avail_input to resume polling. */
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
1523 poll_suppress_count++;
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
1524 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
1525 && !waiting_for_input)
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
1526 read_avail_input (0);
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
1527 /* Turn on the SIGALRM handler and request another alarm. */
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
1528 start_polling ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1529 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1530
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1531 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1532
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1533 /* Begin signals to poll for input, if they are appropriate.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1534 This function is called unconditionally from various places. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1535
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1536 start_polling ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1537 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1538 #ifdef POLL_FOR_INPUT
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
1539 if (read_socket_hook && !interrupt_input)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1540 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1541 poll_suppress_count--;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1542 if (poll_suppress_count == 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1543 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1544 signal (SIGALRM, input_poll_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1545 polling_for_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1546 alarm (polling_period);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1547 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1548 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1549 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1550 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1551
8673
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1552 /* Nonzero if we are using polling to handle input asynchronously. */
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1553
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1554 int
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1555 input_polling_used ()
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1556 {
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1557 #ifdef POLL_FOR_INPUT
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1558 return read_socket_hook && !interrupt_input;
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1559 #else
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1560 return 0;
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1561 #endif
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1562 }
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
1563
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1564 /* Turn off polling. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1565
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1566 stop_polling ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1567 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1568 #ifdef POLL_FOR_INPUT
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
1569 if (read_socket_hook && !interrupt_input)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1570 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1571 if (poll_suppress_count == 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1572 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1573 polling_for_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1574 alarm (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1575 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1576 poll_suppress_count++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1577 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1578 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1579 }
4475
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1580
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1581 /* 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
1582 and start or stop polling accordingly. */
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1583
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1584 void
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1585 set_poll_suppress_count (count)
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1586 int count;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1587 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1588 #ifdef POLL_FOR_INPUT
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1589 if (count == 0 && poll_suppress_count != 0)
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1590 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1591 poll_suppress_count = 1;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1592 start_polling ();
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1593 }
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1594 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
1595 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1596 stop_polling ();
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1597 }
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1598 poll_suppress_count = count;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1599 #endif
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1600 }
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1601
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1602 /* Bind polling_period to a value at least N.
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1603 But don't decrease it. */
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1604
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1605 bind_polling_period (n)
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1606 int n;
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1607 {
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1608 #ifdef POLL_FOR_INPUT
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1609 int new = polling_period;
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1610
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1611 if (n > new)
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1612 new = n;
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1613
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1614 stop_polling ();
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1615 specbind (Qpolling_period, make_number (new));
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
1616 /* Start a new alarm with the new period. */
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1617 start_polling ();
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1618 #endif
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
1619 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1620
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
1621 /* Apply the control modifier to CHARACTER. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
1622
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1623 int
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1624 make_ctrl_char (c)
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1625 int c;
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1626 {
2954
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1627 /* Save the upper bits here. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1628 int upper = c & ~0177;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1629
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1630 c &= 0177;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1631
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1632 /* Everything in the columns containing the upper-case letters
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1633 denotes a control character. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1634 if (c >= 0100 && c < 0140)
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1635 {
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1636 int oc = c;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1637 c &= ~0140;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1638 /* Set the shift modifier for a control char
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1639 made from a shifted letter. But only for letters! */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1640 if (oc >= 'A' && oc <= 'Z')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1641 c |= shift_modifier;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1642 }
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1643
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1644 /* The lower-case letters denote control characters too. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1645 else if (c >= 'a' && c <= 'z')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1646 c &= ~0140;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1647
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1648 /* Include the bits for control and shift
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1649 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
1650 else if (c >= ' ')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1651 c |= ctrl_modifier;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1652
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1653 /* Replace the high bits. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1654 c |= (upper & ~ctrl_modifier);
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1655
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1656 return c;
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1657 }
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1658
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1659
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1660
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1661 /* Input of single characters from keyboard */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1662
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1663 Lisp_Object print_help ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1664 static Lisp_Object kbd_buffer_get_event ();
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
1665 static void record_char ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1666
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1667 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1668 static jmp_buf wrong_kboard_jmpbuf;
10820
5bef43a53c01 (display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents: 10800
diff changeset
1669 #endif
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
1670
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1671 /* read a character from the keyboard; call the redisplay if needed */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1672 /* commandflag 0 means do not do auto-saving, but do do redisplay.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1673 -1 means do not do redisplay, but do do autosaving.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1674 1 means do both. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1675
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1676 /* 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
1677 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
1678
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1679 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
1680 the first event of a key sequence.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1681
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
1682 If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
1683 if we used a mouse menu to read the input, or zero otherwise. If
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
1684 USED_MOUSE_MENU is null, we don't dereference it.
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1685
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1686 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
1687
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1688 Lisp_Object
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1689 read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1690 int commandflag;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1691 int nmaps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1692 Lisp_Object *maps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1693 Lisp_Object prev_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1694 int *used_mouse_menu;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1695 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1696 register Lisp_Object c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1697 int count;
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1698 jmp_buf local_getcjmp;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1699 jmp_buf save_jump;
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1700 int key_already_recorded = 0;
12476
5518def44198 (read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents: 12469
diff changeset
1701 Lisp_Object tem, save;
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
1702 Lisp_Object also_record;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
1703 also_record = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1704
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1705 before_command_key_count = this_command_key_count;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1706 before_command_echo_length = echo_length ();
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1707
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
1708 retry:
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
1709
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1710 if (CONSP (Vunread_command_events))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1711 {
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1712 c = XCONS (Vunread_command_events)->car;
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1713 Vunread_command_events = XCONS (Vunread_command_events)->cdr;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1714
13638
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
1715 /* Undo what read_char_x_menu_prompt did when it unread
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
1716 additional keys returned by Fx_popup_menu. */
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
1717 if (CONSP (c)
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
1718 && (SYMBOLP (XCONS (c)->car) || INTEGERP (XCONS (c)->car))
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
1719 && NILP (XCONS (c)->cdr))
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
1720 c = XCONS (c)->car;
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
1721
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1722 if (this_command_key_count == 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1723 goto reread_first;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1724 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1725 goto reread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1726 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1728 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
1729 {
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
1730 XSETINT (c, unread_command_char);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1731 unread_command_char = -1;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1732
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1733 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
1734 goto reread_first;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1735 else
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1736 goto reread;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1737 }
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1738
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1739 /* If there is no function key translated before
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1740 reset-this-command-lengths takes effect, forget about it. */
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1741 before_command_restore_flag = 0;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1742
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1743 if (!NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1744 {
1239
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1745 /* 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
1746 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
1747 remain unchanged.
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1748
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1749 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
1750 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
1751 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
1752 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
1753 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
1754 selected. */
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
1755 Vlast_event_frame = internal_last_event_frame = Qmacro;
1239
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1756
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
1757 /* 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
1758 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
1759 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
1760 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
1761 || executing_macro_index >= XFASTINT (Flength (Vexecuting_macro)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1762 {
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
1763 XSETINT (c, -1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1764 return c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1765 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1766
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1767 c = Faref (Vexecuting_macro, make_number (executing_macro_index));
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1768 if (STRINGP (Vexecuting_macro)
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1769 && (XINT (c) & 0x80))
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
1770 XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80));
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1771
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1772 executing_macro_index++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1773
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1774 goto from_macro;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1775 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1776
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1777 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
1778 {
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1779 c = unread_switch_frame;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1780 unread_switch_frame = Qnil;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1781
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1782 /* 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
1783 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
1784 goto reread_first;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1785 }
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1786
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
1787 if (commandflag >= 0 && !input_pending
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
1788 && !detect_input_pending_run_timers (0))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1789 redisplay ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1790
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1791 /* Message turns off echoing unless more keystrokes turn it on again. */
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1792 if (echo_area_glyphs && *echo_area_glyphs
13267
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
1793 && echo_area_glyphs != current_kboard->echobuf
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
1794 && ok_to_echo_at_next_pause != echo_area_glyphs)
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1795 cancel_echoing ();
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1796 else
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1797 /* If already echoing, continue. */
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1798 echo_dash ();
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1799
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1800 /* Try reading a character via menu prompting in the minibuf.
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1801 Try this before the sit-for, because the sit-for
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1802 would do the wrong thing if we are supposed to do
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1803 menu prompting. If EVENT_HAS_PARAMETERS then we are reading
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1804 after a mouse event so don't try a minibuf menu. */
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1805 c = Qnil;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1806 if (nmaps > 0 && INTERACTIVE
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1807 && !NILP (prev_event) && ! EVENT_HAS_PARAMETERS (prev_event)
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1808 /* Don't bring up a menu if we already have another event. */
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1809 && NILP (Vunread_command_events)
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1810 && unread_command_char < 0
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
1811 && !detect_input_pending_run_timers (0))
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1812 {
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1813 c = read_char_minibuf_menu_prompt (commandflag, nmaps, maps);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1814 if (! NILP (c))
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1815 {
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1816 key_already_recorded = 1;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1817 goto non_reread_1;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1818 }
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1819 }
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1820
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1821 /* Make a longjmp point for quits to use, but don't alter getcjmp just yet.
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1822 We will do that below, temporarily for short sections of code,
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1823 when appropriate. local_getcjmp must be in effect
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1824 around any call to sit_for or kbd_buffer_get_event;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1825 it *must not* be in effect when we call redisplay. */
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1826
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1827 if (_setjmp (local_getcjmp))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1828 {
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
1829 XSETINT (c, quit_char);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
1830 XSETFRAME (internal_last_event_frame, selected_frame);
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
1831 Vlast_event_frame = internal_last_event_frame;
2434
39c696510c64 (read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents: 2406
diff changeset
1832 /* 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
1833 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
1834 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
1835 Vquit_flag = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1836
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1837 #ifdef MULTI_KBOARD
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1838 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1839 KBOARD *kb = FRAME_KBOARD (selected_frame);
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1840 if (kb != current_kboard)
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1841 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1842 Lisp_Object *tailp = &kb->kbd_queue;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1843 /* We shouldn't get here if we were in single-kboard mode! */
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1844 if (single_kboard)
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1845 abort ();
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1846 while (CONSP (*tailp))
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1847 tailp = &XCONS (*tailp)->cdr;
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1848 if (!NILP (*tailp))
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1849 abort ();
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1850 *tailp = Fcons (c, Qnil);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1851 kb->kbd_queue_has_data = 1;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1852 current_kboard = kb;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1853 longjmp (wrong_kboard_jmpbuf, 1);
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1854 }
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1855 }
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1856 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1857 goto non_reread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1858 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1859
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
1860 timer_start_idle ();
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
1861
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1862 /* If in middle of key sequence and minibuffer not active,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1863 start echoing if enough time elapses. */
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1864
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1865 if (minibuf_level == 0 && !current_kboard->immediate_echo
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
1866 && 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
1867 && ! noninteractive
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1868 && echo_keystrokes > 0
13267
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
1869 && (echo_area_glyphs == 0 || *echo_area_glyphs == 0
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
1870 || ok_to_echo_at_next_pause == echo_area_glyphs))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1871 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1872 Lisp_Object tem0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1873
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1874 /* After a mouse event, start echoing right away.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1875 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
1876 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
1877 if (EVENT_HAS_PARAMETERS (prev_event))
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
1878 echo_now ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1879 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1880 {
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1881 save_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1882 restore_getcjmp (local_getcjmp);
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1883 tem0 = sit_for (echo_keystrokes, 0, 1, 1);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1884 restore_getcjmp (save_jump);
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1885 if (EQ (tem0, Qt))
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
1886 echo_now ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1887 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1888 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1889
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1890 /* Maybe auto save due to number of keystrokes. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1891
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1892 if (commandflag != 0
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1893 && auto_save_interval > 0
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
1894 && num_nonmacro_input_chars - last_auto_save > max (auto_save_interval, 20)
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
1895 && !detect_input_pending_run_timers (0))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1896 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1897 Fdo_auto_save (Qnil, Qnil);
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
1898 /* Hooks can actually change some buffers in auto save. */
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
1899 redisplay ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1900 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1901
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
1902 /* Try reading using an X menu.
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1903 This is never confused with reading using the minibuf
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1904 because the recursive call of read_char in read_char_minibuf_menu_prompt
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1905 does not pass on any keymaps. */
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1906
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1907 if (nmaps > 0 && INTERACTIVE
11613
c4ef6460a9c9 (read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents: 11543
diff changeset
1908 && !NILP (prev_event)
c4ef6460a9c9 (read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents: 11543
diff changeset
1909 && EVENT_HAS_PARAMETERS (prev_event)
c4ef6460a9c9 (read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents: 11543
diff changeset
1910 && !EQ (XCONS (prev_event)->car, Qmenu_bar)
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1911 /* Don't bring up a menu if we already have another event. */
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1912 && NILP (Vunread_command_events)
7396
3774d6d8a5ee (read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents: 7351
diff changeset
1913 && unread_command_char < 0)
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1914 {
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1915 c = read_char_x_menu_prompt (nmaps, maps, prev_event, used_mouse_menu);
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1916
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1917 /* Now that we have read an event, Emacs is not idle. */
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1918 timer_stop_idle ();
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1919
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1920 return c;
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
1921 }
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1922
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1923 /* Maybe autosave and/or garbage collect due to idleness. */
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1924
3920
81d29cf5b232 * keyboard.c (read_char): Don't do idle autosaves if we're not
Jim Blandy <jimb@redhat.com>
parents: 3887
diff changeset
1925 if (INTERACTIVE && NILP (c))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1926 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1927 int delay_level, buffer_size;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1928
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1929 /* Slow down auto saves logarithmically in size of current buffer,
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1930 and garbage collect while we're at it. */
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1931 if (! MINI_WINDOW_P (XWINDOW (selected_window)))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1932 last_non_minibuf_size = Z - BEG;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1933 buffer_size = (last_non_minibuf_size >> 8) + 1;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1934 delay_level = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1935 while (buffer_size > 64)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1936 delay_level++, buffer_size -= buffer_size >> 2;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1937 if (delay_level < 4) delay_level = 4;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1938 /* 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
1939 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
1940
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1941 /* 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
1942 if (commandflag != 0
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
1943 && num_nonmacro_input_chars > last_auto_save
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1944 && INTEGERP (Vauto_save_timeout)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1945 && XINT (Vauto_save_timeout) > 0)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1946 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1947 Lisp_Object tem0;
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1948
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1949 save_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1950 restore_getcjmp (local_getcjmp);
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
1951 tem0 = sit_for (delay_level * XFASTINT (Vauto_save_timeout) / 4,
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
1952 0, 1, 1);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1953 restore_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1954
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1955 if (EQ (tem0, Qt))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1956 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1957 Fdo_auto_save (Qnil, Qnil);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1958
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1959 /* 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
1960 available, garbage collect if there has been enough
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1961 consing going on to make it worthwhile. */
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
1962 if (!detect_input_pending_run_timers (0)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1963 && consing_since_gc > gc_cons_threshold / 2)
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
1964 Fgarbage_collect ();
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1965
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
1966 redisplay ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1967 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1968 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1969 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1970
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1971 /* Read something from current KBOARD's side queue, if possible. */
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
1972
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
1973 if (NILP (c))
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1974 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1975 if (current_kboard->kbd_queue_has_data)
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
1976 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1977 if (!CONSP (current_kboard->kbd_queue))
10945
dbf1aab47502 (unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents: 10939
diff changeset
1978 abort ();
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1979 c = XCONS (current_kboard->kbd_queue)->car;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1980 current_kboard->kbd_queue
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1981 = XCONS (current_kboard->kbd_queue)->cdr;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1982 if (NILP (current_kboard->kbd_queue))
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1983 current_kboard->kbd_queue_has_data = 0;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
1984 input_pending = readable_events (0);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
1985 if (EVENT_HAS_PARAMETERS (c)
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
1986 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qswitch_frame))
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
1987 internal_last_event_frame = XCONS (XCONS (c)->cdr)->car;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
1988 Vlast_event_frame = internal_last_event_frame;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
1989 }
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1990 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1991
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1992 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1993 /* If current_kboard's side queue is empty check the other kboards.
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1994 If one of them has data that we have not yet seen here,
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1995 switch to it and process the data waiting for it.
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1996
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1997 Note: if the events queued up for another kboard
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1998 have already been seen here, and therefore are not a complete command,
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1999 the kbd_queue_has_data field is 0, so we skip that kboard here.
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2000 That's to avoid an infinite loop switching between kboards here. */
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2001 if (NILP (c) && !single_kboard)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2002 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2003 KBOARD *kb;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2004 for (kb = all_kboards; kb; kb = kb->next_kboard)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2005 if (kb->kbd_queue_has_data)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2006 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2007 current_kboard = kb;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2008 longjmp (wrong_kboard_jmpbuf, 1);
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2009 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2010 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2011 #endif
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2012
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2013 wrong_kboard:
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2014
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2015 stop_polling ();
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2016
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2017 /* Finally, we read from the main queue,
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2018 and if that gives us something we can't use yet, we put it on the
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2019 appropriate side queue and try again. */
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2020
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2021 if (NILP (c))
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2022 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2023 KBOARD *kb;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2024
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2025 /* Actually read a character, waiting if necessary. */
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2026 save_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2027 restore_getcjmp (local_getcjmp);
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2028 c = kbd_buffer_get_event (&kb, used_mouse_menu);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2029 restore_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2030
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2031 #ifdef MULTI_KBOARD
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2032 if (! NILP (c) && (kb != current_kboard))
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2033 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2034 Lisp_Object *tailp = &kb->kbd_queue;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2035 while (CONSP (*tailp))
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2036 tailp = &XCONS (*tailp)->cdr;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2037 if (!NILP (*tailp))
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2038 abort ();
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2039 *tailp = Fcons (c, Qnil);
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2040 kb->kbd_queue_has_data = 1;
11763
fc2a3a312e98 [MULTI_KBOARD] (read_char): If the character was for
Karl Heuer <kwzh@gnu.org>
parents: 11755
diff changeset
2041 c = Qnil;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2042 if (single_kboard)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2043 goto wrong_kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2044 current_kboard = kb;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2045 longjmp (wrong_kboard_jmpbuf, 1);
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2046 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2047 #endif
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2048 }
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2049
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2050 /* Terminate Emacs in batch mode if at eof. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2051 if (noninteractive && INTEGERP (c) && XINT (c) < 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2052 Fkill_emacs (make_number (1));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2053
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2054 if (INTEGERP (c))
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2055 {
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2056 /* Add in any extra modifiers, where appropriate. */
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2057 if ((extra_keyboard_modifiers & CHAR_CTL)
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2058 || ((extra_keyboard_modifiers & 0177) < ' '
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2059 && (extra_keyboard_modifiers & 0177) != 0))
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2060 XSETINT (c, make_ctrl_char (XINT (c)));
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2061
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2062 /* Transfer any other modifier bits directly from
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2063 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
2064 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
2065 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
2066 }
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
2067
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2068 non_reread:
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2069
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2070 /* Now that we have read an event, Emacs is not idle--
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2071 unless the event was a timer event (not used now). */
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
2072 if (! CONSP (c))
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2073 timer_stop_idle ();
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2074
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2075 start_polling ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2076
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2077 if (NILP (c))
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2078 {
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2079 if (commandflag >= 0
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2080 && !input_pending && !detect_input_pending_run_timers (0))
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2081 redisplay ();
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2082
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2083 goto wrong_kboard;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2084 }
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2085
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2086 non_reread_1:
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2087
8569
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2088 /* Buffer switch events are only for internal wakeups
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2089 so don't show them to the user. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2090 if (BUFFERP (c))
8569
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2091 return c;
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2092
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
2093 if (key_already_recorded)
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
2094 return c;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
2095
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2096 /* Process special events within read_char
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2097 and loop around to read another event. */
12476
5518def44198 (read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents: 12469
diff changeset
2098 save = Vquit_flag;
5518def44198 (read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents: 12469
diff changeset
2099 Vquit_flag = Qnil;
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2100 tem = get_keyelt (access_keymap (get_keymap_1 (Vspecial_event_map, 0, 0),
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2101 c, 0, 0), 1);
12476
5518def44198 (read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents: 12469
diff changeset
2102 Vquit_flag = save;
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2103
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2104 if (!NILP (tem))
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2105 {
14537
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
2106 int was_locked = single_kboard;
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
2107
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2108 last_input_char = c;
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
2109 Fcommand_execute (tem, Qnil, Fvector (1, &last_input_char), Qt);
14537
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
2110
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
2111 /* Resume allowing input from any kboard, if that was true before. */
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
2112 if (!was_locked)
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
2113 any_kboard_state ();
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
2114
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2115 goto retry;
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2116 }
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2117
8569
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2118 /* Wipe the echo area. */
16834
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
2119 if (echo_area_glyphs)
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
2120 safe_run_hooks (Qecho_area_clear_hook);
8569
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2121 echo_area_glyphs = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2122
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2123 /* Handle things that only apply to characters. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2124 if (INTEGERP (c))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2125 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2126 /* 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
2127 if (XINT (c) == -1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2128 return c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2129
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2130 if (STRINGP (Vkeyboard_translate_table)
15412
7824cf167226 (read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents: 15284
diff changeset
2131 && XSTRING (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c))
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
2132 XSETINT (c, XSTRING (Vkeyboard_translate_table)->data[XFASTINT (c)]);
13246
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2133 else if ((VECTORP (Vkeyboard_translate_table)
15412
7824cf167226 (read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents: 15284
diff changeset
2134 && XVECTOR (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c))
7824cf167226 (read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents: 15284
diff changeset
2135 || (CHAR_TABLE_P (Vkeyboard_translate_table)
7824cf167226 (read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents: 15284
diff changeset
2136 && CHAR_TABLE_ORDINARY_SLOTS > (unsigned) XFASTINT (c)))
13246
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2137 {
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2138 Lisp_Object d;
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2139 d = Faref (Vkeyboard_translate_table, c);
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2140 /* nil in keyboard-translate-table means no translation. */
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2141 if (!NILP (d))
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2142 c = d;
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
2143 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2144 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2145
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2146 /* If this event is a mouse click in the menu bar,
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2147 return just menu-bar for now. Modify the mouse click event
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2148 so we won't do this twice, then queue it up. */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2149 if (EVENT_HAS_PARAMETERS (c)
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2150 && CONSP (XCONS (c)->cdr)
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2151 && CONSP (EVENT_START (c))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2152 && CONSP (XCONS (EVENT_START (c))->cdr))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2153 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2154 Lisp_Object posn;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2155
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2156 posn = POSN_BUFFER_POSN (EVENT_START (c));
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2157 /* Handle menu-bar events:
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2158 insert the dummy prefix event `menu-bar'. */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2159 if (EQ (posn, Qmenu_bar))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2160 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2161 /* Change menu-bar to (menu-bar) as the event "position". */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2162 POSN_BUFFER_POSN (EVENT_START (c)) = Fcons (posn, Qnil);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2163
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2164 also_record = c;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2165 Vunread_command_events = Fcons (c, Vunread_command_events);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2166 c = posn;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2167 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2168 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2169
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2170 record_char (c);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2171 if (! NILP (also_record))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2172 record_char (also_record);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2173
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2174 from_macro:
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2175 reread_first:
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
2176 before_command_key_count = this_command_key_count;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
2177 before_command_echo_length = echo_length ();
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2178
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2179 /* Don't echo mouse motion events. */
10233
100a10bb4d47 (read_char): Don't echo keys when echo_keystrokes is 0.
Richard M. Stallman <rms@gnu.org>
parents: 10147
diff changeset
2180 if (echo_keystrokes
100a10bb4d47 (read_char): Don't echo keys when echo_keystrokes is 0.
Richard M. Stallman <rms@gnu.org>
parents: 10147
diff changeset
2181 && ! (EVENT_HAS_PARAMETERS (c)
100a10bb4d47 (read_char): Don't echo keys when echo_keystrokes is 0.
Richard M. Stallman <rms@gnu.org>
parents: 10147
diff changeset
2182 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement)))
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2183 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2184 echo_char (c);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2185 if (! NILP (also_record))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2186 echo_char (also_record);
13267
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
2187 /* Once we reread a character, echoing can happen
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
2188 the next time we pause to read a new one. */
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
2189 ok_to_echo_at_next_pause = echo_area_glyphs;
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2190 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2191
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2192 /* Record this character as part of the current key. */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2193 add_command_key (c);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2194 if (! NILP (also_record))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2195 add_command_key (also_record);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2196
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2197 /* Re-reading in the middle of a command */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2198 reread:
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2199 last_input_char = c;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2200 num_input_chars++;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2201
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2202 /* Process the help character specially if enabled */
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2203 if (!NILP (Vhelp_form) && help_char_p (c))
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2204 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2205 Lisp_Object tem0;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2206 count = specpdl_ptr - specpdl;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2207
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2208 record_unwind_protect (Fset_window_configuration,
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2209 Fcurrent_window_configuration (Qnil));
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2210
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2211 tem0 = Feval (Vhelp_form);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2212 if (STRINGP (tem0))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2213 internal_with_output_to_temp_buffer ("*Help*", print_help, tem0);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2214
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2215 cancel_echoing ();
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2216 do
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2217 c = read_char (0, 0, 0, Qnil, 0);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2218 while (BUFFERP (c));
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2219 /* Remove the help from the frame */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2220 unbind_to (count, Qnil);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2221
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2222 redisplay ();
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2223 if (EQ (c, make_number (040)))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2224 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2225 cancel_echoing ();
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2226 do
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2227 c = read_char (0, 0, 0, Qnil, 0);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2228 while (BUFFERP (c));
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2229 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2230 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2231
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2232 return c;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2233 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2234
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2235 /* Record a key that came from a mouse menu.
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2236 Record it for echoing, for this-command-keys, and so on. */
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2237
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2238 static void
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2239 record_menu_key (c)
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2240 Lisp_Object c;
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2241 {
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2242 /* Wipe the echo area. */
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2243 echo_area_glyphs = 0;
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2244
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2245 record_char (c);
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2246
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2247 before_command_key_count = this_command_key_count;
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2248 before_command_echo_length = echo_length ();
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2249
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2250 /* Don't echo mouse motion events. */
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2251 if (echo_keystrokes)
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2252 {
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2253 echo_char (c);
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2254
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2255 /* Once we reread a character, echoing can happen
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2256 the next time we pause to read a new one. */
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2257 ok_to_echo_at_next_pause = 0;
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2258 }
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2259
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2260 /* Record this character as part of the current key. */
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2261 add_command_key (c);
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2262
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2263 /* Re-reading in the middle of a command */
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2264 last_input_char = c;
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2265 num_input_chars++;
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2266 }
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2267
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2268 /* Return 1 if should recognize C as "the help character". */
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2269
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2270 int
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2271 help_char_p (c)
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2272 Lisp_Object c;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2273 {
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2274 Lisp_Object tail;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2275
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2276 if (EQ (c, Vhelp_char))
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2277 return 1;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2278 for (tail = Vhelp_event_list; CONSP (tail); tail = XCONS (tail)->cdr)
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2279 if (EQ (c, XCONS (tail)->car))
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2280 return 1;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2281 return 0;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2282 }
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
2283
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2284 /* Record the input event C in various ways. */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2285
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2286 static void
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2287 record_char (c)
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2288 Lisp_Object c;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2289 {
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2290 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
2291 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
2292 if (++recent_keys_index >= NUM_RECENT_KEYS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2293 recent_keys_index = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2294
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2295 /* Write c to the dribble file. If c is a lispy event, write
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2296 the event's symbol to the dribble file, in <brackets>. Bleaugh.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2297 If you, dear reader, have a better idea, you've got the source. :-) */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2298 if (dribble)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2299 {
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2300 if (INTEGERP (c))
8569
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2301 {
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2302 if (XUINT (c) < 0x100)
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2303 putc (XINT (c), dribble);
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2304 else
12087
3bbf71f1cf30 (cmd_error): Use NULL, not 0, as arg to cmd_error_internal.
Karl Heuer <kwzh@gnu.org>
parents: 12007
diff changeset
2305 fprintf (dribble, " 0x%x", (int) XUINT (c));
8569
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
2306 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2307 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2308 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2309 Lisp_Object dribblee;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2310
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2311 /* If it's a structured event, take the event header. */
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2312 dribblee = EVENT_HEAD (c);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2313
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2314 if (SYMBOLP (dribblee))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2315 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2316 putc ('<', dribble);
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
2317 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
2318 XSYMBOL (dribblee)->name->size,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2319 dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2320 putc ('>', dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2321 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2322 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2323
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2324 fflush (dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2325 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2326
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2327 store_kbd_macro_char (c);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2328
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
2329 num_nonmacro_input_chars++;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2330 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2331
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2332 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2333 print_help (object)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2334 Lisp_Object object;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2335 {
9864
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
2336 struct buffer *old = current_buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2337 Fprinc (object, Qnil);
9864
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
2338 set_buffer_internal (XBUFFER (Vstandard_output));
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
2339 call0 (intern ("help-mode"));
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
2340 set_buffer_internal (old);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2341 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2342 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2343
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2344 /* Copy out or in the info on where C-g should throw to.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2345 This is used when running Lisp code from within get_char,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2346 in case get_char is called recursively.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2347 See read_process_output. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2348
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2349 save_getcjmp (temp)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2350 jmp_buf temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2351 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2352 bcopy (getcjmp, temp, sizeof getcjmp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2353 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2354
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2355 restore_getcjmp (temp)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2356 jmp_buf temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2357 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2358 bcopy (temp, getcjmp, sizeof getcjmp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2359 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2360
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
2361 #ifdef HAVE_MOUSE
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
2362
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2363 /* Restore mouse tracking enablement. See Ftrack_mouse for the only use
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2364 of this function. */
9618
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
2365
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2366 static Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2367 tracking_off (old_value)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2368 Lisp_Object old_value;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2369 {
9881
02cd4dde69e1 (tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents: 9864
diff changeset
2370 do_mouse_tracking = old_value;
02cd4dde69e1 (tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents: 9864
diff changeset
2371 if (NILP (old_value))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2372 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2373 /* Redisplay may have been preempted because there was input
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2374 available, and it assumes it will be called again after the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2375 input has been processed. If the only input available was
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2376 the sort that we have just disabled, then we need to call
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2377 redisplay. */
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2378 if (!readable_events (1))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2379 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2380 redisplay_preserve_echo_area ();
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2381 get_input_pending (&input_pending, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2382 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2383 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2384 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2385
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2386 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
2387 "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
2388 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
2389 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
2390 Normally, mouse motion is ignored.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2391 (args)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2392 Lisp_Object args;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2393 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2394 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2395 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2396
9618
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
2397 record_unwind_protect (tracking_off, do_mouse_tracking);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2398
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2399 do_mouse_tracking = Qt;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2400
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2401 val = Fprogn (args);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2402 return unbind_to (count, val);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2403 }
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
2404
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2405 /* If mouse has moved on some frame, return one of those frames.
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2406 Return 0 otherwise. */
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2407
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2408 static FRAME_PTR
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2409 some_mouse_moved ()
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2410 {
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2411 Lisp_Object tail, frame;
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2412
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2413 FOR_EACH_FRAME (tail, frame)
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2414 {
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2415 if (XFRAME (frame)->mouse_moved)
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2416 return XFRAME (frame);
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2417 }
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2418
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2419 return 0;
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2420 }
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2421
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
2422 #endif /* HAVE_MOUSE */
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2423
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2424 /* 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
2425 kbd_buffer_store_event places events in kbd_buffer, and
13324
cff657a37032 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13309
diff changeset
2426 kbd_buffer_get_event retrieves them. */
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2427
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2428 /* 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
2429 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
2430 static int
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2431 readable_events (do_timers_now)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2432 int do_timers_now;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2433 {
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2434 if (do_timers_now)
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2435 timer_check (do_timers_now);
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2436
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2437 if (kbd_fetch_ptr != kbd_store_ptr)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2438 return 1;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2439 #ifdef HAVE_MOUSE
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2440 if (!NILP (do_mouse_tracking) && some_mouse_moved ())
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2441 return 1;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2442 #endif
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2443 if (single_kboard)
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2444 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2445 if (current_kboard->kbd_queue_has_data)
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2446 return 1;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2447 }
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2448 else
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2449 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2450 KBOARD *kb;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2451 for (kb = all_kboards; kb; kb = kb->next_kboard)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2452 if (kb->kbd_queue_has_data)
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2453 return 1;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2454 }
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2455 return 0;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2456 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2457
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2458 /* 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
2459 int stop_character;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2460
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2461 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2462 static KBOARD *
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2463 event_to_kboard (event)
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2464 struct input_event *event;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2465 {
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2466 Lisp_Object frame;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2467 frame = event->frame_or_window;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2468 if (CONSP (frame))
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2469 frame = XCONS (frame)->car;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2470 else if (WINDOWP (frame))
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2471 frame = WINDOW_FRAME (XWINDOW (frame));
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2472
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2473 /* There are still some events that don't set this field.
11167
5ba84aee3999 (event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents: 11165
diff changeset
2474 For now, just ignore the problem.
5ba84aee3999 (event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents: 11165
diff changeset
2475 Also ignore dead frames here. */
5ba84aee3999 (event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents: 11165
diff changeset
2476 if (!FRAMEP (frame) || !FRAME_LIVE_P (XFRAME (frame)))
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2477 return 0;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2478 else
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2479 return FRAME_KBOARD (XFRAME (frame));
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2480 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2481 #endif
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2482
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2483 /* Store an event obtained at interrupt level into kbd_buffer, fifo */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2484
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2485 void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2486 kbd_buffer_store_event (event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2487 register struct input_event *event;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2488 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2489 if (event->kind == no_event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2490 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2491
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2492 if (event->kind == ascii_keystroke)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2493 {
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
2494 register int c = event->code & 0377;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2495
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2496 if (event->modifiers & ctrl_modifier)
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2497 c = make_ctrl_char (c);
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2498
4282
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
2499 c |= (event->modifiers
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
2500 & (meta_modifier | alt_modifier
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
2501 | hyper_modifier | super_modifier));
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
2502
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2503 if (c == quit_char)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2504 {
985
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
2505 extern SIGTYPE interrupt_signal ();
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2506 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2507 KBOARD *kb;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2508 struct input_event *sp;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2509
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2510 if (single_kboard
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2511 && (kb = FRAME_KBOARD (XFRAME (event->frame_or_window)),
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2512 kb != current_kboard))
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2513 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2514 kb->kbd_queue
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2515 = Fcons (make_lispy_switch_frame (event->frame_or_window),
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2516 Fcons (make_number (c), Qnil));
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2517 kb->kbd_queue_has_data = 1;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2518 for (sp = kbd_fetch_ptr; sp != kbd_store_ptr; sp++)
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2519 {
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2520 if (sp == kbd_buffer + KBD_BUFFER_SIZE)
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2521 sp = kbd_buffer;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2522
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2523 if (event_to_kboard (sp) == kb)
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2524 {
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2525 sp->kind = no_event;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2526 sp->frame_or_window = Qnil;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2527 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2528 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2529 return;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2530 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2531 #endif
985
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
2532
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2533 /* 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
2534 input, set Vlast_event_frame properly. If this doesn't
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2535 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
2536 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
2537 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2538 Lisp_Object focus;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2539
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2540 focus = FRAME_FOCUS_FRAME (XFRAME (event->frame_or_window));
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2541 if (NILP (focus))
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2542 focus = event->frame_or_window;
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2543 internal_last_event_frame = focus;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2544 Vlast_event_frame = focus;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2545 }
985
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
2546
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2547 last_event_timestamp = event->timestamp;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2548 interrupt_signal ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2549 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2550 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2551
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2552 if (c && c == stop_character)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2553 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2554 sys_suspend ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2555 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2556 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2557 }
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
2558 /* Don't insert two buffer_switch_event's in a row.
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
2559 Just ignore the second one. */
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
2560 else if (event->kind == buffer_switch_event
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
2561 && kbd_fetch_ptr != kbd_store_ptr
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
2562 && kbd_store_ptr->kind == buffer_switch_event)
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
2563 return;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2564
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2565 if (kbd_store_ptr - kbd_buffer == KBD_BUFFER_SIZE)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2566 kbd_store_ptr = kbd_buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2567
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2568 /* Don't let the very last slot in the buffer become full,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2569 since that would make the two pointers equal,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2570 and that is indistinguishable from an empty buffer.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2571 Discard the event if it would fill the last slot. */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2572 if (kbd_fetch_ptr - 1 != kbd_store_ptr)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2573 {
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2574 volatile struct input_event *sp = kbd_store_ptr;
10551
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2575 sp->kind = event->kind;
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
2576 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
2577 {
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
2578 /* 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
2579 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
2580 in this case. */
10551
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2581 bcopy (event, (char *) sp, sizeof (*event));
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
2582 }
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
2583 else
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
2584 {
10551
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2585 sp->code = event->code;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2586 sp->part = event->part;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2587 sp->frame_or_window = event->frame_or_window;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2588 sp->modifiers = event->modifiers;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2589 sp->x = event->x;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2590 sp->y = event->y;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
2591 sp->timestamp = event->timestamp;
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
2592 }
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2593 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_store_ptr
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2594 - kbd_buffer]
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2595 = event->frame_or_window);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2596
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2597 kbd_store_ptr++;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2598 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2599 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2600
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2601 /* 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
2602 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
2603 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
2604 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
2605 We always read and discard one event. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2606
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2607 static Lisp_Object
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2608 kbd_buffer_get_event (kbp, used_mouse_menu)
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2609 KBOARD **kbp;
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2610 int *used_mouse_menu;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2611 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2612 register int c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2613 Lisp_Object obj;
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2614 EMACS_TIME next_timer_delay;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2615
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2616 if (noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2617 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2618 c = getchar ();
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
2619 XSETINT (obj, c);
11167
5ba84aee3999 (event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents: 11165
diff changeset
2620 *kbp = current_kboard;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2621 return obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2622 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2623
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2624 /* Wait until there is input available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2625 for (;;)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2626 {
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2627 if (kbd_fetch_ptr != kbd_store_ptr)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2628 break;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2629 #ifdef HAVE_MOUSE
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2630 if (!NILP (do_mouse_tracking) && some_mouse_moved ())
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2631 break;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2632 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2633
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2634 /* If the quit flag is set, then read_char will return
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2635 quit_char, so that counts as "available input." */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2636 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2637 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2638
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2639 /* One way or another, wait until input is available; then, if
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2640 interrupt handlers have not read it, read it now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2641
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2642 #ifdef OLDVMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2643 wait_for_kbd_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2644 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2645 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2646 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2647 gobble_input (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2648 #endif /* SIGIO */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2649 if (kbd_fetch_ptr != kbd_store_ptr)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2650 break;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2651 #ifdef HAVE_MOUSE
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2652 if (!NILP (do_mouse_tracking) && some_mouse_moved ())
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2653 break;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2654 #endif
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2655 {
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2656 Lisp_Object minus_one;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2657
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2658 XSETINT (minus_one, -1);
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2659 wait_reading_process_input (0, 0, minus_one, 1);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2660
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2661 if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2662 /* Pass 1 for EXPECT since we just waited to have input. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2663 read_avail_input (1);
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2664 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2665 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2666 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2667
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2668 /* At this point, we know that there is a readable event available
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2669 somewhere. If the event queue is empty, then there must be a
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2670 mouse movement enabled and available. */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2671 if (kbd_fetch_ptr != kbd_store_ptr)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2672 {
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2673 struct input_event *event;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2674
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2675 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2676 ? kbd_fetch_ptr
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2677 : kbd_buffer);
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2678
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2679 last_event_timestamp = event->timestamp;
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
2680
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2681 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2682 *kbp = event_to_kboard (event);
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2683 if (*kbp == 0)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2684 *kbp = current_kboard; /* Better than returning null ptr? */
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2685 #else
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2686 *kbp = &the_only_kboard;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2687 #endif
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2688
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2689 obj = Qnil;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2690
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2691 /* 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
2692 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
2693 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
2694 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
2695 {
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2696 #ifdef HAVE_X11
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2697 struct input_event copy;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2698
10635
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
2699 /* Remove it from the buffer before processing it,
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
2700 since otherwise swallow_events will see it
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
2701 and process it again. */
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2702 copy = *event;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2703 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2704 input_pending = readable_events (0);
10635
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
2705 x_handle_selection_request (&copy);
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2706 #else
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2707 /* 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
2708 a window system. */
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2709 abort ();
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2710 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2711 }
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2712
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2713 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
2714 {
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2715 #ifdef HAVE_X11
12712
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2716 struct input_event copy;
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2717
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2718 /* Remove it from the buffer before processing it. */
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2719 copy = *event;
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2720 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2721 input_pending = readable_events (0);
12729
21110e58640c (kbd_buffer_get_event, swallow_events): Fix prev change.
Richard M. Stallman <rms@gnu.org>
parents: 12712
diff changeset
2722 x_handle_selection_clear (&copy);
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2723 #else
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2724 /* 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
2725 a window system. */
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2726 abort ();
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2727 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2728 }
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
2729 #if defined (HAVE_X11) || defined (HAVE_NTGUI)
5133
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
2730 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
2731 {
9215
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
2732 /* Make an event (delete-frame (FRAME)). */
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
2733 obj = Fcons (event->frame_or_window, Qnil);
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2734 obj = Fcons (Qdelete_frame, Fcons (obj, Qnil));
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2735 kbd_fetch_ptr = event + 1;
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2736 }
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2737 else if (event->kind == iconify_event)
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2738 {
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2739 /* Make an event (iconify-frame (FRAME)). */
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2740 obj = Fcons (event->frame_or_window, Qnil);
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2741 obj = Fcons (Qiconify_frame, Fcons (obj, Qnil));
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2742 kbd_fetch_ptr = event + 1;
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2743 }
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2744 else if (event->kind == deiconify_event)
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2745 {
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2746 /* Make an event (make-frame-visible (FRAME)). */
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2747 obj = Fcons (event->frame_or_window, Qnil);
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
2748 obj = Fcons (Qmake_frame_visible, Fcons (obj, Qnil));
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2749 kbd_fetch_ptr = event + 1;
5133
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
2750 }
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
2751 #endif
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
2752 else if (event->kind == buffer_switch_event)
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
2753 {
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
2754 /* The value doesn't matter here; only the type is tested. */
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
2755 XSETBUFFER (obj, current_buffer);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2756 kbd_fetch_ptr = event + 1;
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
2757 }
12659
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
2758 #ifdef USE_X_TOOLKIT
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
2759 else if (event->kind == menu_bar_activate_event)
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
2760 {
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
2761 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2762 input_pending = readable_events (0);
15474
0b4fc263d4f2 (kbd_buffer_get_event): Don't call x_activate_menubar for a deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 15412
diff changeset
2763 if (FRAME_LIVE_P (XFRAME (event->frame_or_window)))
0b4fc263d4f2 (kbd_buffer_get_event): Don't call x_activate_menubar for a deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 15412
diff changeset
2764 x_activate_menubar (XFRAME (event->frame_or_window));
12659
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
2765 }
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
2766 #endif
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2767 /* Just discard these, by returning nil.
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2768 With MULTI_KBOARD, these events are used as placeholders
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2769 when we need to randomly delete events from the queue.
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2770 (They shouldn't otherwise be found in the buffer,
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
2771 but on some machines it appears they do show up
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2772 even without MULTI_KBOARD.) */
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2773 else if (event->kind == no_event)
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2774 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
2775
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2776 /* 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
2777 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
2778 else
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2779 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2780 Lisp_Object frame;
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2781 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
2782
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2783 frame = event->frame_or_window;
11285
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
2784 if (CONSP (frame))
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
2785 frame = XCONS (frame)->car;
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
2786 else if (WINDOWP (frame))
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2787 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
2788
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2789 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
2790 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
2791 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
2792
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2793 if (! EQ (frame, internal_last_event_frame)
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2794 && 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
2795 obj = make_lispy_switch_frame (frame);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2796 internal_last_event_frame = frame;
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2797
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2798 /* 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
2799 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
2800
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2801 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
2802 {
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2803 obj = make_lispy_event (event);
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
2804 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI)
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2805 /* If this was a menu selection, then set the flag to inhibit
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2806 writing to last_nonmenu_event. Don't do this if the event
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2807 we're returning is (menu-bar), though; that indicates the
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2808 beginning of the menu sequence, and we might as well leave
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2809 that as the `event with parameters' for this selection. */
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2810 if (event->kind == menu_bar_event
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2811 && !(CONSP (obj) && EQ (XCONS (obj)->car, Qmenu_bar))
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2812 && used_mouse_menu)
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2813 *used_mouse_menu = 1;
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2814 #endif
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2815
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2816 /* 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
2817 event->kind = no_event;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2818 XVECTOR (kbd_buffer_frame_or_window)->contents[event - kbd_buffer] = Qnil;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2819
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2820 kbd_fetch_ptr = event + 1;
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2821 }
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
2822 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2823 }
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
2824 #ifdef HAVE_MOUSE
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2825 /* Try generating a mouse motion event. */
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2826 else if (!NILP (do_mouse_tracking) && some_mouse_moved ())
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2827 {
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
2828 FRAME_PTR f = some_mouse_moved ();
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2829 Lisp_Object bar_window;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2830 enum scroll_bar_part part;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2831 Lisp_Object x, y;
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2832 unsigned long time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2833
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2834 *kbp = current_kboard;
9668
38a4e4386aed (kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents: 9652
diff changeset
2835 /* Note that this uses F to determine which display to look at.
38a4e4386aed (kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents: 9652
diff changeset
2836 If there is no valid info, it does not store anything
38a4e4386aed (kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents: 9652
diff changeset
2837 so x remains nil. */
38a4e4386aed (kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents: 9652
diff changeset
2838 x = Qnil;
11127
53e4f014e31c (kbd_buffer_get_event): Pass 0 for `insist' arg.
Richard M. Stallman <rms@gnu.org>
parents: 11026
diff changeset
2839 (*mouse_position_hook) (&f, 0, &bar_window, &part, &x, &y, &time);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2840
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2841 obj = Qnil;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2842
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2843 /* 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
2844 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
2845 frames. */
9668
38a4e4386aed (kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents: 9652
diff changeset
2846 if (!NILP (x) && f)
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2847 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2848 Lisp_Object frame;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2849
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
2850 frame = FRAME_FOCUS_FRAME (f);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2851 if (NILP (frame))
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
2852 XSETFRAME (frame, f);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2853
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2854 if (! EQ (frame, internal_last_event_frame)
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2855 && XFRAME (frame) != selected_frame)
3929
d620db2bc420 * keyboard.c (kbd_buffer_get_event): Correctly generate
Jim Blandy <jimb@redhat.com>
parents: 3920
diff changeset
2856 obj = make_lispy_switch_frame (frame);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2857 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
2858 }
8247
26dbb6234efd (safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents: 8238
diff changeset
2859
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2860 /* If we didn't decide to make a switch-frame event, go ahead and
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2861 return a mouse-motion event. */
9668
38a4e4386aed (kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents: 9652
diff changeset
2862 if (!NILP (x) && NILP (obj))
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2863 obj = make_lispy_movement (f, bar_window, part, x, y, time);
6805
8310b2eb6b06 (make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents: 6749
diff changeset
2864 }
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
2865 #endif /* HAVE_MOUSE */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2866 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2867 /* We were promised by the above while loop that there was
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2868 something for us to read! */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2869 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2870
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2871 input_pending = readable_events (0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2872
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2873 Vlast_event_frame = internal_last_event_frame;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2874
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2875 return (obj);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2876 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2877
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2878 /* 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
2879 then return, without reading any user-visible events. */
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2880
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2881 void
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2882 swallow_events (do_display)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2883 int do_display;
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2884 {
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
2885 int old_timers_run;
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
2886
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2887 while (kbd_fetch_ptr != kbd_store_ptr)
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2888 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2889 struct input_event *event;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2890
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2891 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2892 ? kbd_fetch_ptr
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2893 : kbd_buffer);
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2894
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2895 last_event_timestamp = event->timestamp;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2896
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2897 /* These two kinds of events get special handling
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2898 and don't actually appear to the command loop. */
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2899 if (event->kind == selection_request_event)
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2900 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2901 #ifdef HAVE_X11
10635
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
2902 struct input_event copy;
12712
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2903
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2904 /* Remove it from the buffer before processing it,
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2905 since otherwise swallow_events called recursively could see it
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2906 and process it again. */
10635
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
2907 copy = *event;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2908 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2909 input_pending = readable_events (0);
10635
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
2910 x_handle_selection_request (&copy);
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2911 #else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2912 /* 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
2913 a window system. */
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2914 abort ();
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2915 #endif
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2916 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2917
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2918 else if (event->kind == selection_clear_event)
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2919 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2920 #ifdef HAVE_X11
12712
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2921 struct input_event copy;
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2922
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2923 /* Remove it from the buffer before processing it, */
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2924 copy = *event;
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2925
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
2926 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2927 input_pending = readable_events (0);
12729
21110e58640c (kbd_buffer_get_event, swallow_events): Fix prev change.
Richard M. Stallman <rms@gnu.org>
parents: 12712
diff changeset
2928 x_handle_selection_clear (&copy);
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2929 #else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2930 /* 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
2931 a window system. */
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2932 abort ();
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2933 #endif
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2934 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2935 else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2936 break;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2937 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2938
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
2939 old_timers_run = timers_run;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2940 get_input_pending (&input_pending, 1);
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
2941
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
2942 if (timers_run != old_timers_run && do_display)
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
2943 redisplay_preserve_echo_area ();
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2944 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2945
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2946 static EMACS_TIME timer_idleness_start_time;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2947
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2948 /* Record the start of when Emacs is idle,
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2949 for the sake of running idle-time timers. */
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2950
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2951 timer_start_idle ()
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2952 {
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2953 Lisp_Object timers;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2954
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2955 /* If we are already in the idle state, do nothing. */
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2956 if (! EMACS_TIME_NEG_P (timer_idleness_start_time))
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2957 return;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2958
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2959 EMACS_GET_TIME (timer_idleness_start_time);
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2960
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2961 /* Mark all idle-time timers as once again candidates for running. */
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2962 for (timers = Vtimer_idle_list; CONSP (timers); timers = XCONS (timers)->cdr)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2963 {
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2964 Lisp_Object timer;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2965
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2966 timer = XCONS (timers)->car;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2967
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2968 if (!VECTORP (timer) || XVECTOR (timer)->size != 8)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2969 continue;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2970 XVECTOR (timer)->contents[0] = Qnil;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2971 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2972 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2973
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2974 /* Record that Emacs is no longer idle, so stop running idle-time timers. */
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2975
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2976 timer_stop_idle ()
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2977 {
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2978 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1);
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2979 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2980
14904
5025ab10c28c (last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 14773
diff changeset
2981 /* This is only for debugging. */
5025ab10c28c (last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 14773
diff changeset
2982 struct input_event last_timer_event;
5025ab10c28c (last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 14773
diff changeset
2983
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2984 /* Check whether a timer has fired. To prevent larger problems we simply
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2985 disregard elements that are not proper timers. Do not make a circular
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2986 timer list for the time being.
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2987
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2988 Returns the number of seconds to wait until the next timer fires. If a
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2989 timer is triggering now, return zero seconds.
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2990 If no timer is active, return -1 seconds.
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2991
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2992 If a timer is ripe, we run it, with quitting turned off.
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2993
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2994 DO_IT_NOW is now ignored. It used to mean that we should
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2995 run the timer directly instead of queueing a timer-event.
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2996 Now we always run timers directly. */
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2997
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2998 EMACS_TIME
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
2999 timer_check (do_it_now)
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3000 int do_it_now;
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3001 {
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3002 EMACS_TIME nexttime;
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3003 EMACS_TIME now, idleness_now;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3004 Lisp_Object timers, idle_timers, chosen_timer;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3005 struct gcpro gcpro1, gcpro2, gcpro3;
14453
58afa829c736 (make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents: 14406
diff changeset
3006
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3007 EMACS_SET_SECS (nexttime, -1);
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3008 EMACS_SET_USECS (nexttime, -1);
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3009
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3010 /* Always consider the ordinary timers. */
14453
58afa829c736 (make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents: 14406
diff changeset
3011 timers = Vtimer_list;
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3012 /* Consider the idle timers only if Emacs is idle. */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3013 if (! EMACS_TIME_NEG_P (timer_idleness_start_time))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3014 idle_timers = Vtimer_idle_list;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3015 else
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3016 idle_timers = Qnil;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3017 chosen_timer = Qnil;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3018 GCPRO3 (timers, idle_timers, chosen_timer);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3019
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3020 if (CONSP (timers) || CONSP (idle_timers))
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3021 {
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3022 EMACS_GET_TIME (now);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3023 if (! EMACS_TIME_NEG_P (timer_idleness_start_time))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3024 EMACS_SUB_TIME (idleness_now, now, timer_idleness_start_time);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3025 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3026
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3027 while (CONSP (timers) || CONSP (idle_timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3028 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3029 int triggertime = EMACS_SECS (now);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3030 Lisp_Object *vector;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3031 Lisp_Object timer, idle_timer;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3032 EMACS_TIME timer_time, idle_timer_time;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3033 EMACS_TIME difference, timer_difference, idle_timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3034
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3035 /* Skip past invalid timers and timers already handled. */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3036 if (!NILP (timers))
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3037 {
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3038 timer = XCONS (timers)->car;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3039 if (!VECTORP (timer) || XVECTOR (timer)->size != 8)
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3040 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3041 timers = XCONS (timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3042 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3043 }
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3044 vector = XVECTOR (timer)->contents;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3045
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3046 if (!INTEGERP (vector[1]) || !INTEGERP (vector[2])
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3047 || !INTEGERP (vector[3])
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3048 || ! NILP (vector[0]))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3049 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3050 timers = XCONS (timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3051 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3052 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3053 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3054 if (!NILP (idle_timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3055 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3056 timer = XCONS (idle_timers)->car;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3057 if (!VECTORP (timer) || XVECTOR (timer)->size != 8)
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3058 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3059 idle_timers = XCONS (idle_timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3060 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3061 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3062 vector = XVECTOR (timer)->contents;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3063
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3064 if (!INTEGERP (vector[1]) || !INTEGERP (vector[2])
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3065 || !INTEGERP (vector[3])
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3066 || ! NILP (vector[0]))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3067 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3068 idle_timers = XCONS (idle_timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3069 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3070 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3071 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3072
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3073 /* Set TIMER, TIMER_TIME and TIMER_DIFFERENCE
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3074 based on the next ordinary timer.
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3075 TIMER_DIFFERENCE is the distance in time from NOW to when
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3076 this timer becomes ripe (negative if it's already ripe). */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3077 if (!NILP (timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3078 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3079 timer = XCONS (timers)->car;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3080 vector = XVECTOR (timer)->contents;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3081 EMACS_SET_SECS (timer_time,
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3082 (XINT (vector[1]) << 16) | (XINT (vector[2])));
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
3083 EMACS_SET_USECS (timer_time, XINT (vector[3]));
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3084 EMACS_SUB_TIME (timer_difference, timer_time, now);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3085 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3086
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3087 /* Set IDLE_TIMER, IDLE_TIMER_TIME and IDLE_TIMER_DIFFERENCE
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3088 based on the next idle timer. */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3089 if (!NILP (idle_timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3090 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3091 idle_timer = XCONS (idle_timers)->car;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3092 vector = XVECTOR (idle_timer)->contents;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3093 EMACS_SET_SECS (idle_timer_time,
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3094 (XINT (vector[1]) << 16) | (XINT (vector[2])));
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3095 EMACS_SET_USECS (idle_timer_time, XINT (vector[3]));
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3096 EMACS_SUB_TIME (idle_timer_difference, idle_timer_time, idleness_now);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3097 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3098
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3099 /* Decide which timer is the next timer,
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3100 and set CHOSEN_TIMER, VECTOR and DIFFERENCE accordingly.
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3101 Also step down the list where we found that timer. */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3102
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3103 if (! NILP (timers) && ! NILP (idle_timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3104 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3105 EMACS_TIME temp;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3106 EMACS_SUB_TIME (temp, timer_difference, idle_timer_difference);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3107 if (EMACS_TIME_NEG_P (temp))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3108 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3109 chosen_timer = timer;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3110 timers = XCONS (timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3111 difference = timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3112 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3113 else
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3114 {
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3115 chosen_timer = idle_timer;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3116 idle_timers = XCONS (idle_timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3117 difference = idle_timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3118 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3119 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3120 else if (! NILP (timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3121 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3122 chosen_timer = timer;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3123 timers = XCONS (timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3124 difference = timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3125 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3126 else
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3127 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3128 chosen_timer = idle_timer;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3129 idle_timers = XCONS (idle_timers)->cdr;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3130 difference = idle_timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3131 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3132 vector = XVECTOR (chosen_timer)->contents;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3133
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3134 /* If timer is rupe, run it if it hasn't been run. */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3135 if (EMACS_TIME_NEG_P (difference)
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3136 || (EMACS_SECS (difference) == 0
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3137 && EMACS_USECS (difference) == 0))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3138 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3139 if (NILP (vector[0]))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3140 {
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3141 Lisp_Object tem;
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3142 int was_locked = single_kboard;
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3143 int count = specpdl_ptr - specpdl;
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3144
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3145 /* Mark the timer as triggered to prevent problems if the lisp
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3146 code fails to reschedule it right. */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3147 vector[0] = Qt;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3148
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3149 specbind (Qinhibit_quit, Qt);
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3150
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3151 call1 (Qtimer_event_handler, chosen_timer);
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3152 timers_run++;
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3153
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3154 unbind_to (count, Qnil);
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3155
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3156 /* Resume allowing input from any kboard, if that was true before. */
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3157 if (!was_locked)
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3158 any_kboard_state ();
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3159
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3160 /* Since we have handled the event,
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
3161 we don't need to tell the caller to wake up and do it. */
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3162 }
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3163 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3164 else
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3165 /* When we encounter a timer that is still waiting,
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3166 return the amount of time to wait before it is ripe. */
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3167 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3168 UNGCPRO;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3169 return difference;
14453
58afa829c736 (make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents: 14406
diff changeset
3170 }
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3171 }
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
3172
14453
58afa829c736 (make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents: 14406
diff changeset
3173 /* No timers are pending in the future. */
58afa829c736 (make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents: 14406
diff changeset
3174 /* Return 0 if we generated an event, and -1 if not. */
58afa829c736 (make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents: 14406
diff changeset
3175 UNGCPRO;
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3176 return nexttime;
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3177 }
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
3178
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3179 /* Caches for modify_event_symbol. */
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3180 static Lisp_Object accent_key_syms;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3181 static Lisp_Object func_key_syms;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3182 static Lisp_Object mouse_syms;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3183
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3184 /* This is a list of keysym codes for special "accent" characters.
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3185 It parallels lispy_accent_keys. */
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3186
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3187 static int lispy_accent_codes[] =
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3188 {
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3189 #ifdef XK_dead_circumflex
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3190 XK_dead_circumflex,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3191 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3192 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3193 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3194 #ifdef XK_dead_grave
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3195 XK_dead_grave,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3196 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3197 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3198 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3199 #ifdef XK_dead_tilde
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3200 XK_dead_tilde,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3201 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3202 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3203 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3204 #ifdef XK_dead_diaeresis
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3205 XK_dead_diaeresis,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3206 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3207 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3208 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3209 #ifdef XK_dead_macron
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3210 XK_dead_macron,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3211 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3212 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3213 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3214 #ifdef XK_dead_degree
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3215 XK_dead_degree,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3216 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3217 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3218 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3219 #ifdef XK_dead_acute
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3220 XK_dead_acute,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3221 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3222 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3223 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3224 #ifdef XK_dead_cedilla
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3225 XK_dead_cedilla,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3226 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3227 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3228 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3229 #ifdef XK_dead_breve
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3230 XK_dead_breve,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3231 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3232 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3233 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3234 #ifdef XK_dead_ogonek
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3235 XK_dead_ogonek,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3236 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3237 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3238 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3239 #ifdef XK_dead_caron
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3240 XK_dead_caron,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3241 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3242 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3243 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3244 #ifdef XK_dead_doubleacute
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3245 XK_dead_doubleacute,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3246 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3247 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3248 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3249 #ifdef XK_dead_abovedot
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3250 XK_dead_abovedot,
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3251 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3252 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3253 #endif
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3254 };
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3255
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3256 /* This is a list of Lisp names for special "accent" characters.
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3257 It parallels lispy_accent_codes. */
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3258
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3259 static char *lispy_accent_keys[] =
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3260 {
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3261 "dead-circumflex",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3262 "dead-grave",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3263 "dead-tilde",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3264 "dead-diaeresis",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3265 "dead-macron",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3266 "dead-degree",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3267 "dead-acute",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3268 "dead-cedilla",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3269 "dead-breve",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3270 "dead-ogonek",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3271 "dead-caron",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3272 "dead-doubleacute",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3273 "dead-abovedot",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3274 };
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3275
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3276 #ifdef HAVE_NTGUI
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3277 #define FUNCTION_KEY_OFFSET 0x0
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3278
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3279 char *lispy_function_keys[] =
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3280 {
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3281 0, /* 0 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3282
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3283 0, /* VK_LBUTTON 0x01 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3284 0, /* VK_RBUTTON 0x02 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3285 "cancel", /* VK_CANCEL 0x03 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3286 0, /* VK_MBUTTON 0x04 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3287
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3288 0, 0, 0, /* 0x05 .. 0x07 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3289
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3290 "backspace", /* VK_BACK 0x08 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3291 "tab", /* VK_TAB 0x09 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3292
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3293 0, 0, /* 0x0A .. 0x0B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3294
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3295 "clear", /* VK_CLEAR 0x0C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3296 "return", /* VK_RETURN 0x0D */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3297
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3298 0, 0, /* 0x0E .. 0x0F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3299
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3300 "shift", /* VK_SHIFT 0x10 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3301 "control", /* VK_CONTROL 0x11 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3302 "menu", /* VK_MENU 0x12 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3303 "pause", /* VK_PAUSE 0x13 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3304 "capital", /* VK_CAPITAL 0x14 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3305
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3306 0, 0, 0, 0, 0, 0, /* 0x15 .. 0x1A */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3307
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3308 0, /* VK_ESCAPE 0x1B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3309
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3310 0, 0, 0, 0, /* 0x1C .. 0x1F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3311
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3312 0, /* VK_SPACE 0x20 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3313 "prior", /* VK_PRIOR 0x21 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3314 "next", /* VK_NEXT 0x22 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3315 "end", /* VK_END 0x23 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3316 "home", /* VK_HOME 0x24 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3317 "left", /* VK_LEFT 0x25 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3318 "up", /* VK_UP 0x26 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3319 "right", /* VK_RIGHT 0x27 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3320 "down", /* VK_DOWN 0x28 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3321 "select", /* VK_SELECT 0x29 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3322 "print", /* VK_PRINT 0x2A */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3323 "execute", /* VK_EXECUTE 0x2B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3324 "snapshot", /* VK_SNAPSHOT 0x2C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3325 "insert", /* VK_INSERT 0x2D */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3326 "delete", /* VK_DELETE 0x2E */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3327 "help", /* VK_HELP 0x2F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3328
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3329 /* VK_0 thru VK_9 are the same as ASCII '0' thru '9' (0x30 - 0x39) */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3330
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3331 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3332
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3333 0, 0, 0, 0, 0, 0, 0, /* 0x3A .. 0x40 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3334
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3335 /* VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' (0x41 - 0x5A) */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3336
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3337 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3338 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3339 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3340
14550
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3341 "lwindow", /* VK_LWIN 0x5B */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3342 "rwindow", /* VK_RWIN 0x5C */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3343 "apps", /* VK_APPS 0x5D */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3344
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3345 0, 0, /* 0x5E .. 0x5F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3346
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3347 "kp-0", /* VK_NUMPAD0 0x60 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3348 "kp-1", /* VK_NUMPAD1 0x61 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3349 "kp-2", /* VK_NUMPAD2 0x62 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3350 "kp-3", /* VK_NUMPAD3 0x63 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3351 "kp-4", /* VK_NUMPAD4 0x64 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3352 "kp-5", /* VK_NUMPAD5 0x65 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3353 "kp-6", /* VK_NUMPAD6 0x66 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3354 "kp-7", /* VK_NUMPAD7 0x67 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3355 "kp-8", /* VK_NUMPAD8 0x68 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3356 "kp-9", /* VK_NUMPAD9 0x69 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3357 "kp-multiply", /* VK_MULTIPLY 0x6A */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3358 "kp-add", /* VK_ADD 0x6B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3359 "kp-separator", /* VK_SEPARATOR 0x6C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3360 "kp-subtract", /* VK_SUBTRACT 0x6D */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3361 "kp-decimal", /* VK_DECIMAL 0x6E */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3362 "kp-divide", /* VK_DIVIDE 0x6F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3363 "f1", /* VK_F1 0x70 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3364 "f2", /* VK_F2 0x71 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3365 "f3", /* VK_F3 0x72 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3366 "f4", /* VK_F4 0x73 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3367 "f5", /* VK_F5 0x74 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3368 "f6", /* VK_F6 0x75 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3369 "f7", /* VK_F7 0x76 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3370 "f8", /* VK_F8 0x77 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3371 "f9", /* VK_F9 0x78 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3372 "f10", /* VK_F10 0x79 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3373 "f11", /* VK_F11 0x7A */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3374 "f12", /* VK_F12 0x7B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3375 "f13", /* VK_F13 0x7C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3376 "f14", /* VK_F14 0x7D */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3377 "f15", /* VK_F15 0x7E */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3378 "f16", /* VK_F16 0x7F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3379 "f17", /* VK_F17 0x80 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3380 "f18", /* VK_F18 0x81 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3381 "f19", /* VK_F19 0x82 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3382 "f20", /* VK_F20 0x83 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3383 "f21", /* VK_F21 0x84 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3384 "f22", /* VK_F22 0x85 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3385 "f23", /* VK_F23 0x86 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3386 "f24", /* VK_F24 0x87 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3387
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3388 0, 0, 0, 0, /* 0x88 .. 0x8B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3389 0, 0, 0, 0, /* 0x8C .. 0x8F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3390
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3391 "kp-numlock", /* VK_NUMLOCK 0x90 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3392 "scroll", /* VK_SCROLL 0x91 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3393
14550
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3394 "kp-space", /* VK_NUMPAD_CLEAR 0x92 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3395 "kp-enter", /* VK_NUMPAD_ENTER 0x93 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3396 "kp-prior", /* VK_NUMPAD_PRIOR 0x94 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3397 "kp-next", /* VK_NUMPAD_NEXT 0x95 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3398 "kp-end", /* VK_NUMPAD_END 0x96 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3399 "kp-home", /* VK_NUMPAD_HOME 0x97 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3400 "kp-left", /* VK_NUMPAD_LEFT 0x98 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3401 "kp-up", /* VK_NUMPAD_UP 0x99 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3402 "kp-right", /* VK_NUMPAD_RIGHT 0x9A */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3403 "kp-down", /* VK_NUMPAD_DOWN 0x9B */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3404 "kp-insert", /* VK_NUMPAD_INSERT 0x9C */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3405 "kp-delete", /* VK_NUMPAD_DELETE 0x9D */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3406
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3407 0, 0, /* 0x9E .. 0x9F */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
3408
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3409 /*
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3410 * VK_L* & VK_R* - left and right Alt, Ctrl and Shift virtual keys.
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3411 * Used only as parameters to GetAsyncKeyState() and GetKeyState().
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3412 * No other API or message will distinguish left and right keys this way.
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3413 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3414 /* 0xA0 .. 0xEF */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3415
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3416 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3417 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3418 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3419 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3420 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3421
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3422 /* 0xF0 .. 0xF5 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3423
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3424 0, 0, 0, 0, 0, 0,
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3425
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3426 "attn", /* VK_ATTN 0xF6 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3427 "crsel", /* VK_CRSEL 0xF7 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3428 "exsel", /* VK_EXSEL 0xF8 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3429 "ereof", /* VK_EREOF 0xF9 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3430 "play", /* VK_PLAY 0xFA */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3431 "zoom", /* VK_ZOOM 0xFB */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3432 "noname", /* VK_NONAME 0xFC */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3433 "pa1", /* VK_PA1 0xFD */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3434 "oem_clear", /* VK_OEM_CLEAR 0xFE */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3435 };
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3436
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3437 #else /* not HAVE_NTGUI */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3438
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3439 #ifdef XK_kana_A
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3440 static char *lispy_kana_keys[] =
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3441 {
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3442 /* X Keysym value */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3443 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x400 .. 0x40f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3444 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x410 .. 0x41f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3445 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x420 .. 0x42f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3446 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x430 .. 0x43f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3447 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x440 .. 0x44f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3448 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x450 .. 0x45f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3449 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x460 .. 0x46f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3450 0,0,0,0,0,0,0,0,0,0,0,0,0,0,"overline",0,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3451 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x480 .. 0x48f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3452 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x490 .. 0x49f */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3453 0, "kana-fullstop", "kana-openingbracket", "kana-closingbracket",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3454 "kana-comma", "kana-conjunctive", "kana-WO", "kana-a",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3455 "kana-i", "kana-u", "kana-e", "kana-o",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3456 "kana-ya", "kana-yu", "kana-yo", "kana-tsu",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3457 "prolongedsound", "kana-A", "kana-I", "kana-U",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3458 "kana-E", "kana-O", "kana-KA", "kana-KI",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3459 "kana-KU", "kana-KE", "kana-KO", "kana-SA",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3460 "kana-SHI", "kana-SU", "kana-SE", "kana-SO",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3461 "kana-TA", "kana-CHI", "kana-TSU", "kana-TE",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3462 "kana-TO", "kana-NA", "kana-NI", "kana-NU",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3463 "kana-NE", "kana-NO", "kana-HA", "kana-HI",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3464 "kana-FU", "kana-HE", "kana-HO", "kana-MA",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3465 "kana-MI", "kana-MU", "kana-ME", "kana-MO",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3466 "kana-YA", "kana-YU", "kana-YO", "kana-RA",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3467 "kana-RI", "kana-RU", "kana-RE", "kana-RO",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3468 "kana-WA", "kana-N", "voicedsound", "semivoicedsound",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3469 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x4e0 .. 0x4ef */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3470 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x4f0 .. 0x4ff */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3471 };
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3472 #endif /* XK_kana_A */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3473
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3474 #define FUNCTION_KEY_OFFSET 0xff00
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3475
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3476 /* You'll notice that this table is arranged to be conveniently
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3477 indexed by X Windows keysym values. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3478 static char *lispy_function_keys[] =
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3479 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3480 /* X Keysym value */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3481
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3482 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff00 */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3483 "backspace",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3484 "tab",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3485 "linefeed",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3486 "clear",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3487 0,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3488 "return",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3489 0, 0,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3490 0, 0, 0, /* 0xff10 */
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3491 "pause",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3492 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
3493 "escape",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3494 0, 0, 0, 0,
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3495 0, "kanji", "muhenkan",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3496 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff20...2f */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3497 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
3498 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
3499
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3500 "home", /* 0xff50 */ /* IsCursorKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3501 "left",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3502 "up",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3503 "right",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3504 "down",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3505 "prior",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3506 "next",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3507 "end",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3508 "begin",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3509 0, /* 0xff59 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3510 0, 0, 0, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3511 "select", /* 0xff60 */ /* IsMiscFunctionKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3512 "print",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3513 "execute",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3514 "insert",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3515 0, /* 0xff64 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3516 "undo",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3517 "redo",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3518 "menu",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3519 "find",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3520 "cancel",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3521 "help",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3522 "break", /* 0xff6b */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3523
7587
efaee8861ad4 (read_char_minibuf_menu_prompt): Don't forget to initialize nobindings.
Richard M. Stallman <rms@gnu.org>
parents: 7547
diff changeset
3524 0, 0, 0, 0, 0, 0, 0, 0, "backtab", 0,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3525 0, /* 0xff76 */
3054
57814bb76b37 (lispy_function_keys): Add kp-numlock. Fix kp-backspace.
Richard M. Stallman <rms@gnu.org>
parents: 3042
diff changeset
3526 0, 0, 0, 0, 0, 0, 0, 0, "kp-numlock", /* 0xff7f */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3527 "kp-space", /* 0xff80 */ /* IsKeypadKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3528 0, 0, 0, 0, 0, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3529 "kp-tab", /* 0xff89 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3530 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3531 "kp-enter", /* 0xff8d */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3532 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3533 "kp-f1", /* 0xff91 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3534 "kp-f2",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3535 "kp-f3",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3536 "kp-f4",
7547
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3537 "kp-home", /* 0xff95 */
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3538 "kp-left",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3539 "kp-up",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3540 "kp-right",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3541 "kp-down",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3542 "kp-prior", /* kp-page-up */
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3543 "kp-next", /* kp-page-down */
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3544 "kp-end",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3545 "kp-begin",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3546 "kp-insert",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3547 "kp-delete",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3548 0, /* 0xffa0 */
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
3549 0, 0, 0, 0, 0, 0, 0, 0, 0,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3550 "kp-multiply", /* 0xffaa */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3551 "kp-add",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3552 "kp-separator",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3553 "kp-subtract",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3554 "kp-decimal",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3555 "kp-divide", /* 0xffaf */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3556 "kp-0", /* 0xffb0 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3557 "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
3558 0, /* 0xffba */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3559 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3560 "kp-equal", /* 0xffbd */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3561 "f1", /* 0xffbe */ /* IsFunctionKey */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3562 "f2",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3563 "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
3564 "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
3565 "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
3566 "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
3567 "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
3568 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
3569 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
3570 0, 0, 0, 0, 0, 0, 0, "delete"
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3571 };
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3572
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3573 /* ISO 9995 Function and Modifier Keys; the first byte is 0xFE. */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3574 #define ISO_FUNCTION_KEY_OFFSET 0xfe00
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3575
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3576 static char *iso_lispy_function_keys[] =
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3577 {
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3578 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe00 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3579 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe08 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3580 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe10 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3581 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe18 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3582 "iso-lefttab", /* 0xfe20 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3583 "iso-move-line-up", "iso-move-line-down",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3584 "iso-partial-line-up", "iso-partial-line-down",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3585 "iso-partial-space-left", "iso-partial-space-right",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3586 "iso-set-margin-left", "iso-set-margin-right", /* 0xffe27, 28 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3587 "iso-release-margin-left", "iso-release-margin-right",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3588 "iso-release-both-margins",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3589 "iso-fast-cursor-left", "iso-fast-cursor-right",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3590 "iso-fast-cursor-up", "iso-fast-cursor-down",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3591 "iso-continuous-underline", "iso-discontinuous-underline", /* 0xfe30, 31 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3592 "iso-emphasize", "iso-center-object", "iso-enter", /* ... 0xfe34 */
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3593 };
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3594
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3595 #endif /* not HAVE_NTGUI */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
3596
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
3597 static char *lispy_mouse_names[] =
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3598 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3599 "mouse-1", "mouse-2", "mouse-3", "mouse-4", "mouse-5"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3600 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3601
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
3602 /* Scroll bar parts. */
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
3603 Lisp_Object Qabove_handle, Qhandle, Qbelow_handle;
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3604 Lisp_Object Qup, Qdown;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
3605
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
3606 /* 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
3607 Lisp_Object *scroll_bar_parts[] = {
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3608 &Qabove_handle, &Qhandle, &Qbelow_handle,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3609 &Qup, &Qdown,
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
3610 };
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
3611
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
3612
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3613 /* 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
3614 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
3615
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3616 The elements have the form
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3617 (BUTTON-NUMBER MODIFIER-MASK . REST)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3618 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
3619
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3620 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
3621 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
3622 location to be included in drag events. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3623
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3624 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
3625
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3626 /* 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
3627 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
3628
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3629 static int last_mouse_button;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3630 static int last_mouse_x;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3631 static int last_mouse_y;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3632 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
3633
3993
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
3634 /* 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
3635 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
3636 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
3637 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
3638
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3639 /* 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
3640
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3641 int double_click_count;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3642
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3643 /* Given a struct input_event, build the lisp event which represents
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3644 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
3645 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
3646
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3647 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
3648 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
3649 in order to build drag events when the button is released. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3650
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3651 static Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3652 make_lispy_event (event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3653 struct input_event *event;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3654 {
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3655 int i;
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
3656
10457
2ab3bd0288a9 Change all occurences of SWITCH_ENUM_BUG to use SWITCH_ENUM_CAST instead.
Karl Heuer <kwzh@gnu.org>
parents: 10433
diff changeset
3657 switch (SWITCH_ENUM_CAST (event->kind))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3658 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3659 /* A simple keystroke. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3660 case ascii_keystroke:
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3661 {
8938
16c1ca187613 (kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents: 8936
diff changeset
3662 Lisp_Object lispy_c;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3663 int c = event->code & 0377;
2867
5b72eb2483e7 * xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents: 2789
diff changeset
3664 /* 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
3665 when proper. */
5b72eb2483e7 * xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents: 2789
diff changeset
3666 if (event->modifiers & ctrl_modifier)
2954
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
3667 c = make_ctrl_char (c);
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
3668
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
3669 /* 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
3670 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
3671 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
3672 c |= (event->modifiers
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3673 & (meta_modifier | alt_modifier
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3674 | hyper_modifier | super_modifier));
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3675 button_down_time = 0;
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
3676 XSETFASTINT (lispy_c, c);
8938
16c1ca187613 (kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents: 8936
diff changeset
3677 return lispy_c;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3678 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3679
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3680 /* A function key. The symbol may need to have modifier prefixes
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3681 tacked onto it. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3682 case non_ascii_keystroke:
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3683 button_down_time = 0;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3684
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3685 for (i = 0; i < sizeof (lispy_accent_codes) / sizeof (int); i++)
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3686 if (event->code == lispy_accent_codes[i])
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3687 return modify_event_symbol (i,
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3688 event->modifiers,
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3689 Qfunction_key, Qnil,
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3690 lispy_accent_keys, &accent_key_syms,
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3691 (sizeof (lispy_accent_keys)
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3692 / sizeof (lispy_accent_keys[0])));
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3693
6096
443b78042b86 (Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents: 6053
diff changeset
3694 /* Handle system-specific keysyms. */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3695 if (event->code & (1 << 28))
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3696 {
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3697 /* We need to use an alist rather than a vector as the cache
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3698 since we can't make a vector long enuf. */
12176
3e14d94320f2 (system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12173
diff changeset
3699 if (NILP (current_kboard->system_key_syms))
3e14d94320f2 (system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12173
diff changeset
3700 current_kboard->system_key_syms = Fcons (Qnil, Qnil);
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
3701 return modify_event_symbol (event->code,
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3702 event->modifiers,
11543
317e5825008b (Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents: 11540
diff changeset
3703 Qfunction_key,
317e5825008b (Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents: 11540
diff changeset
3704 current_kboard->Vsystem_key_alist,
12176
3e14d94320f2 (system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12173
diff changeset
3705 0, &current_kboard->system_key_syms,
3e14d94320f2 (system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12173
diff changeset
3706 (unsigned)-1);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3707 }
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
3708
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3709 #ifdef XK_kana_A
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3710 if (event->code >= 0x400 && event->code < 0x500)
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3711 return modify_event_symbol (event->code - 0x400,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3712 event->modifiers & ~shift_modifier,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3713 Qfunction_key, Qnil,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3714 lispy_kana_keys, &func_key_syms,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3715 (sizeof (lispy_kana_keys)
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3716 / sizeof (lispy_kana_keys[0])));
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3717 #endif /* XK_kana_A */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
3718
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3719 if (event->code < FUNCTION_KEY_OFFSET
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3720 && event->code >= ISO_FUNCTION_KEY_OFFSET)
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3721 return modify_event_symbol (event->code - ISO_FUNCTION_KEY_OFFSET,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3722 event->modifiers,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3723 Qfunction_key, Qnil,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3724 iso_lispy_function_keys, &func_key_syms,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3725 (sizeof (iso_lispy_function_keys)
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3726 / sizeof (iso_lispy_function_keys[0])));
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3727 else
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3728 return modify_event_symbol (event->code - FUNCTION_KEY_OFFSET,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3729 event->modifiers,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3730 Qfunction_key, Qnil,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3731 lispy_function_keys, &func_key_syms,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3732 (sizeof (lispy_function_keys)
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
3733 / sizeof (lispy_function_keys[0])));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3734
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
3735 #ifdef HAVE_MOUSE
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
3736 /* A mouse click. Figure out where it is, decide whether it's
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3737 a press, click or drag, and build the appropriate structure. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3738 case mouse_click:
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
3739 case scroll_bar_click:
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3740 {
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3741 int button = event->code;
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3742 int is_double;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3743 Lisp_Object position;
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3744 Lisp_Object *start_pos_ptr;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3745 Lisp_Object start_pos;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3746
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3747 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
3748 abort ();
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3749
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3750 /* 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
3751 if (event->kind == mouse_click)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3752 {
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3753 int part;
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
3754 FRAME_PTR f = XFRAME (event->frame_or_window);
6024
0aa565fdb1b9 (make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents: 6020
diff changeset
3755 Lisp_Object window;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3756 Lisp_Object posn;
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3757 int row, column;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3758
7351
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
3759 /* Ignore mouse events that were made on frame that
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
3760 have been deleted. */
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
3761 if (! FRAME_LIVE_P (f))
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
3762 return Qnil;
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
3763
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3764 pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y),
12007
4179378fa410 (make_lispy_event, make_lispy_movement):
Karl Heuer <kwzh@gnu.org>
parents: 11993
diff changeset
3765 &column, &row, NULL, 1);
10275
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3766
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3767 #ifndef USE_X_TOOLKIT
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3768 /* In the non-toolkit version, clicks on the menu bar
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3769 are ordinary button events in the event buffer.
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3770 Distinguish them, and invoke the menu.
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3771
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3772 (In the toolkit version, the toolkit handles the menu bar
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3773 and Emacs doesn't know about it until after the user
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3774 makes a selection.) */
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
3775 if (row >= 0 && row < FRAME_MENU_BAR_LINES (f)
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
3776 && (event->modifiers & down_modifier))
5684
6479e0eabb27 * keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 5674
diff changeset
3777 {
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3778 Lisp_Object items, item;
8169
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3779 int hpos;
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3780 int i;
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3781
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
3782 #if 0
8169
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3783 /* Activate the menu bar on the down event. If the
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3784 up event comes in before the menu code can deal with it,
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3785 just ignore it. */
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3786 if (! (event->modifiers & down_modifier))
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
3787 return Qnil;
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
3788 #endif
6024
0aa565fdb1b9 (make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents: 6020
diff changeset
3789
6812
ba2176fd811c (make_lispy_event): Initialize item.
Karl Heuer <kwzh@gnu.org>
parents: 6805
diff changeset
3790 item = Qnil;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3791 items = FRAME_MENU_BAR_ITEMS (f);
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
3792 for (i = 0; i < XVECTOR (items)->size; i += 4)
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3793 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3794 Lisp_Object pos, string;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3795 string = XVECTOR (items)->contents[i + 1];
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
3796 pos = XVECTOR (items)->contents[i + 3];
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3797 if (NILP (string))
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3798 break;
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3799 if (column >= XINT (pos)
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3800 && column < XINT (pos) + XSTRING (string)->size)
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3801 {
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3802 item = XVECTOR (items)->contents[i];
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3803 break;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3804 }
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3805 }
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3806
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3807 position
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3808 = Fcons (event->frame_or_window,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3809 Fcons (Qmenu_bar,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3810 Fcons (Fcons (event->x, event->y),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3811 Fcons (make_number (event->timestamp),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3812 Qnil))));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3813
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
3814 return Fcons (item, Fcons (position, Qnil));
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3815 }
10275
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
3816 #endif /* not USE_X_TOOLKIT */
6024
0aa565fdb1b9 (make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents: 6020
diff changeset
3817
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3818 window = window_from_coordinates (f, column, row, &part);
6024
0aa565fdb1b9 (make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents: 6020
diff changeset
3819
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
3820 if (!WINDOWP (window))
8432
ebb72cf97695 (make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents: 8418
diff changeset
3821 {
ebb72cf97695 (make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents: 8418
diff changeset
3822 window = event->frame_or_window;
ebb72cf97695 (make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents: 8418
diff changeset
3823 posn = Qnil;
ebb72cf97695 (make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents: 8418
diff changeset
3824 }
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3825 else
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3826 {
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3827 int pixcolumn, pixrow;
16253
3ea02d461499 (make_lispy_event): When converting from pixel to glyph coordinates,
Richard M. Stallman <rms@gnu.org>
parents: 16229
diff changeset
3828 column -= WINDOW_LEFT_MARGIN (XWINDOW (window));
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3829 row -= XINT (XWINDOW (window)->top);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3830 glyph_to_pixel_coords (f, column, row, &pixcolumn, &pixrow);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3831 XSETINT (event->x, pixcolumn);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3832 XSETINT (event->y, pixrow);
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3833
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3834 if (part == 1)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3835 posn = Qmode_line;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3836 else if (part == 2)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3837 posn = Qvertical_line;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3838 else
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
3839 XSETINT (posn,
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
3840 buffer_posn_from_coords (XWINDOW (window),
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
3841 column, row));
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3842 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3843
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3844 position
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3845 = Fcons (window,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3846 Fcons (posn,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3847 Fcons (Fcons (event->x, event->y),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3848 Fcons (make_number (event->timestamp),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3849 Qnil))));
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3850 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3851 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3852 {
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3853 Lisp_Object window;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3854 Lisp_Object portion_whole;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3855 Lisp_Object part;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3856
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3857 window = event->frame_or_window;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3858 portion_whole = Fcons (event->x, event->y);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
3859 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
3860
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3861 position
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3862 = Fcons (window,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3863 Fcons (Qvertical_scroll_bar,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3864 Fcons (portion_whole,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3865 Fcons (make_number (event->timestamp),
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3866 Fcons (part, Qnil)))));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3867 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3868
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3869 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
3870
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3871 start_pos = *start_pos_ptr;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3872 *start_pos_ptr = Qnil;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3873
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3874 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
3875 && 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
3876 && 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
3877 && button_down_time != 0
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3878 && (EQ (Vdouble_click_time, Qt)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3879 || (INTEGERP (Vdouble_click_time)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3880 && ((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
3881 < XINT (Vdouble_click_time)))));
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3882 last_mouse_button = button;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3883 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
3884 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
3885
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3886 /* 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
3887 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
3888 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
3889 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3890 if (is_double)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3891 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3892 double_click_count++;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3893 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
3894 ? triple_modifier
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3895 : double_modifier);
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3896 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3897 else
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3898 double_click_count = 1;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3899 button_down_time = event->timestamp;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3900 *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
3901 }
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3902
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3903 /* 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
3904 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
3905 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
3906 {
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
3907 /* 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
3908 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
3909 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
3910 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
3911 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
3912 as a separate event. */
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
3913
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
3914 if (!CONSP (start_pos))
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
3915 return Qnil;
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
3916
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3917 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
3918 #if 0 /* Formerly we treated an up with no down as a click event. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
3919 if (!CONSP (start_pos))
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3920 event->modifiers |= click_modifier;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3921 else
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
3922 #endif
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3923 {
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3924 /* 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
3925 pair. */
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3926 Lisp_Object down;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3927
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3928 down = Fnth (make_number (2), start_pos);
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3929 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
3930 && 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
3931 {
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
3932 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
3933 }
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3934 else
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3935 {
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
3936 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
3937 event->modifiers |= drag_modifier;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3938 }
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
3939 /* Don't check is_double; treat this as multiple
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
3940 if the down-event was multiple. */
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
3941 if (double_click_count > 1)
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
3942 event->modifiers |= ((double_click_count > 2)
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
3943 ? triple_modifier
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
3944 : double_modifier);
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3945 }
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3946 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3947 else
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3948 /* 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
3949 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
3950 abort ();
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3951
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3952 {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3953 /* Get the symbol we should use for the mouse click. */
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3954 Lisp_Object head;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3955
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3956 head = modify_event_symbol (button,
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3957 event->modifiers,
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3958 Qmouse_click, Qnil,
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3959 lispy_mouse_names, &mouse_syms,
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3960 (sizeof (lispy_mouse_names)
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3961 / sizeof (lispy_mouse_names[0])));
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3962 if (event->modifiers & drag_modifier)
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3963 return Fcons (head,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3964 Fcons (start_pos,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3965 Fcons (position,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3966 Qnil)));
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3967 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
3968 return Fcons (head,
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3969 Fcons (position,
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3970 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
3971 Qnil)));
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3972 else
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3973 return Fcons (head,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3974 Fcons (position,
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3975 Qnil));
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3976 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3977 }
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3978
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3979 #ifdef WINDOWSNT
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16504
diff changeset
3980 case w32_scroll_bar_click:
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3981 {
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3982 int button = event->code;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3983 int is_double;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3984 Lisp_Object position;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3985 Lisp_Object *start_pos_ptr;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3986 Lisp_Object start_pos;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3987
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3988 if (button < 0 || button >= NUM_MOUSE_BUTTONS)
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3989 abort ();
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3990
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3991 {
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3992 Lisp_Object window;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3993 Lisp_Object portion_whole;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3994 Lisp_Object part;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3995
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3996 window = event->frame_or_window;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3997 portion_whole = Fcons (event->x, event->y);
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3998 part = *scroll_bar_parts[(int) event->part];
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
3999
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4000 position =
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4001 Fcons (window,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4002 Fcons (Qvertical_scroll_bar,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4003 Fcons (portion_whole,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4004 Fcons (make_number (event->timestamp),
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4005 Fcons (part, Qnil)))));
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4006 }
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4007
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16504
diff changeset
4008 /* Always treat W32 scroll bar events as clicks. */
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4009 event->modifiers |= click_modifier;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4010
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4011 {
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4012 /* Get the symbol we should use for the mouse click. */
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4013 Lisp_Object head;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4014
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4015 head = modify_event_symbol (button,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4016 event->modifiers,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4017 Qmouse_click, Qnil,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4018 lispy_mouse_names, &mouse_syms,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4019 (sizeof (lispy_mouse_names)
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4020 / sizeof (lispy_mouse_names[0])));
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4021 return Fcons (head,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4022 Fcons (position,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4023 Qnil));
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4024 }
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4025 }
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4026 #endif
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
4027
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
4028 #endif /* HAVE_MOUSE */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4029
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4030 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI)
11285
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4031 case menu_bar_event:
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4032 /* The event value is in the cdr of the frame_or_window slot. */
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4033 if (!CONSP (event->frame_or_window))
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4034 abort ();
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4035 return XCONS (event->frame_or_window)->cdr;
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4036 #endif
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4037
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4038 /* The 'kind' field of the event is something we don't recognize. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4039 default:
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
4040 abort ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4041 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4042 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4043
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
4044 #ifdef HAVE_MOUSE
6805
8310b2eb6b06 (make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents: 6749
diff changeset
4045
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4046 static Lisp_Object
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4047 make_lispy_movement (frame, bar_window, part, x, y, time)
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
4048 FRAME_PTR frame;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4049 Lisp_Object bar_window;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
4050 enum scroll_bar_part part;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4051 Lisp_Object x, y;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
4052 unsigned long time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4053 {
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
4054 /* Is it a scroll bar movement? */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4055 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
4056 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4057 Lisp_Object part_sym;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4058
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4059 part_sym = *scroll_bar_parts[(int) part];
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
4060 return Fcons (Qscroll_bar_movement,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4061 (Fcons (Fcons (bar_window,
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
4062 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
4063 Fcons (Fcons (x, y),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4064 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
4065 Fcons (part_sym,
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4066 Qnil))))),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4067 Qnil)));
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4068 }
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4069
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4070 /* Or is it an ordinary mouse movement? */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4071 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4072 {
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4073 int area;
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4074 Lisp_Object window;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4075 Lisp_Object posn;
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4076 int column, row;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4077
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4078 if (frame)
7345
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
4079 {
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
4080 /* It's in a frame; which window on that frame? */
12007
4179378fa410 (make_lispy_event, make_lispy_movement):
Karl Heuer <kwzh@gnu.org>
parents: 11993
diff changeset
4081 pixel_to_glyph_coords (frame, XINT (x), XINT (y), &column, &row,
4179378fa410 (make_lispy_event, make_lispy_movement):
Karl Heuer <kwzh@gnu.org>
parents: 11993
diff changeset
4082 NULL, 1);
7345
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
4083 window = window_from_coordinates (frame, column, row, &area);
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
4084 }
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4085 else
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4086 window = Qnil;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4087
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
4088 if (WINDOWP (window))
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4089 {
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4090 int pixcolumn, pixrow;
16253
3ea02d461499 (make_lispy_event): When converting from pixel to glyph coordinates,
Richard M. Stallman <rms@gnu.org>
parents: 16229
diff changeset
4091 column -= WINDOW_LEFT_MARGIN (XWINDOW (window));
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4092 row -= XINT (XWINDOW (window)->top);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4093 glyph_to_pixel_coords (frame, column, row, &pixcolumn, &pixrow);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4094 XSETINT (x, pixcolumn);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
4095 XSETINT (y, pixrow);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4096
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4097 if (area == 1)
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4098 posn = Qmode_line;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4099 else if (area == 2)
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4100 posn = Qvertical_line;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4101 else
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
4102 XSETINT (posn,
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
4103 buffer_posn_from_coords (XWINDOW (window), column, row));
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4104 }
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4105 else if (frame != 0)
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4106 {
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
4107 XSETFRAME (window, frame);
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4108 posn = Qnil;
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4109 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4110 else
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4111 {
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4112 window = Qnil;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4113 posn = Qnil;
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
4114 XSETFASTINT (x, 0);
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
4115 XSETFASTINT (y, 0);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4116 }
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4117
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4118 return Fcons (Qmouse_movement,
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4119 Fcons (Fcons (window,
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4120 Fcons (posn,
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4121 Fcons (Fcons (x, y),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4122 Fcons (make_number (time),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4123 Qnil)))),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4124 Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4125 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4126 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4127
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
4128 #endif /* HAVE_MOUSE */
6805
8310b2eb6b06 (make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents: 6749
diff changeset
4129
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4130 /* 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
4131 static Lisp_Object
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4132 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
4133 Lisp_Object frame;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4134 {
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4135 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
4136 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4137
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4138 /* Manipulating modifiers. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4139
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4140 /* 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
4141
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4142 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
4143 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
4144 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
4145
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4146 This doesn't use any caches. */
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4147
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4148 static int
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4149 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
4150 Lisp_Object symbol;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4151 int *modifier_end;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4152 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4153 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
4154 int i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4155 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4156
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4157 CHECK_SYMBOL (symbol, 1);
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4158
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4159 modifiers = 0;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4160 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
4161
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4162 for (i = 0; i+2 <= name->size; )
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4163 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4164 int this_mod_end = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4165 int this_mod = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4166
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4167 /* See if the name continues with a modifier word.
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4168 Check that the word appears, but don't check what follows it.
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4169 Set this_mod and this_mod_end to record what we find. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4170
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4171 switch (name->data[i])
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4172 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4173 #define SINGLE_LETTER_MOD(BIT) \
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4174 (this_mod_end = i + 1, this_mod = BIT)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4175
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4176 case 'A':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4177 SINGLE_LETTER_MOD (alt_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4178 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4179
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4180 case 'C':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4181 SINGLE_LETTER_MOD (ctrl_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4182 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4183
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4184 case 'H':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4185 SINGLE_LETTER_MOD (hyper_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4186 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4187
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4188 case 'M':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4189 SINGLE_LETTER_MOD (meta_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4190 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4191
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4192 case 'S':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4193 SINGLE_LETTER_MOD (shift_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4194 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4195
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4196 case 's':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4197 SINGLE_LETTER_MOD (super_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4198 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4199
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4200 #undef SINGLE_LETTER_MOD
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4201 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4202
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4203 /* If we found no modifier, stop looking for them. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4204 if (this_mod_end == 0)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4205 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4206
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4207 /* Check there is a dash after the modifier, so that it
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4208 really is a modifier. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4209 if (this_mod_end >= name->size || name->data[this_mod_end] != '-')
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4210 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4211
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4212 /* This modifier is real; look for another. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4213 modifiers |= this_mod;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4214 i = this_mod_end + 1;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4215 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4216
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4217 /* 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
4218 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
4219 | 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
4220 && 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
4221 && 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
4222 && ('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
4223 modifiers |= click_modifier;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4224
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4225 if (modifier_end)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4226 *modifier_end = i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4227
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4228 return modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4229 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4230
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4231 /* 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
4232 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
4233 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
4234 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4235 apply_modifiers_uncached (modifiers, base, base_len)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4236 int modifiers;
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4237 char *base;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4238 int base_len;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4239 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4240 /* 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
4241 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
4242 reference to it. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4243 char *new_mods =
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4244 (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
4245 int mod_len;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4246
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4247 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4248 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
4249
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4250 /* 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
4251 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
4252 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
4253 abort ();
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4254
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4255 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
4256 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
4257 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
4258 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
4259 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
4260 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
4261 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
4262 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
4263 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
4264 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
4265 /* 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
4266
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4267 *p = '\0';
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4268
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4269 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
4270 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4271
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4272 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4273 Lisp_Object new_name;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4274
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4275 new_name = make_uninit_string (mod_len + base_len);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4276 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
4277 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
4278
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4279 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
4280 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4281 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4282
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4283
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4284 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
4285 {
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4286 "up", "down", "drag", "click", "double", "triple", 0, 0,
12946
271dc8563a91 (modifier_names): Add 4 bits to modifier bit positions.
Richard M. Stallman <rms@gnu.org>
parents: 12919
diff changeset
4287 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
4288 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
4289 };
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
4290 #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
4291
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4292 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
4293
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4294 /* 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
4295 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4296 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
4297 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4298 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4299 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
4300 int i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4301
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4302 modifier_list = Qnil;
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
4303 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
4304 if (modifiers & (1<<i))
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
4305 modifier_list = Fcons (XVECTOR (modifier_symbols)->contents[i],
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
4306 modifier_list);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4307
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4308 return modifier_list;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4309 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4310
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4311
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4312 /* 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
4313 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
4314 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
4315 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
4316 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
4317 Qevent_symbol_elements property. */
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4318
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4319 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4320 parse_modifiers (symbol)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4321 Lisp_Object symbol;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4322 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4323 Lisp_Object elements;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4324
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4325 elements = Fget (symbol, Qevent_symbol_element_mask);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4326 if (CONSP (elements))
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4327 return elements;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4328 else
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4329 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4330 int end;
11682
7eda6c1f3d5e (parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents: 11671
diff changeset
4331 int modifiers = parse_modifiers_uncached (symbol, &end);
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4332 Lisp_Object unmodified;
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4333 Lisp_Object mask;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4334
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4335 unmodified = Fintern (make_string (XSYMBOL (symbol)->name->data + end,
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4336 XSYMBOL (symbol)->name->size - end),
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4337 Qnil);
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4338
11682
7eda6c1f3d5e (parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents: 11671
diff changeset
4339 if (modifiers & ~(((EMACS_INT)1 << VALBITS) - 1))
2436
80aafda1127b * keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents: 2434
diff changeset
4340 abort ();
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
4341 XSETFASTINT (mask, modifiers);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4342 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
4343
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4344 /* 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
4345 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
4346 elements);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4347 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
4348 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
4349
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4350 /* 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
4351 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
4352 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
4353 canonical. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4354
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4355 return elements;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4356 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4357 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4358
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4359 /* 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
4360 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
4361
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4362 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
4363 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
4364 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
4365
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4366 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
4367 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
4368 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4369 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
4370 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4371 Lisp_Object base;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4372 {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4373 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
4374
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
4375 /* Mask out upper bits. We don't know where this value's been. */
11682
7eda6c1f3d5e (parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents: 11671
diff changeset
4376 modifiers &= ((EMACS_INT)1 << VALBITS) - 1;
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
4377
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4378 /* 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
4379 cache = Fget (base, Qmodifier_cache);
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
4380 XSETFASTINT (index, (modifiers & ~click_modifier));
7999
f1837249c67f (apply_modifiers): Use assq_no_quit.
Richard M. Stallman <rms@gnu.org>
parents: 7957
diff changeset
4381 entry = assq_no_quit (index, cache);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4382
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4383 if (CONSP (entry))
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4384 new_symbol = XCONS (entry)->cdr;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4385 else
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4386 {
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4387 /* We have to create the symbol ourselves. */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4388 new_symbol = apply_modifiers_uncached (modifiers,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4389 XSYMBOL (base)->name->data,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4390 XSYMBOL (base)->name->size);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4391
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4392 /* 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
4393 entry = Fcons (index, new_symbol);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4394 Fput (base, Qmodifier_cache, Fcons (entry, cache));
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4395
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4396 /* We have the parsing info now for free, so add it to the caches. */
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
4397 XSETFASTINT (index, modifiers);
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4398 Fput (new_symbol, Qevent_symbol_element_mask,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4399 Fcons (base, Fcons (index, Qnil)));
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4400 Fput (new_symbol, Qevent_symbol_elements,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4401 Fcons (base, lispy_modifier_list (modifiers)));
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4402 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4403
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4404 /* Make sure this symbol is of the same kind as BASE.
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4405
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4406 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
4407 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
4408 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
4409 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
4410 Qevent_kind set right as well. */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4411 if (NILP (Fget (new_symbol, Qevent_kind)))
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4412 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4413 Lisp_Object kind;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4414
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4415 kind = Fget (base, Qevent_kind);
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4416 if (! NILP (kind))
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4417 Fput (new_symbol, Qevent_kind, kind);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4418 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4419
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4420 return new_symbol;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4421 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4422
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4423
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4424 /* Given a symbol whose name begins with modifiers ("C-", "M-", etc),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4425 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
4426 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
4427 always come last. The 'click' modifier is never written out.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4428
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4429 Fdefine_key calls this to make sure that (for example) C-M-foo
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4430 and M-C-foo end up being equivalent in the keymap. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4431
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4432 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4433 reorder_modifiers (symbol)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4434 Lisp_Object symbol;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4435 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4436 /* 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
4437 will soon be in caches, and no consing will be done at all. */
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4438 Lisp_Object parsed;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4439
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4440 parsed = parse_modifiers (symbol);
11671
8d81f3c6a0b5 (reorder_modifiers): Cast apply_modifiers arg to int.
Richard M. Stallman <rms@gnu.org>
parents: 11670
diff changeset
4441 return apply_modifiers ((int) XINT (XCONS (XCONS (parsed)->cdr)->car),
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4442 XCONS (parsed)->car);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4443 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4444
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4445
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4446 /* For handling events, we often want to produce a symbol whose name
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4447 is a series of modifier key prefixes ("M-", "C-", etcetera) attached
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4448 to some base, like the name of a function key or mouse button.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4449 modify_event_symbol produces symbols of this sort.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4450
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4451 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
4452 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
4453 in the table.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4454
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4455 Alternatively, NAME_ALIST is an alist mapping codes into symbol names.
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4456 NAME_ALIST is used if it is non-nil; otherwise NAME_TABLE is used.
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4457
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4458 SYMBOL_TABLE should be a pointer to a Lisp_Object whose value will
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4459 persist between calls to modify_event_symbol that it can use to
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4460 store a cache of the symbols it's generated for this NAME_TABLE
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4461 before. The object stored there may be a vector or an alist.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4462
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4463 SYMBOL_NUM is the number of the base name we want from NAME_TABLE.
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4464
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4465 MODIFIERS is a set of modifier bits (as given in struct input_events)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4466 whose prefixes should be applied to the symbol name.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4467
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4468 SYMBOL_KIND is the value to be placed in the event_kind property of
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4469 the returned symbol.
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
4470
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
4471 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
4472 `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
4473 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
4474
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4475 static Lisp_Object
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4476 modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist,
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4477 name_table, symbol_table, table_size)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4478 int symbol_num;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4479 unsigned modifiers;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4480 Lisp_Object symbol_kind;
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4481 Lisp_Object name_alist;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4482 char **name_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4483 Lisp_Object *symbol_table;
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4484 unsigned int table_size;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4485 {
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4486 Lisp_Object value;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4487 Lisp_Object symbol_int;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4488
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4489 /* Get rid of the "vendor-specific" bit here. */
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4490 XSETINT (symbol_int, symbol_num & 0xffffff);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4491
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4492 /* 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
4493 if (symbol_num < 0 || symbol_num >= table_size)
7807
cd93cee36101 (modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents: 7787
diff changeset
4494 return Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4495
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4496 if (CONSP (*symbol_table))
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4497 value = Fcdr (assq_no_quit (symbol_int, *symbol_table));
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4498
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4499 /* 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
4500 *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
4501 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
4502 we've never used that symbol before. */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4503 else
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4504 {
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4505 if (! VECTORP (*symbol_table)
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4506 || XVECTOR (*symbol_table)->size != table_size)
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4507 {
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4508 Lisp_Object size;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4509
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
4510 XSETFASTINT (size, table_size);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4511 *symbol_table = Fmake_vector (size, Qnil);
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4512 }
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4514 value = XVECTOR (*symbol_table)->contents[symbol_num];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4515 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4516
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4517 /* Have we already used this symbol before? */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4518 if (NILP (value))
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
4519 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4520 /* No; let's create it. */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4521 if (!NILP (name_alist))
6894
34435700529d (modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents: 6893
diff changeset
4522 value = Fcdr_safe (Fassq (symbol_int, name_alist));
16734
798ab643cba2 (modify_event_symbol):
Richard M. Stallman <rms@gnu.org>
parents: 16610
diff changeset
4523 else if (name_table != 0 && name_table[symbol_num])
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4524 value = intern (name_table[symbol_num]);
6894
34435700529d (modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents: 6893
diff changeset
4525
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4526 #ifdef HAVE_WINDOW_SYSTEM
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4527 if (NILP (value))
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4528 {
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4529 char *name = x_get_keysym_name (symbol_num);
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4530 if (name)
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4531 value = intern (name);
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4532 }
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4533 #endif
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
4534
6894
34435700529d (modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents: 6893
diff changeset
4535 if (NILP (value))
3042
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
4536 {
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
4537 char buf[20];
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
4538 sprintf (buf, "key-%d", symbol_num);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4539 value = intern (buf);
3042
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
4540 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4541
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4542 if (CONSP (*symbol_table))
15524
4a92710b931c (modify_event_symbol): Add properly to *symbol_table.
Richard M. Stallman <rms@gnu.org>
parents: 15474
diff changeset
4543 *symbol_table = Fcons (Fcons (symbol_int, value), *symbol_table);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4544 else
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4545 XVECTOR (*symbol_table)->contents[symbol_num] = value;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4546
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4547 /* Fill in the cache entries for this symbol; this also
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4548 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
4549 cares about. */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4550 apply_modifiers (modifiers & click_modifier, value);
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4551 Fput (value, Qevent_kind, symbol_kind);
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
4552 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
4553
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4554 /* Apply modifiers to that symbol. */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4555 return apply_modifiers (modifiers, value);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4556 }
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4557
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4558 /* Convert a list that represents an event type,
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4559 such as (ctrl meta backspace), into the usual representation of that
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4560 event type as a number or a symbol. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4561
12150
64b16f71a15c (Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents: 12144
diff changeset
4562 DEFUN ("event-convert-list", Fevent_convert_list, Sevent_convert_list, 1, 1, 0,
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
4563 "Convert the event description list EVENT-DESC to an event type.\n\
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
4564 EVENT-DESC should contain one base event type (a character or symbol)\n\
12150
64b16f71a15c (Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents: 12144
diff changeset
4565 and zero or more modifier names (control, meta, hyper, super, shift, alt,\n\
15128
a5faedec59f1 (Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents: 15112
diff changeset
4566 drag, down, double or triple). The base must be last.\n\
12150
64b16f71a15c (Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents: 12144
diff changeset
4567 The return value is an event type (a character or symbol) which\n\
64b16f71a15c (Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents: 12144
diff changeset
4568 has the same base event type and all the specified modifiers.")
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
4569 (event_desc)
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
4570 Lisp_Object event_desc;
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4571 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4572 Lisp_Object base;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4573 int modifiers = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4574 Lisp_Object rest;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4575
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4576 base = Qnil;
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
4577 rest = event_desc;
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4578 while (CONSP (rest))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4579 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4580 Lisp_Object elt;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4581 int this = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4582
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4583 elt = XCONS (rest)->car;
15128
a5faedec59f1 (Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents: 15112
diff changeset
4584 rest = XCONS (rest)->cdr;
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4585
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4586 /* Given a symbol, see if it is a modifier name. */
15128
a5faedec59f1 (Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents: 15112
diff changeset
4587 if (SYMBOLP (elt) && CONSP (rest))
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4588 this = parse_solitary_modifier (elt);
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4589
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4590 if (this != 0)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4591 modifiers |= this;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4592 else if (!NILP (base))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4593 error ("Two bases given in one event");
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4594 else
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4595 base = elt;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4596
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4597 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4598
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4599 /* Let the symbol A refer to the character A. */
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4600 if (SYMBOLP (base) && XSYMBOL (base)->name->size == 1)
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4601 XSETINT (base, XSYMBOL (base)->name->data[0]);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4602
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4603 if (INTEGERP (base))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4604 {
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4605 /* Turn (shift a) into A. */
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4606 if ((modifiers & shift_modifier) != 0
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4607 && (XINT (base) >= 'a' && XINT (base) <= 'z'))
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4608 {
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4609 XSETINT (base, XINT (base) - ('a' - 'A'));
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4610 modifiers &= ~shift_modifier;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4611 }
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4612
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4613 /* Turn (control a) into C-a. */
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4614 if (modifiers & ctrl_modifier)
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4615 return make_number ((modifiers & ~ctrl_modifier)
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4616 | make_ctrl_char (XINT (base)));
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4617 else
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4618 return make_number (modifiers | XINT (base));
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4619 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4620 else if (SYMBOLP (base))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4621 return apply_modifiers (modifiers, base);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4622 else
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4623 error ("Invalid base event");
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4624 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4625
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4626 /* Try to recognize SYMBOL as a modifier name.
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4627 Return the modifier flag bit, or 0 if not recognized. */
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4628
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4629 static int
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4630 parse_solitary_modifier (symbol)
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4631 Lisp_Object symbol;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4632 {
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4633 struct Lisp_String *name = XSYMBOL (symbol)->name;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4634
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4635 switch (name->data[0])
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4636 {
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4637 #define SINGLE_LETTER_MOD(BIT) \
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4638 if (name->size == 1) \
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4639 return BIT;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4640
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4641 #define MULTI_LETTER_MOD(BIT, NAME, LEN) \
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4642 if (LEN == name->size \
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4643 && ! strncmp (name->data, NAME, LEN)) \
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4644 return BIT;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4645
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4646 case 'A':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4647 SINGLE_LETTER_MOD (alt_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4648 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4649
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4650 case 'a':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4651 MULTI_LETTER_MOD (alt_modifier, "alt", 3);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4652 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4653
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4654 case 'C':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4655 SINGLE_LETTER_MOD (ctrl_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4656 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4657
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4658 case 'c':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4659 MULTI_LETTER_MOD (ctrl_modifier, "ctrl", 4);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4660 MULTI_LETTER_MOD (ctrl_modifier, "control", 7);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4661 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4662
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4663 case 'H':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4664 SINGLE_LETTER_MOD (hyper_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4665 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4666
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4667 case 'h':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4668 MULTI_LETTER_MOD (hyper_modifier, "hyper", 5);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4669 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4670
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4671 case 'M':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4672 SINGLE_LETTER_MOD (meta_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4673 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4674
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4675 case 'm':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4676 MULTI_LETTER_MOD (meta_modifier, "meta", 4);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4677 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4678
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4679 case 'S':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4680 SINGLE_LETTER_MOD (shift_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4681 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4682
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4683 case 's':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4684 MULTI_LETTER_MOD (shift_modifier, "shift", 5);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4685 MULTI_LETTER_MOD (super_modifier, "super", 5);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4686 SINGLE_LETTER_MOD (super_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4687 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4688
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4689 case 'd':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4690 MULTI_LETTER_MOD (drag_modifier, "drag", 4);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4691 MULTI_LETTER_MOD (down_modifier, "down", 4);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4692 MULTI_LETTER_MOD (double_modifier, "double", 6);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4693 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4694
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4695 case 't':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4696 MULTI_LETTER_MOD (triple_modifier, "triple", 6);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4697 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4698
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4699 #undef SINGLE_LETTER_MOD
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4700 #undef MULTI_LETTER_MOD
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4701 }
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4702
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4703 return 0;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4704 }
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
4705
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4706 /* Return 1 if EVENT is a list whose elements are all integers or symbols.
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4707 Such a list is not valid as an event,
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4708 but it can be a Lucid-style event type list. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4709
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4710 int
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4711 lucid_event_type_list_p (object)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4712 Lisp_Object object;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4713 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4714 Lisp_Object tail;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4715
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4716 if (! CONSP (object))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4717 return 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4718
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4719 for (tail = object; CONSP (tail); tail = XCONS (tail)->cdr)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4720 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4721 Lisp_Object elt;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4722 elt = XCONS (tail)->car;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4723 if (! (INTEGERP (elt) || SYMBOLP (elt)))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4724 return 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4725 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4726
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4727 return NILP (tail);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
4728 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4729
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4730 /* Store into *addr a value nonzero if terminal input chars are available.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4731 Serves the purpose of ioctl (0, FIONREAD, addr)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4732 but works even if FIONREAD does not exist.
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4733 (In fact, this may actually read some input.)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4734
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4735 If DO_TIMERS_NOW is nonzero, actually run timer events that are ripe. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4736
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4737 static void
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4738 get_input_pending (addr, do_timers_now)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4739 int *addr;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4740 int do_timers_now;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4741 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4742 /* First of all, have we already counted some input? */
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4743 *addr = !NILP (Vquit_flag) || readable_events (do_timers_now);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4744
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4745 /* 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
4746 if (*addr > 0 || (interrupt_input && ! interrupts_deferred))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4747 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4748
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4749 /* Try to read some input and see how much we get. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4750 gobble_input (0);
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4751 *addr = !NILP (Vquit_flag) || readable_events (do_timers_now);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4752 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4753
8727
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4754 /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4755
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4756 int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4757 gobble_input (expected)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4758 int expected;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4759 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4760 #ifndef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4761 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4762 if (interrupt_input)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4763 {
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 586
diff changeset
4764 SIGMASKTYPE mask;
16055
b69d8517497a (record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
4765 mask = sigblock (sigmask (SIGIO));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4766 read_avail_input (expected);
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 624
diff changeset
4767 sigsetmask (mask);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4768 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4769 else
8727
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4770 #ifdef POLL_FOR_INPUT
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4771 if (read_socket_hook && !interrupt_input && poll_suppress_count == 0)
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4772 {
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4773 SIGMASKTYPE mask;
16055
b69d8517497a (record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
4774 mask = sigblock (sigmask (SIGALRM));
8727
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4775 read_avail_input (expected);
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4776 sigsetmask (mask);
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4777 }
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4778 else
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
4779 #endif
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9445
diff changeset
4780 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4781 read_avail_input (expected);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4782 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4783 }
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4784
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4785 /* Put a buffer_switch_event in the buffer
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4786 so that read_key_sequence will notice the new current buffer. */
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4787
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4788 record_asynch_buffer_change ()
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4789 {
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4790 struct input_event event;
8502
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4791 Lisp_Object tem;
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4792
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4793 event.kind = buffer_switch_event;
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4794 event.frame_or_window = Qnil;
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4795
8718
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
4796 #ifdef subprocesses
8502
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4797 /* We don't need a buffer-switch event unless Emacs is waiting for input.
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4798 The purpose of the event is to make read_key_sequence look up the
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4799 keymaps again. If we aren't in read_key_sequence, we don't need one,
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4800 and the event could cause trouble by messing up (input-pending-p). */
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4801 tem = Fwaiting_for_user_input_p ();
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4802 if (NILP (tem))
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4803 return;
8718
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
4804 #else
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
4805 /* We never need these events if we have no asynchronous subprocesses. */
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
4806 return;
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
4807 #endif
8502
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
4808
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4809 /* Make sure no interrupt happens while storing the event. */
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4810 #ifdef SIGIO
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4811 if (interrupt_input)
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4812 {
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4813 SIGMASKTYPE mask;
16055
b69d8517497a (record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
4814 mask = sigblock (sigmask (SIGIO));
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4815 kbd_buffer_store_event (&event);
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4816 sigsetmask (mask);
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4817 }
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4818 else
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4819 #endif
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4820 {
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4821 stop_polling ();
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4822 kbd_buffer_store_event (&event);
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4823 start_polling ();
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
4824 }
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4825 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4826
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4827 #ifndef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4828
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4829 /* Read any terminal input already buffered up by the system
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4830 into the kbd_buffer, but do not wait.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4831
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4832 EXPECTED should be nonzero if the caller knows there is some input.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4833
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4834 Except on VMS, all input is read by this function.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4835 If interrupt_input is nonzero, this function MUST be called
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4836 only when SIGIO is blocked.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4837
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4838 Returns the number of keyboard chars read, or -1 meaning
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4839 this is a bad time to try to read input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4840
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4841 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4842 read_avail_input (expected)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4843 int expected;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4844 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4845 struct input_event buf[KBD_BUFFER_SIZE];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4846 register int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4847 int nread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4848
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4849 if (read_socket_hook)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4850 /* No need for FIONREAD or fcntl; just say don't wait. */
16325
bcc66c0b3bff (read_avail_input): Don't pass WAITP to read_socket_hook.
Richard M. Stallman <rms@gnu.org>
parents: 16253
diff changeset
4851 nread = (*read_socket_hook) (input_fd, buf, KBD_BUFFER_SIZE, expected);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4852 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4853 {
5032
2802aff49c77 (read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents: 4996
diff changeset
4854 /* 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
4855 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
4856 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
4857 unsigned char cbuf[KBD_BUFFER_SIZE - 1];
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4858 int n_to_read;
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4859
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4860 /* Determine how many characters we should *try* to read. */
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
4861 #ifdef WINDOWSNT
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
4862 return 0;
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
4863 #else /* not WINDOWSNT */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4864 #ifdef MSDOS
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4865 n_to_read = dos_keysns ();
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4866 if (n_to_read == 0)
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4867 return 0;
6891
065060f1f9b8 (read_avail_input): Fix comment delimiter.
Karl Heuer <kwzh@gnu.org>
parents: 6875
diff changeset
4868 #else /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4869 #ifdef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4870 /* Find out how much input is available. */
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
4871 if (ioctl (input_fd, FIONREAD, &n_to_read) < 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4872 /* Formerly simply reported no input, but that sometimes led to
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4873 a failure of Emacs to terminate.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4874 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
4875 /* ??? 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
4876 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
4877 Perhaps on systems with FIONREAD Emacs is alone in its group. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4878 kill (getpid (), SIGHUP);
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4879 if (n_to_read == 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4880 return 0;
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4881 if (n_to_read > sizeof cbuf)
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4882 n_to_read = sizeof cbuf;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4883 #else /* no FIONREAD */
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
4884 #if defined (USG) || defined (DGUX)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4885 /* Read some input if available, but don't wait. */
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4886 n_to_read = sizeof cbuf;
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
4887 fcntl (input_fd, F_SETFL, O_NDELAY);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4888 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4889 you lose;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4890 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4891 #endif
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4892 #endif /* not MSDOS */
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
4893 #endif /* not WINDOWSNT */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4894
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4895 /* Now read; for one reason or another, this will not block.
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
4896 NREAD is set to the number of chars read. */
6963
67b16a9f7e5d (read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents: 6936
diff changeset
4897 do
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4898 {
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4899 #ifdef MSDOS
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
4900 cbuf[0] = dos_keyread ();
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4901 nread = 1;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4902 #else
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
4903 nread = read (input_fd, cbuf, n_to_read);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4904 #endif
6936
5538df04e96a (read_avail_input): Test both aix386 and _BSD.
Richard M. Stallman <rms@gnu.org>
parents: 6932
diff changeset
4905 #if defined (AIX) && (! defined (aix386) && defined (_BSD))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4906 /* The kernel sometimes fails to deliver SIGHUP for ptys.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4907 This looks incorrect, but it isn't, because _BSD causes
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4908 O_NDELAY to be defined in fcntl.h as O_NONBLOCK,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4909 and that causes a value other than 0 when there is no input. */
5194
85a1088ca765 (kbd_buffer_get_event): If user destroys the last frame,
Richard M. Stallman <rms@gnu.org>
parents: 5178
diff changeset
4910 if (nread == 0)
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4911 kill (0, SIGHUP);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4912 #endif
6963
67b16a9f7e5d (read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents: 6936
diff changeset
4913 }
6972
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4914 while (
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4915 /* We used to retry the read if it was interrupted.
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4916 But this does the wrong thing when O_NDELAY causes
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4917 an EAGAIN error. Does anybody know of a situation
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4918 where a retry is actually needed? */
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4919 #if 0
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4920 nread < 0 && (errno == EAGAIN
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4921 #ifdef EFAULT
6963
67b16a9f7e5d (read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents: 6936
diff changeset
4922 || errno == EFAULT
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
4923 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4924 #ifdef EBADSLT
6963
67b16a9f7e5d (read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents: 6936
diff changeset
4925 || errno == EBADSLT
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4926 #endif
6972
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4927 )
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4928 #else
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4929 0
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4930 #endif
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
4931 );
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4932
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4933 #ifndef FIONREAD
5371
63aa7b7e42c5 (read_avail_input): Turn O_NDELAY off on DGUX as on USG.
Richard M. Stallman <rms@gnu.org>
parents: 5352
diff changeset
4934 #if defined (USG) || defined (DGUX)
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
4935 fcntl (input_fd, F_SETFL, 0);
5371
63aa7b7e42c5 (read_avail_input): Turn O_NDELAY off on DGUX as on USG.
Richard M. Stallman <rms@gnu.org>
parents: 5352
diff changeset
4936 #endif /* USG or DGUX */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4937 #endif /* no FIONREAD */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4938 for (i = 0; i < nread; i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4939 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4940 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
4941 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
4942 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
4943 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
4944 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
4945 cbuf[i] &= ~0x80;
9745
129ec4acc4ff (read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents: 9729
diff changeset
4946
129ec4acc4ff (read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents: 9729
diff changeset
4947 buf[i].code = cbuf[i];
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
4948 XSETFRAME (buf[i].frame_or_window, selected_frame);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4949 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4950 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4951
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4952 /* Scan the chars for C-g and store them in kbd_buffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4953 for (i = 0; i < nread; i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4954 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4955 kbd_buffer_store_event (&buf[i]);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4956 /* Don't look at input that follows a C-g too closely.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4957 This reduces lossage due to autorepeat on C-g. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4958 if (buf[i].kind == ascii_keystroke
8938
16c1ca187613 (kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents: 8936
diff changeset
4959 && buf[i].code == quit_char)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4960 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4961 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4962
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4963 return nread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4964 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4965 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4966
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4967 #ifdef SIGIO /* for entire page */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4968 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4969
1119
5d315d54b8b4 * keyboard.c (kbd_buffer_get_event): When performing the
Jim Blandy <jimb@redhat.com>
parents: 1104
diff changeset
4970 SIGTYPE
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4971 input_available_signal (signo)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4972 int signo;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4973 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4974 /* Must preserve main program's value of errno. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4975 int old_errno = errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4976 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4977 extern int select_alarmed;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4978 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4979
16115
cc8c3e2cc6ed (input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16111
diff changeset
4980 #if defined (USG) && !defined (POSIX_SIGNALS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4981 /* USG systems forget handlers when they are used;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4982 must reestablish each time */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4983 signal (signo, input_available_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4984 #endif /* USG */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4985
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4986 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4987 sigisheld (SIGIO);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4988 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4989
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4990 if (input_available_clear_time)
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4991 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4992
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4993 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4994 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4995 int nread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4996 nread = read_avail_input (1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4997 /* -1 means it's not ok to read the input now.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4998 UNBLOCK_INPUT will read it later; now, avoid infinite loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4999 0 means there was no keyboard input available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5000 if (nread <= 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5001 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5002
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5003 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5004 select_alarmed = 1; /* Force the select emulator back to life */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5005 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5006 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5007
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5008 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5009 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5010 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5011 errno = old_errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5012 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5013 #endif /* SIGIO */
2726
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5014
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5015 /* Send ourselves a SIGIO.
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5016
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5017 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
5018 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
5019 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
5020 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
5021 void
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5022 reinvoke_input_signal ()
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5023 {
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5024 #ifdef SIGIO
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
5025 kill (getpid (), SIGIO);
2726
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5026 #endif
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5027 }
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5028
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5029
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5030
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5031 /* Return the prompt-string of a sparse keymap.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5032 This is the first element which is a string.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5033 Return nil if there is none. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5034
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5035 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5036 map_prompt (map)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5037 Lisp_Object map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5038 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5039 while (CONSP (map))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5040 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5041 register Lisp_Object tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5042 tem = Fcar (map);
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5043 if (STRINGP (tem))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5044 return tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5045 map = Fcdr (map);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5046 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5047 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5048 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5049
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5050 static void menu_bar_item ();
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5051 static void menu_bar_one_keymap ();
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5052
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5053 /* These variables hold the vector under construction within
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5054 menu_bar_items and its subroutines, and the current index
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5055 for storing into that vector. */
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5056 static Lisp_Object menu_bar_items_vector;
8938
16c1ca187613 (kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents: 8936
diff changeset
5057 static int menu_bar_items_index;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5058
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5059 /* Return a vector of menu items for a menu bar, appropriate
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5060 to the current buffer. Each item has three elements in the vector:
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5061 KEY STRING MAPLIST.
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5062
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5063 OLD is an old vector we can optionally reuse, or nil. */
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5064
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5065 Lisp_Object
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5066 menu_bar_items (old)
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5067 Lisp_Object old;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5068 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5069 /* 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
5070 keymaps we have allocated space for. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5071 int nmaps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5072
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5073 /* 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
5074 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
5075 Lisp_Object *maps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5076
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
5077 Lisp_Object def, tem, tail;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5078
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5079 Lisp_Object result;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5080
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5081 int mapno;
3255
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
5082 Lisp_Object oquit;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5083
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5084 int i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5085
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5086 struct gcpro gcpro1;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5087
3209
1166db56c752 * keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents: 3174
diff changeset
5088 /* 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
5089 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
5090 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
5091 quitting while building the menus.
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
5092 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
5093 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
5094 oquit = Vinhibit_quit;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5095 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
5096
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5097 if (!NILP (old))
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5098 menu_bar_items_vector = old;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5099 else
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5100 menu_bar_items_vector = Fmake_vector (make_number (24), Qnil);
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5101 menu_bar_items_index = 0;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5102
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5103 GCPRO1 (menu_bar_items_vector);
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5104
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5105 /* Build our list of keymaps.
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5106 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
5107 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
5108 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
5109 the initial keymaps from the current buffer. */
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5110 {
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5111 Lisp_Object *tmaps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5112
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5113 /* Should overriding-terminal-local-map and overriding-local-map apply? */
9607
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
5114 if (!NILP (Voverriding_local_map_menu_flag))
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5115 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5116 /* Yes, use them (if non-nil) as well as the global map. */
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5117 maps = (Lisp_Object *) alloca (3 * sizeof (maps[0]));
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5118 nmaps = 0;
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5119 if (!NILP (current_kboard->Voverriding_terminal_local_map))
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5120 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map;
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5121 if (!NILP (Voverriding_local_map))
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5122 maps[nmaps++] = Voverriding_local_map;
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5123 }
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5124 else
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5125 {
9607
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
5126 /* No, so use major and minor mode keymaps. */
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5127 nmaps = current_minor_maps (NULL, &tmaps);
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5128 maps = (Lisp_Object *) alloca ((nmaps + 2) * sizeof (maps[0]));
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5129 bcopy (tmaps, maps, nmaps * sizeof (maps[0]));
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5130 #ifdef USE_TEXT_PROPERTIES
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5131 maps[nmaps++] = get_local_map (PT, current_buffer);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5132 #else
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5133 maps[nmaps++] = current_buffer->keymap;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5134 #endif
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5135 }
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5136 maps[nmaps++] = current_global_map;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5137 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5138
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5139 /* 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
5140
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5141 result = Qnil;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5142
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5143 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
5144 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5145 if (! NILP (maps[mapno]))
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
5146 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
5147 else
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5148 def = Qnil;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5150 tem = Fkeymapp (def);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5151 if (!NILP (tem))
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5152 menu_bar_one_keymap (def);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5153 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5154
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5155 /* Move to the end those items that should be at the end. */
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5156
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
5157 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
5158 {
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5159 int i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5160 int end = menu_bar_items_index;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5161
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5162 for (i = 0; i < end; i += 4)
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5163 if (EQ (XCONS (tail)->car, XVECTOR (menu_bar_items_vector)->contents[i]))
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5164 {
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5165 Lisp_Object tem0, tem1, tem2, tem3;
6159
78275962ef1e (menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents: 6135
diff changeset
5166 /* Move the item at index I to the end,
78275962ef1e (menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents: 6135
diff changeset
5167 shifting all the others forward. */
78275962ef1e (menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents: 6135
diff changeset
5168 tem0 = XVECTOR (menu_bar_items_vector)->contents[i + 0];
78275962ef1e (menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents: 6135
diff changeset
5169 tem1 = XVECTOR (menu_bar_items_vector)->contents[i + 1];
78275962ef1e (menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents: 6135
diff changeset
5170 tem2 = XVECTOR (menu_bar_items_vector)->contents[i + 2];
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5171 tem3 = XVECTOR (menu_bar_items_vector)->contents[i + 3];
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5172 if (end > i + 4)
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5173 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4],
6159
78275962ef1e (menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents: 6135
diff changeset
5174 &XVECTOR (menu_bar_items_vector)->contents[i],
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5175 (end - i - 4) * sizeof (Lisp_Object));
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5176 XVECTOR (menu_bar_items_vector)->contents[end - 4] = tem0;
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5177 XVECTOR (menu_bar_items_vector)->contents[end - 3] = tem1;
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5178 XVECTOR (menu_bar_items_vector)->contents[end - 2] = tem2;
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5179 XVECTOR (menu_bar_items_vector)->contents[end - 1] = tem3;
6159
78275962ef1e (menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents: 6135
diff changeset
5180 break;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5181 }
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
5182 }
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
5183
15284
546fea3a3d3d Comment fix.
Karl Heuer <kwzh@gnu.org>
parents: 15272
diff changeset
5184 /* Add nil, nil, nil, nil at the end. */
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5185 i = menu_bar_items_index;
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5186 if (i + 4 > XVECTOR (menu_bar_items_vector)->size)
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5187 {
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5188 Lisp_Object tem;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5189 int newsize = 2 * i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5190 tem = Fmake_vector (make_number (2 * i), Qnil);
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5191 bcopy (XVECTOR (menu_bar_items_vector)->contents,
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5192 XVECTOR (tem)->contents, i * sizeof (Lisp_Object));
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5193 menu_bar_items_vector = tem;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5194 }
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5195 /* Add this item. */
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5196 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5197 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5198 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5199 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5200 menu_bar_items_index = i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5201
3255
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
5202 Vinhibit_quit = oquit;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5203 UNGCPRO;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5204 return menu_bar_items_vector;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5205 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5206
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5207 /* Scan one map KEYMAP, accumulating any menu items it defines
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5208 in menu_bar_items_vector. */
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5209
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5210 static void
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5211 menu_bar_one_keymap (keymap)
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5212 Lisp_Object keymap;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5213 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5214 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
5215
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5216 /* Loop over all keymap entries that have menu strings. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5217 for (tail = keymap; CONSP (tail); tail = XCONS (tail)->cdr)
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5218 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5219 item = XCONS (tail)->car;
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5220 if (CONSP (item))
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5221 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5222 key = XCONS (item)->car;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5223 binding = XCONS (item)->cdr;
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5224 if (CONSP (binding))
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5225 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5226 item_string = XCONS (binding)->car;
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5227 if (STRINGP (item_string))
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5228 menu_bar_item (key, item_string, Fcdr (binding));
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5229 }
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5230 else if (EQ (binding, Qundefined))
7650
f6d9c3187245 (menu_bar_one_keymap):
Richard M. Stallman <rms@gnu.org>
parents: 7587
diff changeset
5231 menu_bar_item (key, Qnil, binding);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5232 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5233 else if (VECTORP (item))
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5234 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5235 /* 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
5236 int len = XVECTOR (item)->size;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5237 int c;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5238 for (c = 0; c < len; c++)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5239 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5240 Lisp_Object character;
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
5241 XSETFASTINT (character, c);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5242 binding = XVECTOR (item)->contents[c];
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5243 if (CONSP (binding))
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5244 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5245 item_string = XCONS (binding)->car;
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5246 if (STRINGP (item_string))
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5247 menu_bar_item (key, item_string, Fcdr (binding));
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5248 }
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5249 else if (EQ (binding, Qundefined))
7650
f6d9c3187245 (menu_bar_one_keymap):
Richard M. Stallman <rms@gnu.org>
parents: 7587
diff changeset
5250 menu_bar_item (key, Qnil, binding);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5251 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5252 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5253 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5254 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5255
5808
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5256 /* This is used as the handler when calling internal_condition_case_1. */
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5257
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5258 static Lisp_Object
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5259 menu_bar_item_1 (arg)
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5260 Lisp_Object arg;
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5261 {
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5262 return Qnil;
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5263 }
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5264
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5265 /* Add one item to menu_bar_items_vector, for KEY, ITEM_STRING and DEF.
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5266 If there's already an item for KEY, add this DEF to it. */
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5267
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5268 static void
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5269 menu_bar_item (key, item_string, def)
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5270 Lisp_Object key, item_string, def;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5271 {
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5272 Lisp_Object tem;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5273 Lisp_Object enabled;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5274 int i;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5275
15649
3ee2f3ce0a07 (menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents: 15524
diff changeset
5276 /* Skip menu-bar equiv keys data. */
3ee2f3ce0a07 (menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents: 15524
diff changeset
5277 if (CONSP (def) && CONSP (XCONS (def)->car))
3ee2f3ce0a07 (menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents: 15524
diff changeset
5278 def = XCONS (def)->cdr;
3ee2f3ce0a07 (menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents: 15524
diff changeset
5279
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5280 if (EQ (def, Qundefined))
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5281 {
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5282 /* If a map has an explicit `undefined' as definition,
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5283 discard any previously made menu bar item. */
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5284
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5285 for (i = 0; i < menu_bar_items_index; i += 4)
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5286 if (EQ (key, XVECTOR (menu_bar_items_vector)->contents[i]))
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5287 {
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5288 if (menu_bar_items_index > i + 4)
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5289 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4],
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5290 &XVECTOR (menu_bar_items_vector)->contents[i],
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5291 (menu_bar_items_index - i - 4) * sizeof (Lisp_Object));
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5292 menu_bar_items_index -= 4;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5293 return;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5294 }
7650
f6d9c3187245 (menu_bar_one_keymap):
Richard M. Stallman <rms@gnu.org>
parents: 7587
diff changeset
5295
f6d9c3187245 (menu_bar_one_keymap):
Richard M. Stallman <rms@gnu.org>
parents: 7587
diff changeset
5296 /* If there's no definition for this key yet,
f6d9c3187245 (menu_bar_one_keymap):
Richard M. Stallman <rms@gnu.org>
parents: 7587
diff changeset
5297 just ignore `undefined'. */
f6d9c3187245 (menu_bar_one_keymap):
Richard M. Stallman <rms@gnu.org>
parents: 7587
diff changeset
5298 return;
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5299 }
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5300
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5301 /* See if this entry is enabled. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5302 enabled = Qt;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5303
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5304 if (SYMBOLP (def))
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5305 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5306 /* No property, or nil, means enable.
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5307 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
5308 tem = Fget (def, Qmenu_enable);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5309 if (!NILP (tem))
5808
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5310 /* (condition-case nil (eval tem)
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5311 (error nil)) */
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5312 enabled = internal_condition_case_1 (Feval, tem, Qerror,
995860e5f342 (menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents: 5779
diff changeset
5313 menu_bar_item_1);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5314 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5315
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5316 /* Ignore this item if it's not enabled. */
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5317 if (NILP (enabled))
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5318 return;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5319
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5320 /* Find any existing item for this KEY. */
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5321 for (i = 0; i < menu_bar_items_index; i += 4)
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5322 if (EQ (key, XVECTOR (menu_bar_items_vector)->contents[i]))
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5323 break;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5324
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5325 /* If we did not find this KEY, add it at the end. */
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5326 if (i == menu_bar_items_index)
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5327 {
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5328 /* If vector is too small, get a bigger one. */
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5329 if (i + 4 > XVECTOR (menu_bar_items_vector)->size)
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5330 {
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5331 Lisp_Object tem;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5332 int newsize = 2 * i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5333 tem = Fmake_vector (make_number (2 * i), Qnil);
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5334 bcopy (XVECTOR (menu_bar_items_vector)->contents,
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5335 XVECTOR (tem)->contents, i * sizeof (Lisp_Object));
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5336 menu_bar_items_vector = tem;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5337 }
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5338 /* Add this item. */
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5339 XVECTOR (menu_bar_items_vector)->contents[i++] = key;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5340 XVECTOR (menu_bar_items_vector)->contents[i++] = item_string;
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5341 XVECTOR (menu_bar_items_vector)->contents[i++] = Fcons (def, Qnil);
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
5342 XVECTOR (menu_bar_items_vector)->contents[i++] = make_number (0);
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5343 menu_bar_items_index = i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5344 }
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5345 /* We did find an item for this KEY. Add DEF to its list of maps. */
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5346 else
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5347 {
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5348 Lisp_Object old;
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5349 old = XVECTOR (menu_bar_items_vector)->contents[i + 2];
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5350 XVECTOR (menu_bar_items_vector)->contents[i + 2] = Fcons (def, old);
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
5351 }
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5352 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5353
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
5354 /* 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
5355 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
5356 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
5357
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5358 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
5359 the first event of a key sequence.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5360
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
5361 If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
5362 if we used a mouse menu to read the input, or zero otherwise. If
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
5363 USED_MOUSE_MENU is null, we don't dereference it.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5364
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5365 The prompting is done based on the prompt-string of the map
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5366 and the strings associated with various map elements.
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5367
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5368 This can be done with X menus or with menus put in the minibuf.
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5369 These are done in different ways, depending on how the input will be read.
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5370 Menus using X are done after auto-saving in read-char, getting the input
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5371 event from Fx_popup_menu; menus using the minibuf use read_char recursively
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5372 and do auto-saving in the inner call of read_char. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5373
3453
1fd89e975a78 (read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 3452
diff changeset
5374 static Lisp_Object
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5375 read_char_x_menu_prompt (nmaps, maps, prev_event, used_mouse_menu)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5376 int nmaps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5377 Lisp_Object *maps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5378 Lisp_Object prev_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5379 int *used_mouse_menu;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5380 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5381 int mapno;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5382 register Lisp_Object name;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5383 Lisp_Object rest, vector;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5384
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
5385 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
5386 *used_mouse_menu = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5387
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5388 /* Use local over global Menu maps */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5389
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5390 if (! menu_prompting)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5391 return Qnil;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5392
9396
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
5393 /* Optionally disregard all but the global map. */
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
5394 if (inhibit_local_menu_bar_menus)
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
5395 {
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
5396 maps += (nmaps - 1);
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
5397 nmaps = 1;
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
5398 }
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
5399
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5400 /* 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
5401 for (mapno = 0; mapno < nmaps; mapno++)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5402 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5403 name = map_prompt (maps[mapno]);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5404 if (!NILP (name))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5405 break;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5406 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5407
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5408 /* 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
5409 if (mapno >= nmaps)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5410 return Qnil;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5411
13864
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
5412 #ifdef HAVE_MENUS
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5413 /* 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
5414 use a real menu for mouse selection. */
11613
c4ef6460a9c9 (read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents: 11543
diff changeset
5415 if (EVENT_HAS_PARAMETERS (prev_event)
c4ef6460a9c9 (read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents: 11543
diff changeset
5416 && !EQ (XCONS (prev_event)->car, Qmenu_bar))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5417 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5418 /* Display the menu and get the selection. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5419 Lisp_Object *realmaps
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5420 = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object));
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5421 Lisp_Object value;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5422 int nmaps1 = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5423
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5424 /* Use the maps that are not nil. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5425 for (mapno = 0; mapno < nmaps; mapno++)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5426 if (!NILP (maps[mapno]))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5427 realmaps[nmaps1++] = maps[mapno];
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5428
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5429 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
5430 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
5431 {
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5432 Lisp_Object tem;
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5433
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5434 record_menu_key (XCONS (value)->car);
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5435
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5436 /* If we got multiple events, unread all but
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5437 the first.
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5438 There is no way to prevent those unread events
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5439 from showing up later in last_nonmenu_event.
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5440 So turn symbol and integer events into lists,
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5441 to indicate that they came from a mouse menu,
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5442 so that when present in last_nonmenu_event
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5443 they won't confuse things. */
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5444 for (tem = XCONS (value)->cdr; !NILP (tem);
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5445 tem = XCONS (tem)->cdr)
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5446 {
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5447 record_menu_key (XCONS (tem)->car);
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5448 if (SYMBOLP (XCONS (tem)->car)
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5449 || INTEGERP (XCONS (tem)->car))
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5450 XCONS (tem)->car
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5451 = Fcons (XCONS (tem)->car, Qnil);
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
5452 }
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
5453
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
5454 /* 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
5455 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
5456 Return just the first event now. */
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
5457 Vunread_command_events
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
5458 = nconc2 (XCONS (value)->cdr, Vunread_command_events);
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
5459 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
5460 }
6932
bde97688f58b (read_char_x_menu_prompt): Don't check for value = nil
Richard M. Stallman <rms@gnu.org>
parents: 6925
diff changeset
5461 else if (NILP (value))
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
5462 value = Qt;
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
5463 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
5464 *used_mouse_menu = 1;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5465 return value;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5466 }
13864
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
5467 #endif /* HAVE_MENUS */
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5468 return Qnil ;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5469 }
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5470
14490
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5471 /* Buffer in use so far for the minibuf prompts for menu keymaps.
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5472 We make this bigger when necessary, and never free it. */
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5473 static char *read_char_minibuf_menu_text;
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5474 /* Size of that buffer. */
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5475 static int read_char_minibuf_menu_width;
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5476
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5477 static Lisp_Object
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
5478 read_char_minibuf_menu_prompt (commandflag, nmaps, maps)
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5479 int commandflag ;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5480 int nmaps;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5481 Lisp_Object *maps;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5482 {
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5483 int mapno;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5484 register Lisp_Object name;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5485 int nlength;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5486 int width = FRAME_WIDTH (selected_frame) - 4;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5487 int idx = -1;
7587
efaee8861ad4 (read_char_minibuf_menu_prompt): Don't forget to initialize nobindings.
Richard M. Stallman <rms@gnu.org>
parents: 7547
diff changeset
5488 int nobindings = 1;
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5489 Lisp_Object rest, vector;
14490
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5490 char *menu;
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5491
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5492 if (! menu_prompting)
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5493 return Qnil;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5494
14490
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5495 /* Make sure we have a big enough buffer for the menu text. */
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5496 if (read_char_minibuf_menu_text == 0)
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5497 {
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5498 read_char_minibuf_menu_width = width + 4;
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5499 read_char_minibuf_menu_text = (char *) xmalloc (width + 4);
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5500 }
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5501 else if (width + 4 > read_char_minibuf_menu_width)
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5502 {
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5503 read_char_minibuf_menu_width = width + 4;
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5504 read_char_minibuf_menu_text
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5505 = (char *) xrealloc (read_char_minibuf_menu_text, width + 4);
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5506 }
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5507 menu = read_char_minibuf_menu_text;
c463c25a6806 (read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents: 14454
diff changeset
5508
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5509 /* Get the menu name from the first map that has one (a prompt string). */
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5510 for (mapno = 0; mapno < nmaps; mapno++)
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5511 {
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5512 name = map_prompt (maps[mapno]);
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5513 if (!NILP (name))
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5514 break;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5515 }
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5516
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5517 /* If we don't have any menus, just read a character normally. */
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5518 if (mapno >= nmaps)
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5519 return Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5520
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5521 /* Prompt string always starts with map's prompt, and a space. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5522 strcpy (menu, XSTRING (name)->data);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5523 nlength = XSTRING (name)->size;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5524 menu[nlength++] = ':';
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5525 menu[nlength++] = ' ';
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5526 menu[nlength] = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5527
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5528 /* Start prompting at start of first map. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5529 mapno = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5530 rest = maps[mapno];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5531
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5532 /* Present the documented bindings, a line at a time. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5533 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5534 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5535 int notfirst = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5536 int i = nlength;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5537 Lisp_Object obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5538 int ch;
10907
1e9ffdb9980c (read_char_minibuf_menu_prompt): orig_defn_macro is now Lisp_Object, not int.
Karl Heuer <kwzh@gnu.org>
parents: 10905
diff changeset
5539 Lisp_Object orig_defn_macro;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5540
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5541 /* Loop over elements of map. */
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5542 while (i < width)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5543 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5544 Lisp_Object s, elt;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5545
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5546 /* 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
5547 if (NILP (rest))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5548 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5549 mapno++;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5550 /* 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
5551 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
5552 if (mapno == nmaps)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5553 {
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5554 mapno = 0;
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
5555 if (notfirst || nobindings) break;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5556 }
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5557 rest = maps[mapno];
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5558 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5559
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5560 /* Look at the next element of the map. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5561 if (idx >= 0)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5562 elt = XVECTOR (vector)->contents[idx];
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5563 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5564 elt = Fcar_safe (rest);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5565
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5566 if (idx < 0 && VECTORP (elt))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5567 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5568 /* 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
5569 advanced past it, but start scanning its contents. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5570 rest = Fcdr_safe (rest);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5571 vector = elt;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5572 idx = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5573 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5574 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5575 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5576 /* An ordinary element. */
12185
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5577 Lisp_Object event;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5578
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5579 if (idx < 0)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5580 {
12185
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5581 s = Fcar_safe (Fcdr_safe (elt)); /* alist */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5582 event = Fcar_safe (elt);
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5583 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5584 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5585 {
12185
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5586 s = Fcar_safe (elt); /* vector */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5587 XSETINT (event, idx);
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5588 }
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5589
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5590 /* Ignore the element if it has no prompt string. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5591 if (STRINGP (s) && INTEGERP (event))
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5592 {
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5593 /* 1 if the char to type matches the string. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5594 int char_matches;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5595 Lisp_Object upcased_event, downcased_event;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5596 Lisp_Object desc;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5597
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5598 upcased_event = Fupcase (event);
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5599 downcased_event = Fdowncase (event);
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5600 char_matches = (XINT (upcased_event) == XSTRING (s)->data[0]
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5601 || XINT (downcased_event) == XSTRING (s)->data[0]);
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5602 if (! char_matches)
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5603 desc = Fsingle_key_description (event);
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5604
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5605 /* If we have room for the prompt string, add it to this line.
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5606 If this is the first on the line, always add it. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5607 if ((XSTRING (s)->size + i + 2
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5608 + (char_matches ? 0 : XSTRING (desc)->size + 3))
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5609 < width
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5610 || !notfirst)
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5611 {
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5612 int thiswidth;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5613
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5614 /* Punctuate between strings. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5615 if (notfirst)
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5616 {
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5617 strcpy (menu + i, ", ");
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5618 i += 2;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5619 }
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5620 notfirst = 1;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5621 nobindings = 0 ;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5622
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5623 /* If the char to type doesn't match the string's
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5624 first char, explicitly show what char to type. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5625 if (! char_matches)
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5626 {
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5627 /* Add as much of string as fits. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5628 thiswidth = XSTRING (desc)->size;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5629 if (thiswidth + i > width)
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5630 thiswidth = width - i;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5631 bcopy (XSTRING (desc)->data, menu + i, thiswidth);
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5632 i += thiswidth;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5633 strcpy (menu + i, " = ");
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5634 i += 3;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5635 }
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5636
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5637 /* Add as much of string as fits. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5638 thiswidth = XSTRING (s)->size;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5639 if (thiswidth + i > width)
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5640 thiswidth = width - i;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5641 bcopy (XSTRING (s)->data, menu + i, thiswidth);
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5642 i += thiswidth;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5643 menu[i] = 0;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5644 }
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5645 else
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5646 {
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5647 /* If this element does not fit, end the line now,
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5648 and save the element for the next line. */
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5649 strcpy (menu + i, "...");
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5650 break;
7a18efea682a (read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents: 12176
diff changeset
5651 }
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5652 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5653
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5654 /* Move past this element. */
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5655 if (idx >= 0 && idx + 1 >= XVECTOR (vector)->size)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5656 /* Handle reaching end of dense table. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5657 idx = -1;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5658 if (idx >= 0)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5659 idx++;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5660 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5661 rest = Fcdr_safe (rest);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5662 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5663 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5664
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5665 /* Prompt with that and read response. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5666 message1 (menu);
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5667
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5668 /* Make believe its not a keyboard macro in case the help char
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5669 is pressed. Help characters are not recorded because menu prompting
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5670 is not used on replay.
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5671 */
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
5672 orig_defn_macro = current_kboard->defining_kbd_macro;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
5673 current_kboard->defining_kbd_macro = Qnil;
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
5674 do
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
5675 obj = read_char (commandflag, 0, 0, Qnil, 0);
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5676 while (BUFFERP (obj));
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
5677 current_kboard->defining_kbd_macro = orig_defn_macro;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5678
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5679 if (!INTEGERP (obj))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5680 return obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5681 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5682 ch = XINT (obj);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5683
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5684 if (! EQ (obj, menu_prompt_more_char)
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5685 && (!INTEGERP (menu_prompt_more_char)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5686 || ! EQ (obj, make_number (Ctl (XINT (menu_prompt_more_char))))))
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5687 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
5688 if (!NILP (current_kboard->defining_kbd_macro))
10907
1e9ffdb9980c (read_char_minibuf_menu_prompt): orig_defn_macro is now Lisp_Object, not int.
Karl Heuer <kwzh@gnu.org>
parents: 10905
diff changeset
5689 store_kbd_macro_char (obj);
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5690 return obj;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5691 }
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
5692 /* Help char - go round again */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5693 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5694 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5695
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5696 /* Reading key sequences. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5697
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5698 /* Follow KEY in the maps in CURRENT[0..NMAPS-1], placing its bindings
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5699 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
5700 keymap, or nil otherwise. Return the index of the first keymap in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5701 which KEY has any binding, or NMAPS if no map has a binding.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5702
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5703 If KEY is a meta ASCII character, treat it like meta-prefix-char
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5704 followed by the corresponding non-meta character. Keymaps in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5705 CURRENT with non-prefix bindings for meta-prefix-char become nil in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5706 NEXT.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5707
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5708 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
5709 unmodified.
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5710
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5711 NEXT may be the same array as CURRENT. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5712
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5713 static int
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
5714 follow_key (key, nmaps, current, defs, next)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5715 Lisp_Object key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5716 Lisp_Object *current, *defs, *next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5717 int nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5718 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5719 int i, first_binding;
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5720 int did_meta = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5721
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5722 /* If KEY is a meta ASCII character, treat it like meta-prefix-char
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5723 followed by the corresponding non-meta character.
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5724 Put the results into DEFS, since we are going to alter that anyway.
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5725 Do not alter CURRENT or NEXT. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5726 if (INTEGERP (key) && (XINT (key) & CHAR_META))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5727 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5728 for (i = 0; i < nmaps; i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5729 if (! NILP (current[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5730 {
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5731 Lisp_Object def;
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5732 def = get_keyelt (access_keymap (current[i],
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5733 meta_prefix_char, 1, 0));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5734
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5735 /* Note that since we pass the resulting bindings through
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5736 get_keymap_1, non-prefix bindings for meta-prefix-char
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5737 disappear. */
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5738 defs[i] = get_keymap_1 (def, 0, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5739 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5740 else
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5741 defs[i] = Qnil;
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5742
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5743 did_meta = 1;
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
5744 XSETINT (key, XFASTINT (key) & ~CHAR_META);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5745 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5746
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5747 first_binding = nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5748 for (i = nmaps - 1; i >= 0; i--)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5749 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5750 if (! NILP (current[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5751 {
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5752 Lisp_Object map;
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5753 if (did_meta)
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5754 map = defs[i];
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5755 else
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5756 map = current[i];
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5757
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
5758 defs[i] = get_keyelt (access_keymap (map, key, 1, 0));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5759 if (! NILP (defs[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5760 first_binding = i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5761 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5762 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5763 defs[i] = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5764 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5765
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5766 /* 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
5767 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
5768 for (i = 0; i < nmaps; i++)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5769 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
5770
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5771 return first_binding;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5772 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5773
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5774 /* Read a sequence of keys that ends with a non prefix character,
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5775 storing it in KEYBUF, a buffer of size BUFSIZE.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5776 Prompt with PROMPT.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5777 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
5778 Return -1 if the user rejected a command menu.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5779
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5780 Echo starting immediately unless `prompt' is 0.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5781
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5782 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
5783 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
5784 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
5785
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5786 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
5787 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
5788 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
5789 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
5790
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5791 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
5792 `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
5793 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
5794 then into clicks.
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5795
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5796 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
5797 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
5798 symbol denoting that area - `mode-line', `vertical-line', or
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5799 whatever.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5800
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5801 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
5802 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
5803
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5804 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
5805 off the switch-frame event until later; the next call to
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
5806 read_char will return it.
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
5807
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
5808 If FIX_CURRENT_BUFFER is nonzero, we restore current_buffer
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
5809 from the selected window's buffer. */
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5810
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5811 static int
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
5812 read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
5813 can_return_switch_frame, fix_current_buffer)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5814 Lisp_Object *keybuf;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5815 int bufsize;
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
5816 Lisp_Object prompt;
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
5817 int dont_downcase_last;
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
5818 int can_return_switch_frame;
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
5819 int fix_current_buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5820 {
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5821 int count = specpdl_ptr - specpdl;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5822
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5823 /* How many keys there are in the current key sequence. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5824 int t;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5825
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5826 /* The length of the echo buffer when we started reading, and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5827 the length of this_command_keys when we started reading. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5828 int echo_start;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5829 int keys_start;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5830
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5831 /* The number of keymaps we're scanning right now, and the number of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5832 keymaps we have allocated space for. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5833 int nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5834 int nmaps_allocated = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5835
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5836 /* defs[0..nmaps-1] are the definitions of KEYBUF[0..t-1] in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5837 the current keymaps. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5838 Lisp_Object *defs;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5839
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5840 /* 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
5841 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
5842 Lisp_Object *submaps;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5843
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5844 /* The local map to start out with at start of key sequence. */
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5845 Lisp_Object orig_local_map;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5846
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5847 /* 1 if we have already considered switching to the local-map property
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5848 of the place where a mouse click occurred. */
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5849 int localized_local_map = 0;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5850
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5851 /* 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
5852 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
5853 defs[i] is non-nil. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5854 int first_binding;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5855
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5856 /* 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
5857 input key.
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
5858
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
5859 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
5860 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
5861 function key's escape sequence, we replace the suffix with the
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
5862 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
5863 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
5864 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
5865 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
5866 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
5867 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
5868 reading characters from the keyboard. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5869 int mock_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5870
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
5871 /* If the sequence is unbound in submaps[], then
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5872 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
5873 and fkey_map is its binding.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5874
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5875 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
5876 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
5877 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
5878 key's again in Vfunction_key_map. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5879 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
5880 Lisp_Object fkey_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5881
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5882 /* 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
5883 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
5884 Lisp_Object keytran_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5885
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
5886 /* 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
5887 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
5888 Lisp_Object delayed_switch_frame;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5889
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
5890 /* 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
5891 #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
5892 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
5893 #endif
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5894
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
5895 Lisp_Object original_uppercase;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
5896 int original_uppercase_position = -1;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
5897
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
5898 /* Gets around Microsoft compiler limitations. */
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
5899 int dummyflag = 0;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
5900
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
5901 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
5902
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5903 /* Nonzero if we seem to have got the beginning of a binding
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5904 in function_key_map. */
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5905 int function_key_possible = 0;
9445
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
5906 int key_translation_possible = 0;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5907
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5908 /* Save the status of key translation before each step,
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5909 so that we can restore this after downcasing. */
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5910 Lisp_Object prev_fkey_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5911 Lisp_Object prev_fkey_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5912 Lisp_Object prev_fkey_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5913
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5914 Lisp_Object prev_keytran_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5915 Lisp_Object prev_keytran_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5916 Lisp_Object prev_keytran_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
5917
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5918 int junk;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5919
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5920 last_nonmenu_event = Qnil;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5921
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5922 delayed_switch_frame = Qnil;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5923 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
5924 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
5925
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5926 /* 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
5927 if (NILP (Fkeymapp (Vfunction_key_map)))
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5928 fkey_start = fkey_end = bufsize + 1;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5929
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5930 /* 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
5931 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
5932 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
5933
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5934 if (INTERACTIVE)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5935 {
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
5936 if (!NILP (prompt))
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
5937 echo_prompt (XSTRING (prompt)->data);
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
5938 else if (cursor_in_echo_area && echo_keystrokes)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5939 /* 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
5940 you don't always see a dash hanging out in the minibuffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5941 echo_dash ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5942 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5943
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5944 /* 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
5945 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
5946 if (INTERACTIVE)
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5947 echo_start = echo_length ();
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5948 keys_start = this_command_key_count;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
5949 this_single_command_key_start = keys_start;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5950
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
5951 #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
5952 /* 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
5953 does cannot safely be bypassed. It seems too risky to try to make
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5954 this work right. */
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
5955
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5956 /* 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
5957 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
5958 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
5959 &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
5960 #endif /* GOBBLE_FIRST_EVENT */
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
5961
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5962 orig_local_map = get_local_map (PT, current_buffer);
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
5963
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5964 /* 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
5965 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
5966 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
5967 replay_sequence:
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5968
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
5969 starting_buffer = current_buffer;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5970 function_key_possible = 0;
9445
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
5971 key_translation_possible = 0;
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
5972
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
5973 /* Build our list of keymaps.
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
5974 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
5975 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
5976 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
5977 the initial keymaps from the current buffer. */
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5978 {
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5979 Lisp_Object *maps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5980
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5981 if (!NILP (current_kboard->Voverriding_terminal_local_map)
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5982 || !NILP (Voverriding_local_map))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5983 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5984 if (3 > nmaps_allocated)
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5985 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5986 submaps = (Lisp_Object *) alloca (3 * sizeof (submaps[0]));
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5987 defs = (Lisp_Object *) alloca (3 * sizeof (defs[0]));
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5988 nmaps_allocated = 3;
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5989 }
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5990 nmaps = 0;
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5991 if (!NILP (current_kboard->Voverriding_terminal_local_map))
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5992 submaps[nmaps++] = current_kboard->Voverriding_terminal_local_map;
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5993 if (!NILP (Voverriding_local_map))
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5994 submaps[nmaps++] = Voverriding_local_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5995 }
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5996 else
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
5997 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5998 nmaps = current_minor_maps (0, &maps);
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
5999 if (nmaps + 2 > nmaps_allocated)
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
6000 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
6001 submaps = (Lisp_Object *) alloca ((nmaps+2) * sizeof (submaps[0]));
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
6002 defs = (Lisp_Object *) alloca ((nmaps+2) * sizeof (defs[0]));
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
6003 nmaps_allocated = nmaps + 2;
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
6004 }
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
6005 bcopy (maps, submaps, nmaps * sizeof (submaps[0]));
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
6006 #ifdef USE_TEXT_PROPERTIES
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
6007 submaps[nmaps++] = orig_local_map;
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
6008 #else
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
6009 submaps[nmaps++] = current_buffer->keymap;
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
6010 #endif
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
6011 }
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
6012 submaps[nmaps++] = current_global_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6013 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6014
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6015 /* Find an accurate initial value for first_binding. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6016 for (first_binding = 0; first_binding < nmaps; first_binding++)
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
6017 if (! NILP (submaps[first_binding]))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6018 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6019
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
6020 /* Start from the beginning in keybuf. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6021 t = 0;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6022
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6023 /* 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
6024 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
6025 this_command_key_count = keys_start;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6026 if (INTERACTIVE && t < mock_input)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6027 echo_truncate (echo_start);
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6028
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
6029 /* 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
6030 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
6031 reading. */
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
6032 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
6033 || (first_binding >= nmaps
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
6034 && fkey_start < t
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
6035 /* 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
6036 && mock_input <= fkey_start)
10533
52b954844444 (read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents: 10457
diff changeset
6037 || (first_binding >= nmaps
52b954844444 (read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents: 10457
diff changeset
6038 && keytran_start < t && key_translation_possible)
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6039 /* Don't return in the middle of a possible function key sequence,
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6040 if the only bindings we found were via case conversion.
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6041 Thus, if ESC O a has a function-key-map translation
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6042 and ESC o has a binding, don't return after ESC O,
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6043 so that we can translate ESC O plus the next character. */
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6044 )
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6045 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6046 Lisp_Object key;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
6047 int used_mouse_menu = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6048
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6049 /* 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
6050 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
6051 (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
6052 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
6053 of keybuf. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6054 int last_real_key_start;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6055
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6056 /* 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
6057 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
6058 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
6059 just one key. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6060 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
6061
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6062 if (t >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6063 error ("Key sequence too long");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6064
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6065 if (INTERACTIVE)
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6066 echo_local_start = echo_length ();
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6067 keys_local_start = this_command_key_count;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6068 local_first_binding = first_binding;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6069
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6070 replay_key:
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6071 /* 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
6072 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
6073 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
6074 loop. */
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
6075 if (INTERACTIVE && t < mock_input)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6076 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
6077 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
6078 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
6079
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6080 /* 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
6081 last_real_key_start = t;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6082
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6083 /* Does mock_input indicate that we are re-reading a key sequence? */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6084 if (t < mock_input)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6085 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6086 key = keybuf[t];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6087 add_command_key (key);
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
6088 if (echo_keystrokes)
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
6089 echo_char (key);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6090 }
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
6091
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
6092 /* If not, we should actually read a character. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6093 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6094 {
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
6095 struct buffer *buf = current_buffer;
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
6096
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6097 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6098 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6099 KBOARD *interrupted_kboard = current_kboard;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6100 struct frame *interrupted_frame = selected_frame;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6101 if (setjmp (wrong_kboard_jmpbuf))
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6102 {
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6103 if (!NILP (delayed_switch_frame))
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6104 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6105 interrupted_kboard->kbd_queue
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6106 = Fcons (delayed_switch_frame,
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6107 interrupted_kboard->kbd_queue);
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6108 delayed_switch_frame = Qnil;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6109 }
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6110 while (t > 0)
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6111 interrupted_kboard->kbd_queue
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6112 = Fcons (keybuf[--t], interrupted_kboard->kbd_queue);
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6113
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6114 /* If the side queue is non-empty, ensure it begins with a
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6115 switch-frame, so we'll replay it in the right context. */
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6116 if (CONSP (interrupted_kboard->kbd_queue)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6117 && (key = XCONS (interrupted_kboard->kbd_queue)->car,
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6118 !(EVENT_HAS_PARAMETERS (key)
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6119 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)),
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
6120 Qswitch_frame))))
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6121 {
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6122 Lisp_Object frame;
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6123 XSETFRAME (frame, interrupted_frame);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6124 interrupted_kboard->kbd_queue
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6125 = Fcons (make_lispy_switch_frame (frame),
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
6126 interrupted_kboard->kbd_queue);
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6127 }
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6128 mock_input = 0;
10915
4d587fff2aa0 (read_key_sequence): Update orig_local_map
Richard M. Stallman <rms@gnu.org>
parents: 10907
diff changeset
6129 orig_local_map = get_local_map (PT, current_buffer);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6130 goto replay_sequence;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6131 }
10820
5bef43a53c01 (display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents: 10800
diff changeset
6132 #endif
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6133 key = read_char (NILP (prompt), nmaps, submaps, last_nonmenu_event,
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6134 &used_mouse_menu);
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
6135 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6136
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6137 /* 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
6138 Just return -1. */
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6139 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
6140 return -1;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6141
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6142 /* read_char returns -1 at the end of a macro.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6143 Emacs 18 handles this by returning immediately with a
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6144 zero, so that's what we'll do. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6145 if (INTEGERP (key) && XINT (key) == -1)
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6146 {
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6147 t = 0;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6148 /* The Microsoft C compiler can't handle the goto that
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6149 would go here. */
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6150 dummyflag = 1;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6151 break;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6152 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6153
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6154 /* If the current buffer has been changed from under us, the
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6155 keymap may have changed, so replay the sequence. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6156 if (BUFFERP (key))
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6157 {
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6158 mock_input = t;
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6159 /* Reset the current buffer from the selected window
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6160 in case something changed the former and not the latter.
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6161 This is to be more consistent with the behavior
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6162 of the command_loop_1. */
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6163 if (fix_current_buffer)
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6164 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer)
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6165 Fset_buffer (XWINDOW (selected_window)->buffer);
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6166
10915
4d587fff2aa0 (read_key_sequence): Update orig_local_map
Richard M. Stallman <rms@gnu.org>
parents: 10907
diff changeset
6167 orig_local_map = get_local_map (PT, current_buffer);
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6168 goto replay_sequence;
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6169 }
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6170
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
6171 /* 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
6172 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
6173 replay to get the right keymap. */
8938
16c1ca187613 (kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents: 8936
diff changeset
6174 if (XINT (key) == quit_char && current_buffer != starting_buffer)
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
6175 {
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
6176 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
6177 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
6178 Vquit_flag = Qnil;
10915
4d587fff2aa0 (read_key_sequence): Update orig_local_map
Richard M. Stallman <rms@gnu.org>
parents: 10907
diff changeset
6179 orig_local_map = get_local_map (PT, current_buffer);
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
6180 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
6181 }
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
6182
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6183 Vquit_flag = Qnil;
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6184 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6185
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6186 /* Clicks in non-text areas get prefixed by the symbol
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6187 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
6188 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
6189
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6190 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
6191 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
6192 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
6193 here.
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6194
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6195 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
6196 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
6197 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
6198 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
6199 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
6200 if (EVENT_HAS_PARAMETERS (key))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6201 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6202 Lisp_Object kind;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6203
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6204 kind = EVENT_HEAD_KIND (EVENT_HEAD (key));
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6205 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
6206 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6207 Lisp_Object window, posn;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6208
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6209 window = POSN_WINDOW (EVENT_START (key));
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6210 posn = POSN_BUFFER_POSN (EVENT_START (key));
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6211 if (CONSP (posn))
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6212 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6213 /* 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
6214 sequence which we expanded before. Set
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6215 last_real_key_start appropriately. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6216 if (t > 0)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6217 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
6218 }
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6219
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6220 /* 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
6221 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
6222 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
6223 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
6224 if (last_real_key_start == 0
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6225 && WINDOWP (window)
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6226 && BUFFERP (XWINDOW (window)->buffer)
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6227 && 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
6228 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6229 keybuf[t] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6230 mock_input = t + 1;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6231
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6232 /* 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
6233 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
6234 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
6235 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
6236 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
6237 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
6238 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
6239 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
6240 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
6241 emacsclient). */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6242 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
6243
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6244 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6245 orig_local_map = get_local_map (PT, current_buffer);
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6246 goto replay_sequence;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6247 }
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6248 /* For a mouse click, get the local text-property keymap
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6249 of the place clicked on, rather than point. */
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6250 if (last_real_key_start == 0 && CONSP (XCONS (key)->cdr)
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6251 && ! localized_local_map)
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6252 {
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6253 Lisp_Object map_here, start, pos;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6254
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6255 localized_local_map = 1;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6256 start = EVENT_START (key);
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6257 if (CONSP (start) && CONSP (XCONS (start)->cdr))
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6258 {
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6259 pos = POSN_BUFFER_POSN (start);
12979
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
6260 if (INTEGERP (pos)
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
6261 && XINT (pos) >= BEG && XINT (pos) <= Z)
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6262 {
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6263 map_here = get_local_map (XINT (pos), current_buffer);
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6264 if (!EQ (map_here, orig_local_map))
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6265 {
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6266 orig_local_map = map_here;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6267 keybuf[t] = key;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6268 mock_input = t + 1;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6269
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6270 goto replay_sequence;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6271 }
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6272 }
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6273 }
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6274 }
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6275
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6276 /* Expand mode-line and scroll-bar events into two events:
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6277 use posn as a fake prefix key. */
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6278 if (SYMBOLP (posn))
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
6279 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6280 if (t + 1 >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6281 error ("Key sequence too long");
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6282 keybuf[t] = posn;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6283 keybuf[t+1] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6284 mock_input = t + 2;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6285
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6286 /* 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
6287 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
6288 POSN_BUFFER_POSN (EVENT_START (key))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6289 = Fcons (posn, Qnil);
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6290 goto replay_key;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
6291 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6292 }
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6293 else if (EQ (kind, Qswitch_frame))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6294 {
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6295 /* If we're at the beginning of a key sequence, and the caller
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6296 says it's okay, go ahead and return this event. If we're
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6297 in the midst of a key sequence, delay it until the end. */
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6298 if (t > 0 || !can_return_switch_frame)
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6299 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6300 delayed_switch_frame = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6301 goto replay_key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6302 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6303 }
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6304 else if (CONSP (XCONS (key)->cdr)
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6305 && CONSP (EVENT_START (key))
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6306 && CONSP (XCONS (EVENT_START (key))->cdr))
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
6307 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6308 Lisp_Object posn;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6309
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6310 posn = POSN_BUFFER_POSN (EVENT_START (key));
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6311 /* Handle menu-bar events:
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6312 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
6313 if (EQ (posn, Qmenu_bar))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6314 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6315 if (t + 1 >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6316 error ("Key sequence too long");
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6317 keybuf[t] = posn;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6318 keybuf[t+1] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6319
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6320 /* 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
6321 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
6322 POSN_BUFFER_POSN (EVENT_START (key))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6323 = Fcons (posn, Qnil);
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6324
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6325 mock_input = t + 2;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6326 goto replay_sequence;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6327 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6328 else if (CONSP (posn))
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6329 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6330 /* 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
6331 sequence which we expanded before. Set
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6332 last_real_key_start appropriately. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6333 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
6334 last_real_key_start = t - 1;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6335 }
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
6336 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6337 }
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6338
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6339 /* 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
6340 to look up. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6341 first_binding = (follow_key (key,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6342 nmaps - first_binding,
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
6343 submaps + first_binding,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6344 defs + first_binding,
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6345 submaps + first_binding)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6346 + first_binding);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6347
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6348 /* 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
6349 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
6350 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6351 Lisp_Object head;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6352
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6353 head = EVENT_HEAD (key);
12342
87aeb150a91a (read_key_sequence): Don't use Vprefix_help_command
Richard M. Stallman <rms@gnu.org>
parents: 12335
diff changeset
6354 if (help_char_p (head) && t > 0)
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6355 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6356 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
6357 keybuf[t++] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6358 last_nonmenu_event = key;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6359 /* The Microsoft C compiler can't handle the goto that
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6360 would go here. */
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6361 dummyflag = 1;
10533
52b954844444 (read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents: 10457
diff changeset
6362 break;
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6363 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
6364
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6365 if (SYMBOLP (head))
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6366 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6367 Lisp_Object breakdown;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6368 int modifiers;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6369
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6370 breakdown = parse_modifiers (head);
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6371 modifiers = XINT (XCONS (XCONS (breakdown)->cdr)->car);
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6372 /* 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
6373 event that is bound:
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6374 Drags reduce to clicks.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6375 Double-clicks reduce to clicks.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6376 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
6377 Down-clicks are eliminated.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6378 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
6379 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
6380 then are eliminated. */
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6381 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
6382 | 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
6383 {
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6384 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
6385 | 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
6386 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6387 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
6388 if (modifiers & triple_modifier)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6389 modifiers ^= (double_modifier | triple_modifier);
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6390 else if (modifiers & double_modifier)
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6391 modifiers &= ~double_modifier;
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6392 else if (modifiers & drag_modifier)
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6393 modifiers &= ~drag_modifier;
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6394 else
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6395 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6396 /* 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
6397 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
6398
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6399 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
6400 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
6401 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
6402 mock input.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6403
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6404 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
6405 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
6406 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
6407 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
6408 anyway.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6409
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6410 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
6411 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
6412 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
6413 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
6414 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
6415 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
6416 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
6417 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
6418 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
6419 it.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6420
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6421 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
6422 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
6423 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
6424 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
6425
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6426 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
6427 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
6428 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6429 mock_input = 0;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6430 goto replay_key;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6431 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6432 else
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6433 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6434 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
6435 goto replay_sequence;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6436 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6437 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
6438
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6439 new_head
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6440 = 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
6441 new_click
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6442 = 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
6443
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6444 /* 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
6445 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
6446 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
6447 first_binding
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6448 = (follow_key (new_click,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6449 nmaps - local_first_binding,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6450 submaps + local_first_binding,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6451 defs + local_first_binding,
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6452 submaps + local_first_binding)
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
6453 + local_first_binding);
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6454
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6455 /* 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
6456 if (first_binding < nmaps)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6457 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6458 key = new_click;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6459 break;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6460 }
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6461 /* 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
6462 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6463 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6464 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6465 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6466
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6467 keybuf[t++] = key;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
6468 /* 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
6469 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
6470 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
6471 event that preceded the first level of menu. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
6472 if (!used_mouse_menu)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
6473 last_nonmenu_event = key;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6474
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6475 /* Record what part of this_command_keys is the current key sequence. */
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6476 this_single_command_key_start = this_command_key_count - t;
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6477
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6478 prev_fkey_map = fkey_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6479 prev_fkey_start = fkey_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6480 prev_fkey_end = fkey_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6481
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6482 prev_keytran_map = keytran_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6483 prev_keytran_start = keytran_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6484 prev_keytran_end = keytran_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6485
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6486 /* 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
6487 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
6488 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
6489 re-reading old events, don't examine it. */
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6490 if (first_binding >= nmaps
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
6491 && t >= mock_input)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6492 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6493 Lisp_Object fkey_next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6494
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6495 /* Continue scan from fkey_end until we find a bound suffix.
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6496 If we fail, increment fkey_start
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6497 and start fkey_end from there. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6498 while (fkey_end < t)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6499 {
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6500 Lisp_Object key;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6501
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6502 key = keybuf[fkey_end++];
853
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
6503 /* Look up meta-characters by prefixing them
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
6504 with meta_prefix_char. I hate this. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6505 if (INTEGERP (key) && XINT (key) & meta_modifier)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6506 {
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
6507 fkey_next
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
6508 = get_keymap_1
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6509 (get_keyelt
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
6510 (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
6511 0, 1);
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6512 XSETFASTINT (key, XFASTINT (key) & ~meta_modifier);
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6513 }
853
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
6514 else
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
6515 fkey_next = fkey_map;
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
6516
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
6517 fkey_next
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
6518 = 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
6519
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6520 #if 0 /* I didn't turn this on, because it might cause trouble
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6521 for the mapping of return into C-m and tab into C-i. */
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6522 /* Optionally don't map function keys into other things.
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6523 This enables the user to redefine kp- keys easily. */
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6524 if (SYMBOLP (key) && !NILP (Vinhibit_function_key_mapping))
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6525 fkey_next = Qnil;
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6526 #endif
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
6527
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6528 /* 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
6529 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
6530 its value instead. */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6531 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
6532 && fkey_end == t)
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6533 {
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6534 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
6535 Lisp_Object tem;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6536 tem = fkey_next;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6537
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6538 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
6539 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
6540 UNGCPRO;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6541 /* 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
6542 barf--don't ignore it.
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6543 (To ignore it safely, we would need to gcpro a bunch of
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6544 other variables.) */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6545 if (! (VECTORP (fkey_next) || STRINGP (fkey_next)))
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6546 error ("Function in key-translation-map returns invalid key sequence");
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6547 }
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6548
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6549 function_key_possible = ! NILP (fkey_next);
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6550
939
c4dcdc9aed70 Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents: 899
diff changeset
6551 /* If keybuf[fkey_start..fkey_end] is bound in the
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
6552 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
6553 sequence (i.e. fkey_end == t), replace it with
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
6554 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
6555 if ((VECTORP (fkey_next) || STRINGP (fkey_next))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6556 && fkey_end == t)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6557 {
4417
02b7d9476fae (read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents: 4397
diff changeset
6558 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
6559
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
6560 t = fkey_start + len;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6561 if (t >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6562 error ("Key sequence too long");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6563
4137
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
6564 if (VECTORP (fkey_next))
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
6565 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
6566 keybuf + fkey_start,
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
6567 (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
6568 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
6569 {
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
6570 int i;
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
6571
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
6572 for (i = 0; i < len; i++)
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6573 XSETFASTINT (keybuf[fkey_start + i],
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6574 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
6575 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6576
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6577 mock_input = t;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6578 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
6579 fkey_map = Vfunction_key_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6580
9445
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6581 /* Do pass the results through key-translation-map. */
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6582 keytran_start = keytran_end = 0;
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6583 keytran_map = Vkey_translation_map;
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6584
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6585 goto replay_sequence;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6586 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6587
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6588 fkey_map = get_keymap_1 (fkey_next, 0, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6589
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6590 /* If we no longer have a bound suffix, try a new positions for
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
6591 fkey_start. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6592 if (NILP (fkey_map))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6593 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6594 fkey_end = ++fkey_start;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6595 fkey_map = Vfunction_key_map;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
6596 function_key_possible = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6597 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6598 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6599 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6600
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6601 /* 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
6602 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6603 Lisp_Object keytran_next;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6604
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6605 /* 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
6606 while (keytran_end < t)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6607 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6608 Lisp_Object key;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6609
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6610 key = keybuf[keytran_end++];
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6611 /* 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
6612 with meta_prefix_char. I hate this. */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6613 if (INTEGERP (key) && XINT (key) & meta_modifier)
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6614 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6615 keytran_next
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6616 = get_keymap_1
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6617 (get_keyelt
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6618 (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
6619 0, 1);
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6620 XSETFASTINT (key, XFASTINT (key) & ~meta_modifier);
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6621 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6622 else
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6623 keytran_next = keytran_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6624
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6625 keytran_next
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6626 = 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
6627
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6628 /* 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
6629 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
6630 its value instead. */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6631 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
6632 && keytran_end == t)
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6633 {
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6634 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
6635 Lisp_Object tem;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6636 tem = keytran_next;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6637
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
6638 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
6639 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
6640 UNGCPRO;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6641 /* 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
6642 barf--don't ignore it.
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6643 (To ignore it safely, we would need to gcpro a bunch of
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6644 other variables.) */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6645 if (! (VECTORP (keytran_next) || STRINGP (keytran_next)))
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
6646 error ("Function in key-translation-map returns invalid key sequence");
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6647 }
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
6648
9445
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6649 key_translation_possible = ! NILP (keytran_next);
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6650
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6651 /* 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
6652 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
6653 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
6654 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
6655 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
6656 && keytran_end == t)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6657 {
4417
02b7d9476fae (read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents: 4397
diff changeset
6658 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
6659
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6660 t = keytran_start + len;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6661 if (t >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6662 error ("Key sequence too long");
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6663
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6664 if (VECTORP (keytran_next))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6665 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
6666 keybuf + keytran_start,
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6667 (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
6668 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
6669 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6670 int i;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6671
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6672 for (i = 0; i < len; i++)
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6673 XSETFASTINT (keybuf[keytran_start + i],
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6674 XSTRING (keytran_next)->data[i]);
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6675 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6676
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6677 mock_input = t;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6678 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
6679 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
6680
9445
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6681 /* Don't pass the results of key-translation-map
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6682 through function-key-map. */
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6683 fkey_start = fkey_end = t;
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6684 fkey_map = Vkey_translation_map;
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6685
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6686 goto replay_sequence;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6687 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6688
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6689 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
6690
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6691 /* If we no longer have a bound suffix, try a new positions for
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6692 keytran_start. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6693 if (NILP (keytran_map))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6694 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6695 keytran_end = ++keytran_start;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6696 keytran_map = Vkey_translation_map;
9445
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6697 key_translation_possible = 0;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6698 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6699 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6700 }
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6701
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6702 /* If KEY is not defined in any of the keymaps,
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6703 and cannot be part of a function key or translation,
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6704 and is an upper case letter
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6705 use the corresponding lower-case letter instead. */
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6706 if (first_binding == nmaps && ! function_key_possible
9445
712af9626dc0 (read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents: 9396
diff changeset
6707 && ! key_translation_possible
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6708 && INTEGERP (key)
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6709 && ((((XINT (key) & 0x3ffff)
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6710 < XSTRING (current_buffer->downcase_table)->size)
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6711 && UPPERCASEP (XINT (key) & 0x3ffff))
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6712 || (XINT (key) & shift_modifier)))
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6713 {
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6714 Lisp_Object new_key;
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6715
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6716 original_uppercase = key;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6717 original_uppercase_position = t - 1;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6718
15049
61ee56ae39ef (read_key_sequence): Fix confusion between key and new_key.
Richard M. Stallman <rms@gnu.org>
parents: 15045
diff changeset
6719 if (XINT (key) & shift_modifier)
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6720 XSETINT (new_key, XINT (key) & ~shift_modifier);
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6721 else
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6722 XSETINT (new_key, (DOWNCASE (XINT (key) & 0x3ffff)
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6723 | (XINT (key) & ~0x3ffff)));
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6724
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6725 /* We have to do this unconditionally, regardless of whether
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6726 the lower-case char is defined in the keymaps, because they
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6727 might get translated through function-key-map. */
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6728 keybuf[t - 1] = new_key;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6729 mock_input = t;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6730
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6731 fkey_map = prev_fkey_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6732 fkey_start = prev_fkey_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6733 fkey_end = prev_fkey_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6734
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6735 keytran_map = prev_keytran_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6736 keytran_start = prev_keytran_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6737 keytran_end = prev_keytran_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6738
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6739 goto replay_sequence;
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
6740 }
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6741 /* If KEY is not defined in any of the keymaps,
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6742 and cannot be part of a function key or translation,
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6743 and is a shifted function key,
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6744 use the corresponding unshifted function key instead. */
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6745 if (first_binding == nmaps && ! function_key_possible
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6746 && ! key_translation_possible
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6747 && SYMBOLP (key))
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6748 {
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6749 Lisp_Object breakdown;
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6750 int modifiers;
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6751
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6752 breakdown = parse_modifiers (key);
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6753 modifiers = XINT (XCONS (XCONS (breakdown)->cdr)->car);
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6754 if (modifiers & shift_modifier)
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6755 {
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6756 Lisp_Object new_key;
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6757
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6758 original_uppercase = key;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6759 original_uppercase_position = t - 1;
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6760
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6761 modifiers &= ~shift_modifier;
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6762 new_key = apply_modifiers (modifiers,
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6763 XCONS (breakdown)->car);
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
6764
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6765 keybuf[t - 1] = new_key;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6766 mock_input = t;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6767
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6768 fkey_map = prev_fkey_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6769 fkey_start = prev_fkey_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6770 fkey_end = prev_fkey_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6771
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6772 keytran_map = prev_keytran_map;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6773 keytran_start = prev_keytran_start;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6774 keytran_end = prev_keytran_end;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6775
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6776 goto replay_sequence;
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6777 }
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
6778 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6779 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6780
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6781 if (!dummyflag)
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6782 read_key_sequence_cmd = (first_binding < nmaps
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6783 ? defs[first_binding]
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6784 : Qnil);
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6785
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6786 unread_switch_frame = delayed_switch_frame;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
6787 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
6788
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6789 /* Don't downcase the last character if the caller says don't.
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6790 Don't downcase it if the result is undefined, either. */
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6791 if ((dont_downcase_last || first_binding >= nmaps)
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
6792 && t - 1 == original_uppercase_position)
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6793 keybuf[t - 1] = original_uppercase;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6794
3799
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
6795 /* 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
6796 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
6797 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
6798 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
6799 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
6800 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
6801 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
6802
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
6803 Better ideas? */
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
6804 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
6805 {
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
6806 if (echo_keystrokes)
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
6807 echo_char (keybuf[t]);
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
6808 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
6809 }
3799
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
6810
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6811 return t;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6812 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6813
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6814 #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
6815 This commented-out definition serves for DOC. */
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6816 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 4, 0,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6817 "Read a sequence of keystrokes and return as a string or vector.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6818 The sequence is sufficient to specify a non-prefix command in the\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6819 current local and global maps.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6820 \n\
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
6821 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
6822 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
6823 as a continuation of the previous key.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6824 \n\
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6825 The third (optional) arg DONT-DOWNCASE-LAST, if non-nil, means do not\n\
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6826 convert the last event to lower case. (Normally any upper case event\n\
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6827 is converted to lower case if the original event is undefined and the lower\n\
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6828 case equivalent is defined.) A non-nil value is appropriate for reading\n\
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6829 a key sequence to be defined.\n\
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6830 \n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
6831 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
6832 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
6833 \n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
6834 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
6835 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
6836 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
6837 ""\n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
6838 `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
6839 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
6840 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
6841 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
6842 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
6843 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
6844 \n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
6845 `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
6846 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
6847 `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
6848 \n\
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6849 Optional fourth argument CAN-RETURN-SWITCH-FRAME non-nil means that this\n\
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6850 function will process a switch-frame event if the user switches frames\n\
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6851 before typing anything. If the user switches frames in the middle of a\n\
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6852 key sequence, or at the start of the sequence but CAN-RETURN-SWITCH-FRAME\n\
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6853 is nil, then the event will be put off until after the current key sequence.\n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
6854 \n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
6855 `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
6856 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
6857 `function-key-map' for more details.")
11755
fb074e606a41 (Fread_key_sequence): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 11698
diff changeset
6858 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame)
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6859 #endif
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6860
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6861 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 4, 0,
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
6862 0)
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6863 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame)
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6864 Lisp_Object prompt, continue_echo, dont_downcase_last;
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6865 Lisp_Object can_return_switch_frame;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6866 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6867 Lisp_Object keybuf[30];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6868 register int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6869 struct gcpro gcpro1, gcpro2;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6870
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6871 if (!NILP (prompt))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6872 CHECK_STRING (prompt, 0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6873 QUIT;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6874
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6875 bzero (keybuf, sizeof keybuf);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6876 GCPRO1 (keybuf[0]);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6877 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0]));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6878
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 721
diff changeset
6879 if (NILP (continue_echo))
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6880 {
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6881 this_command_key_count = 0;
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6882 this_single_command_key_start = 0;
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6883 }
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
6884
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
6885 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])),
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
6886 prompt, ! NILP (dont_downcase_last),
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
6887 ! NILP (can_return_switch_frame), 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6888
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6889 if (i == -1)
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6890 {
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6891 Vquit_flag = Qt;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6892 QUIT;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
6893 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6894 UNGCPRO;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
6895 return make_event_array (i, keybuf);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6896 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6897
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6898 DEFUN ("command-execute", Fcommand_execute, Scommand_execute, 1, 4, 0,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6899 "Execute CMD as an editor command.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6900 CMD must be a symbol that satisfies the `commandp' predicate.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6901 Optional second arg RECORD-FLAG non-nil\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6902 means unconditionally put this command in `command-history'.\n\
13309
499e9df6c0f6 (Fcommand_execute): New arg KEYS. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13290
diff changeset
6903 Otherwise, that is done only if an arg is read using the minibuffer.\n\
499e9df6c0f6 (Fcommand_execute): New arg KEYS. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13290
diff changeset
6904 The argument KEYS specifies the value to use instead of (this-command-keys)\n\
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
6905 when reading the arguments; if it is nil, (this-command-keys) is used.\n\
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6906 The argument SPECIAL, if non-nil, means that this command is executing\n\
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6907 a special event, so ignore the prefix argument and don't clear it.")
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6908 (cmd, record_flag, keys, special)
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6909 Lisp_Object cmd, record_flag, keys, special;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6910 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6911 register Lisp_Object final;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6912 register Lisp_Object tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6913 Lisp_Object prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6914 struct backtrace backtrace;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6915 extern int debug_on_next_call;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6916
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6917 debug_on_next_call = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6918
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6919 if (NILP (special))
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6920 {
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6921 prefixarg = current_kboard->Vprefix_arg;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6922 Vcurrent_prefix_arg = prefixarg;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6923 current_kboard->Vprefix_arg = Qnil;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6924 }
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6925 else
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6926 prefixarg = Qnil;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
6927
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6928 if (SYMBOLP (cmd))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6929 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6930 tem = Fget (cmd, Qdisabled);
6208
db4139d43f8a (command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents: 6204
diff changeset
6931 if (!NILP (tem) && !NILP (Vrun_hooks))
12979
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
6932 {
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
6933 tem = Fsymbol_value (Qdisabled_command_hook);
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
6934 if (!NILP (tem))
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
6935 return call1 (Vrun_hooks, Qdisabled_command_hook);
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
6936 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6937 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6938
13842
7d0b87f737f9 (Fcommand_execute): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 13770
diff changeset
6939 while (1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6940 {
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
6941 final = Findirect_function (cmd);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6942
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6943 if (CONSP (final) && (tem = Fcar (final), EQ (tem, Qautoload)))
16109
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
6944 {
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
6945 struct gcpro gcpro1, gcpro2;
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
6946
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
6947 GCPRO2 (cmd, prefixarg);
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
6948 do_autoload (final, cmd);
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
6949 UNGCPRO;
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
6950 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6951 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6952 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6953 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6954
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6955 if (STRINGP (final) || VECTORP (final))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6956 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6957 /* If requested, place the macro in the command history. For
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6958 other sorts of commands, call-interactively takes care of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6959 this. */
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
6960 if (!NILP (record_flag))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6961 Vcommand_history
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6962 = Fcons (Fcons (Qexecute_kbd_macro,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6963 Fcons (final, Fcons (prefixarg, Qnil))),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6964 Vcommand_history);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6965
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6966 return Fexecute_kbd_macro (final, prefixarg);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6967 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
6968 if (CONSP (final) || SUBRP (final) || COMPILEDP (final))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6969 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6970 backtrace.next = backtrace_list;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6971 backtrace_list = &backtrace;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6972 backtrace.function = &Qcall_interactively;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6973 backtrace.args = &cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6974 backtrace.nargs = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6975 backtrace.evalargs = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6976
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
6977 tem = Fcall_interactively (cmd, record_flag, keys);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6978
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6979 backtrace_list = backtrace.next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6980 return tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6981 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6982 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6983 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6984
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6985 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6986 1, 1, "P",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6987 "Read function name, then read its arguments and call it.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6988 (prefixarg)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6989 Lisp_Object prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6990 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6991 Lisp_Object function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6992 char buf[40];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6993 Lisp_Object saved_keys;
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
6994 Lisp_Object bindings, value;
16107
6398b414a250 (Fexecute_extended_command): gcpro prefixarg.
Richard M. Stallman <rms@gnu.org>
parents: 16055
diff changeset
6995 struct gcpro gcpro1, gcpro2;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6996
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
6997 saved_keys = Fvector (this_command_key_count,
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
6998 XVECTOR (this_command_keys)->contents);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6999 buf[0] = 0;
16111
5ad91b5cd2b4 (Fexecute_extended_command): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16109
diff changeset
7000 GCPRO2 (saved_keys, prefixarg);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7001
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7002 if (EQ (prefixarg, Qminus))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7003 strcpy (buf, "- ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7004 else if (CONSP (prefixarg) && XINT (XCONS (prefixarg)->car) == 4)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7005 strcpy (buf, "C-u ");
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
7006 else if (CONSP (prefixarg) && INTEGERP (XCONS (prefixarg)->car))
11698
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7007 {
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7008 if (sizeof (int) == sizeof (EMACS_INT))
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7009 sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car));
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7010 else if (sizeof (long) == sizeof (EMACS_INT))
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7011 sprintf (buf, "%ld ", XINT (XCONS (prefixarg)->car));
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7012 else
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7013 abort ();
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7014 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
7015 else if (INTEGERP (prefixarg))
11698
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7016 {
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7017 if (sizeof (int) == sizeof (EMACS_INT))
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7018 sprintf (buf, "%d ", XINT (prefixarg));
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7019 else if (sizeof (long) == sizeof (EMACS_INT))
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7020 sprintf (buf, "%ld ", XINT (prefixarg));
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7021 else
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7022 abort ();
36204fbb45d0 (Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11682
diff changeset
7023 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7024
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7025 /* This isn't strictly correct if execute-extended-command
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7026 is bound to anything else. Perhaps it should use
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7027 this_command_keys? */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7028 strcat (buf, "M-x ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7029
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7030 /* Prompt with buf, and then read a string, completing from and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7031 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
7032 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
7033 history list. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7034 function = Fcompleting_read (build_string (buf),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7035 Vobarray, Qcommandp,
17719
78ec737e7154 (Fexecute_extended_command): Pass new arg to Fcompleting_read.
Richard M. Stallman <rms@gnu.org>
parents: 17699
diff changeset
7036 Qt, Qnil, Qextended_command_history, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7037
13864
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
7038 if (STRINGP (function) && XSTRING (function)->size == 0)
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
7039 error ("No command name given");
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
7040
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7041 /* Set this_command_keys to the concatenation of saved_keys and
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7042 function, followed by a RET. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7043 {
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7044 struct Lisp_String *str;
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
7045 Lisp_Object *keys;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7046 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7047 Lisp_Object tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7048
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7049 this_command_key_count = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7050 this_single_command_key_start = 0;
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7051
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
7052 keys = XVECTOR (saved_keys)->contents;
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
7053 for (i = 0; i < XVECTOR (saved_keys)->size; i++)
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
7054 add_command_key (keys[i]);
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7055
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7056 str = XSTRING (function);
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7057 for (i = 0; i < str->size; i++)
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7058 {
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
7059 XSETFASTINT (tem, str->data[i]);
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7060 add_command_key (tem);
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7061 }
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7062
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
7063 XSETFASTINT (tem, '\015');
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
7064 add_command_key (tem);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7065 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7066
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7067 UNGCPRO;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7068
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
7069 function = Fintern (function, Qnil);
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
7070 current_kboard->Vprefix_arg = prefixarg;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7071 this_command = function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7072
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7073 /* If enabled, show which key runs this command. */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7074 if (!NILP (Vsuggest_key_bindings)
15272
f32de56357a1 (Fexecute_extended_command): Don't look for
Karl Heuer <kwzh@gnu.org>
parents: 15165
diff changeset
7075 && NILP (Vexecuting_macro)
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7076 && SYMBOLP (function))
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7077 bindings = Fwhere_is_internal (function, Voverriding_local_map,
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7078 Qt, Qnil);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7079 else
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7080 bindings = Qnil;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7081
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7082 value = Qnil;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7083 GCPRO2 (bindings, value);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7084 value = Fcommand_execute (function, Qt, Qnil, Qnil);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7085
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7086 /* If the command has a key binding, print it now. */
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7087 if (!NILP (bindings))
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7088 {
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7089 /* But first wait, and skip the message if there is input. */
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7090 if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings)
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7091 ? Vsuggest_key_bindings : make_number (2)),
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7092 Qnil, Qnil)))
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7093 {
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7094 Lisp_Object binding;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7095 char *newmessage;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7096 char *oldmessage = echo_area_glyphs;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7097 int oldmessage_len = echo_area_glyphs_length;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7098
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7099 binding = Fkey_description (bindings);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7100
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7101 newmessage
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7102 = (char *) alloca (XSYMBOL (function)->name->size
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7103 + XSTRING (binding)->size
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7104 + 100);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7105 sprintf (newmessage, "You can run the command `%s' by typing %s",
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7106 XSYMBOL (function)->name->data,
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7107 XSTRING (binding)->data);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7108 message1_nolog (newmessage);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7109 if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings)
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7110 ? Vsuggest_key_bindings : make_number (2)),
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7111 Qnil, Qnil)))
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7112 message2_nolog (oldmessage, oldmessage_len);
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7113 }
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7114 }
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7115
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
7116 RETURN_UNGCPRO (value);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7117 }
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7118
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7119 /* Find the set of keymaps now active.
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7120 Store into *MAPS_P a vector holding the various maps
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7121 and return the number of them. The vector was malloc'd
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7122 and the caller should free it. */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7123
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7124 int
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7125 current_active_maps (maps_p)
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7126 Lisp_Object **maps_p;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7127 {
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7128 Lisp_Object *tmaps, *maps;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7129 int nmaps;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7130
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7131 /* Should overriding-terminal-local-map and overriding-local-map apply? */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7132 if (!NILP (Voverriding_local_map_menu_flag))
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7133 {
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7134 /* Yes, use them (if non-nil) as well as the global map. */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7135 maps = (Lisp_Object *) xmalloc (3 * sizeof (maps[0]));
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7136 nmaps = 0;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7137 if (!NILP (current_kboard->Voverriding_terminal_local_map))
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7138 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7139 if (!NILP (Voverriding_local_map))
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7140 maps[nmaps++] = Voverriding_local_map;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7141 }
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7142 else
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7143 {
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7144 /* No, so use major and minor mode keymaps. */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7145 nmaps = current_minor_maps (NULL, &tmaps);
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7146 maps = (Lisp_Object *) xmalloc ((nmaps + 2) * sizeof (maps[0]));
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7147 bcopy (tmaps, maps, nmaps * sizeof (maps[0]));
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7148 #ifdef USE_TEXT_PROPERTIES
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7149 maps[nmaps++] = get_local_map (PT, current_buffer);
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7150 #else
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7151 maps[nmaps++] = current_buffer->keymap;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7152 #endif
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7153 }
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7154 maps[nmaps++] = current_global_map;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7155
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7156 *maps_p = maps;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7157 return nmaps;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
7158 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7159
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7160 /* Return nonzero if input events are pending. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7161
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7162 detect_input_pending ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7163 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7164 if (!input_pending)
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7165 get_input_pending (&input_pending, 0);
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7166
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7167 return input_pending;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7168 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7169
16017
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7170 /* Return nonzero if input events are pending, and run any pending timers. */
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7171
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7172 detect_input_pending_run_timers (do_display)
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7173 int do_display;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7174 {
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7175 int old_timers_run = timers_run;
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7176
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7177 if (!input_pending)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7178 get_input_pending (&input_pending, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7179
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7180 if (old_timers_run != timers_run && do_display)
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7181 redisplay_preserve_echo_area ();
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7182
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7183 return input_pending;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7184 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7185
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7186 /* This is called in some cases before a possible quit.
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7187 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
7188 So calling this function unnecessarily can't do any harm. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7189 clear_input_pending ()
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7190 {
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7191 input_pending = 0;
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7192 }
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7193
16017
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7194 /* Return nonzero if there are pending requeued events.
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7195 This isn't used yet. The hope is to make wait_reading_process_input
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7196 call it, and return return if it runs Lisp code that unreads something.
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7197 The problem is, kbd_buffer_get_event needs to be fixed to know what
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7198 to do in that case. It isn't trivial. */
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7199
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7200 requeued_events_pending_p ()
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7201 {
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7202 return (!NILP (Vunread_command_events) || unread_command_char != -1);
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7203 }
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7204
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
7205
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7206 DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7207 "T if command input is currently available with no waiting.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7208 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
7209 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7210 {
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
7211 if (!NILP (Vunread_command_events) || unread_command_char != -1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7212 return (Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7213
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7214 get_input_pending (&input_pending, 1);
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
7215 return input_pending > 0 ? Qt : Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7216 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7217
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7218 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
7219 "Return vector of last 100 events, not counting those from keyboard macros.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7220 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7221 {
1261
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
7222 Lisp_Object *keys = XVECTOR (recent_keys)->contents;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7223 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7224
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7225 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
7226 return Fvector (total_keys, keys);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7227 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7228 {
1261
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
7229 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
7230 bcopy (keys + recent_keys_index,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7231 XVECTOR (val)->contents,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7232 (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
7233 bcopy (keys,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7234 XVECTOR (val)->contents + NUM_RECENT_KEYS - recent_keys_index,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7235 recent_keys_index * sizeof (Lisp_Object));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7236 return val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7237 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7238 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7239
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7240 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
7241 "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
7242 The value is a string or a vector.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7243 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7244 {
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7245 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
7246 XVECTOR (this_command_keys)->contents);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7247 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7248
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7249 DEFUN ("this-single-command-keys", Fthis_single_command_keys,
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7250 Sthis_single_command_keys, 0, 0, 0,
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7251 "Return the key sequence that invoked this command.\n\
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7252 Unlike `this-command-keys', this function's value\n\
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7253 does not include prefix arguments.\n\
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7254 The value is a string or a vector.")
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7255 ()
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7256 {
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7257 return make_event_array (this_command_key_count
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7258 - this_single_command_key_start,
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7259 (XVECTOR (this_command_keys)->contents
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7260 + this_single_command_key_start));
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7261 }
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
7262
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7263 DEFUN ("reset-this-command-lengths", Freset_this_command_lengths,
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7264 Sreset_this_command_lengths, 0, 0, 0,
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7265 "Used for complicated reasons in `universal-argument-other-key'.\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7266 \n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7267 `universal-argument-other-key' rereads the event just typed.\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7268 It then gets translated through `function-key-map'.\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7269 The translated event gets included in the echo area and in\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7270 the value of `this-command-keys' in addition to the raw original event.\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7271 That is not right.\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7272 \n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7273 Calling this function directs the translated event to replace\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7274 the original event, so that only one version of the event actually\n\
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7275 appears in the echo area and in the value of `this-command-keys.'.")
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7276 ()
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7277 {
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7278 before_command_restore_flag = 1;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7279 before_command_key_count_1 = before_command_key_count;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7280 before_command_echo_length_1 = before_command_echo_length;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7281 }
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
7282
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7283 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7284 "Return the current depth in recursive edits.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7285 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7286 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7287 Lisp_Object temp;
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
7288 XSETFASTINT (temp, command_loop_level + minibuf_level);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7289 return temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7290 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7291
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7292 DEFUN ("open-dribble-file", Fopen_dribble_file, Sopen_dribble_file, 1, 1,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7293 "FOpen dribble file: ",
1888
86ff3942d7e1 (Fopen_dribble_file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1842
diff changeset
7294 "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
7295 If FILE is nil, close any open dribble file.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7296 (file)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7297 Lisp_Object file;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7298 {
14590
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
7299 if (dribble)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7300 {
14590
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
7301 fclose (dribble);
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
7302 dribble = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7303 }
14590
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
7304 if (!NILP (file))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7305 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7306 file = Fexpand_file_name (file, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7307 dribble = fopen (XSTRING (file)->data, "w");
14591
6002d6e3aea3 (Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 14590
diff changeset
7308 if (dribble == 0)
6002d6e3aea3 (Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 14590
diff changeset
7309 report_file_error ("Opening dribble", Fcons (file, Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7310 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7311 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7312 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7313
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7314 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7315 "Discard the contents of the terminal input buffer.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7316 Also cancel any kbd macro being defined.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7317 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7318 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7319 current_kboard->defining_kbd_macro = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7320 update_mode_lines++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7321
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
7322 Vunread_command_events = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7323 unread_command_char = -1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7324
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7325 discard_tty_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7326
1654
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
7327 /* 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
7328 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
7329 with that? */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7330 kbd_fetch_ptr = (struct input_event *) kbd_store_ptr;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7331 Ffillarray (kbd_buffer_frame_or_window, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7332 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7333
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7334 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7335 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7336
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7337 DEFUN ("suspend-emacs", Fsuspend_emacs, Ssuspend_emacs, 0, 1, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7338 "Stop Emacs and return to superior process. You can resume later.\n\
6101
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
7339 If `cannot-suspend' is non-nil, or if the system doesn't support job\n\
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
7340 control, run a subshell instead.\n\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7341 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
7342 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
7343 \n\
9215
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
7344 Before suspending, run the normal hook `suspend-hook'.\n\
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
7345 After resumption run the normal hook `suspend-resume-hook'.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7346 \n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7347 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
7348 On such systems, Emacs starts a subshell instead of suspending.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7349 (stuffstring)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7350 Lisp_Object stuffstring;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7351 {
1895
b497a7ec0d58 (Fsuspend_emacs): Make tem not register.
Richard M. Stallman <rms@gnu.org>
parents: 1891
diff changeset
7352 Lisp_Object tem;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7353 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7354 int old_height, old_width;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7355 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
7356 struct gcpro gcpro1, gcpro2;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7357 extern init_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7358
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7359 if (!NILP (stuffstring))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7360 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
7361
2338
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
7362 /* Run the functions in suspend-hook. */
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
7363 if (!NILP (Vrun_hooks))
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
7364 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
7365
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7366 GCPRO1 (stuffstring);
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
7367 get_frame_size (&old_width, &old_height);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7368 reset_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7369 /* sys_suspend can get an error if it tries to fork a subshell
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7370 and the system resources aren't available for that. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7371 record_unwind_protect (init_sys_modes, 0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7372 stuff_buffered_input (stuffstring);
6101
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
7373 if (cannot_suspend)
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
7374 sys_subshell ();
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
7375 else
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
7376 sys_suspend ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7377 unbind_to (count, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7378
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7379 /* Check if terminal/window size has changed.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7380 Note that this is not useful when we are running directly
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7381 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
7382 get_frame_size (&width, &height);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7383 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
7384 change_frame_size (selected_frame, height, width, 0, 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7385
2338
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
7386 /* Run suspend-resume-hook. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7387 if (!NILP (Vrun_hooks))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7388 call1 (Vrun_hooks, intern ("suspend-resume-hook"));
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
7389
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7390 UNGCPRO;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7391 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7392 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7393
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7394 /* 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
7395 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
7396
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7397 stuff_buffered_input (stuffstring)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7398 Lisp_Object stuffstring;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7399 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7400 /* stuff_char works only in BSD, versions 4.2 and up. */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16196
diff changeset
7401 #ifdef BSD_SYSTEM
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7402 #ifndef BSD4_1
10551
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
7403 register unsigned char *p;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
7404
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
7405 if (STRINGP (stuffstring))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7406 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7407 register int count;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7408
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7409 p = XSTRING (stuffstring)->data;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7410 count = XSTRING (stuffstring)->size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7411 while (count-- > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7412 stuff_char (*p++);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7413 stuff_char ('\n');
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7414 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7415 /* Anything we have read ahead, put back for the shell to read. */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7416 /* ?? What should this do when we have multiple keyboards??
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7417 Should we ignore anything that was typed in at the "wrong" kboard? */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7418 for (; kbd_fetch_ptr != kbd_store_ptr; kbd_fetch_ptr++)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7419 {
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7420 if (kbd_fetch_ptr == kbd_buffer + KBD_BUFFER_SIZE)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7421 kbd_fetch_ptr = kbd_buffer;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7422 if (kbd_fetch_ptr->kind == ascii_keystroke)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7423 stuff_char (kbd_fetch_ptr->code);
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7424 kbd_fetch_ptr->kind = no_event;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7425 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_fetch_ptr
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7426 - kbd_buffer]
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
7427 = Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7428 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7429 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7430 #endif
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16196
diff changeset
7431 #endif /* BSD_SYSTEM and not BSD4_1 */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7432 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7433
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7434 set_waiting_for_input (time_to_clear)
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7435 EMACS_TIME *time_to_clear;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7436 {
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7437 input_available_clear_time = time_to_clear;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7438
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7439 /* Tell interrupt_signal to throw back to read_char, */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7440 waiting_for_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7441
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7442 /* If interrupt_signal was called before and buffered a C-g,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7443 make it run again now, to avoid timing error. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7444 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7445 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7446 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7447
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7448 clear_waiting_for_input ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7449 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7450 /* Tell interrupt_signal not to throw back to read_char, */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7451 waiting_for_input = 0;
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
7452 input_available_clear_time = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7453 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7454
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7455 /* This routine is called at interrupt level in response to C-G.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7456 If interrupt_input, this is the handler for SIGINT.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7457 Otherwise, it is called from kbd_buffer_store_event,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7458 in handling SIGIO or SIGTINT.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7459
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7460 If `waiting_for_input' is non zero, then unless `echoing' is nonzero,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7461 immediately throw back to read_char.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7462
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7463 Otherwise it sets the Lisp variable quit-flag not-nil.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7464 This causes eval to throw, when it gets a chance.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7465 If quit-flag is already non-nil, it stops the job right away. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7466
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7467 SIGTYPE
10746
ea87e4d9c8ea (input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents: 10701
diff changeset
7468 interrupt_signal (signalnum) /* If we don't have an argument, */
ea87e4d9c8ea (input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents: 10701
diff changeset
7469 int signalnum; /* some compilers complain in signal calls. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7470 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7471 char c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7472 /* Must preserve main program's value of errno. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7473 int old_errno = errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7474
16115
cc8c3e2cc6ed (input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16111
diff changeset
7475 #if defined (USG) && !defined (POSIX_SIGNALS)
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7476 if (!read_socket_hook && NILP (Vwindow_system))
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7477 {
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7478 /* USG systems forget handlers when they are used;
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7479 must reestablish each time */
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7480 signal (SIGINT, interrupt_signal);
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7481 signal (SIGQUIT, interrupt_signal);
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7482 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7483 #endif /* USG */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7484
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7485 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7486
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7487 if (!NILP (Vquit_flag)
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7488 && (FRAME_TERMCAP_P (selected_frame) || FRAME_MSDOS_P (selected_frame)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7489 {
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7490 /* If SIGINT isn't blocked, don't let us be interrupted by
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7491 another SIGINT, it might be harmful due to non-reentrancy
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7492 in I/O functions. */
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7493 sigblock (sigmask (SIGINT));
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7494
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7495 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7496 reset_sys_modes ();
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7497
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7498 #ifdef SIGTSTP /* Support possible in later USG versions */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7499 /*
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7500 * On systems which can suspend the current process and return to the original
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7501 * shell, this command causes the user to end up back at the shell.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7502 * The "Auto-save" and "Abort" questions are not asked until
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7503 * 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
7504 * job and either dump core or continue.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7505 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7506 sys_suspend ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7507 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7508 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7509 if (sys_suspend () == -1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7510 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7511 printf ("Not running as a subprocess;\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7512 printf ("you can continue or abort.\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7513 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7514 #else /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7515 /* Perhaps should really fork an inferior shell?
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7516 But that would not provide any way to get back
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7517 to the original shell, ever. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7518 printf ("No support for stopping a process on this operating system;\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7519 printf ("you can continue or abort.\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7520 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7521 #endif /* not SIGTSTP */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7522 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7523 /* We must remain inside the screen area when the internal terminal
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7524 is used. Note that [Enter] is not echoed by dos. */
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7525 cursor_to (0, 0);
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7526 #endif
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7527 /* It doesn't work to autosave while GC is in progress;
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7528 the code used for auto-saving doesn't cope with the mark bit. */
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7529 if (!gc_in_progress)
4282
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
7530 {
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7531 printf ("Auto-save? (y or n) ");
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7532 fflush (stdout);
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7533 if (((c = getchar ()) & ~040) == 'Y')
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7534 {
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7535 Fdo_auto_save (Qt, Qnil);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7536 #ifdef MSDOS
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7537 printf ("\r\nAuto-save done");
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7538 #else /* not MSDOS */
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7539 printf ("Auto-save done\n");
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7540 #endif /* not MSDOS */
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7541 }
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7542 while (c != '\n') c = getchar ();
4282
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
7543 }
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7544 else
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7545 {
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7546 /* During GC, it must be safe to reenable quitting again. */
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7547 Vinhibit_quit = Qnil;
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7548 #ifdef MSDOS
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7549 printf ("\r\n");
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7550 #endif /* not MSDOS */
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7551 printf ("Garbage collection in progress; cannot auto-save now\r\n");
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7552 printf ("but will instead do a real quit after garbage collection ends\r\n");
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7553 fflush (stdout);
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7554 }
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
7555
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7556 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7557 printf ("\r\nAbort? (y or n) ");
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7558 #else /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7559 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7560 printf ("Abort (and enter debugger)? (y or n) ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7561 #else /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7562 printf ("Abort (and dump core)? (y or n) ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7563 #endif /* not VMS */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7564 #endif /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7565 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7566 if (((c = getchar ()) & ~040) == 'Y')
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7567 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7568 while (c != '\n') c = getchar ();
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7569 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7570 printf ("\r\nContinuing...\r\n");
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7571 #else /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7572 printf ("Continuing...\n");
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
7573 #endif /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7574 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7575 init_sys_modes ();
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
7576 sigfree ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7577 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7578 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7579 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7580 /* If executing a function that wants to be interrupted out of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7581 and the user has not deferred quitting by binding `inhibit-quit'
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7582 then quit right away. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7583 if (immediate_quit && NILP (Vinhibit_quit))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7584 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7585 immediate_quit = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7586 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7587 Fsignal (Qquit, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7588 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7589 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7590 /* Else request quit when it's safe */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7591 Vquit_flag = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7592 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7593
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7594 if (waiting_for_input && !echoing)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7595 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7596
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7597 errno = old_errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7598 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7599
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7600 /* Handle a C-g by making read_char return C-g. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7601
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7602 quit_throw_to_read_char ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7603 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7604 quit_error_check ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7605 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7606 /* Prevent another signal from doing this before we finish. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
7607 clear_waiting_for_input ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7608 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7609
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
7610 Vunread_command_events = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7611 unread_command_char = -1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7612
12309
c78f7af6cee9 (quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents: 12290
diff changeset
7613 #if 0 /* Currently, sit_for is called from read_char without turning
c78f7af6cee9 (quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents: 12290
diff changeset
7614 off polling. And that can call set_waiting_for_input.
c78f7af6cee9 (quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents: 12290
diff changeset
7615 It seems to be harmless. */
2340
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
7616 #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
7617 /* 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
7618 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
7619 abort ();
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
7620 #endif
12309
c78f7af6cee9 (quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents: 12290
diff changeset
7621 #endif
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
7622 if (FRAMEP (internal_last_event_frame)
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
7623 && XFRAME (internal_last_event_frame) != selected_frame)
12290
99ffac67fb53 (quit_throw_to_read_char): Use do_switch_frame directly.
Richard M. Stallman <rms@gnu.org>
parents: 12264
diff changeset
7624 do_switch_frame (make_lispy_switch_frame (internal_last_event_frame),
99ffac67fb53 (quit_throw_to_read_char): Use do_switch_frame directly.
Richard M. Stallman <rms@gnu.org>
parents: 12264
diff changeset
7625 Qnil, 0);
2340
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
7626
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7627 _longjmp (getcjmp, 1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7628 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7629
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7630 DEFUN ("set-input-mode", Fset_input_mode, Sset_input_mode, 3, 4, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7631 "Set mode of reading keyboard input.\n\
695
e3fac20d3015 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 691
diff changeset
7632 First arg INTERRUPT non-nil means use input interrupts;\n\
e3fac20d3015 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 691
diff changeset
7633 nil means use CBREAK mode.\n\
e3fac20d3015 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 691
diff changeset
7634 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
7635 (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
7636 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
7637 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
7638 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
7639 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
7640 See also `current-input-mode'.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7641 (interrupt, flow, meta, quit)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7642 Lisp_Object interrupt, flow, meta, quit;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7643 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7644 if (!NILP (quit)
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
7645 && (!INTEGERP (quit) || XINT (quit) < 0 || XINT (quit) > 0400))
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7646 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
7647
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7648 #ifdef POLL_FOR_INPUT
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7649 stop_polling ();
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7650 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7651
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
7652 #ifndef MSDOS
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
7653 /* this causes startup screen to be restored and messes with the mouse */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7654 reset_sys_modes ();
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
7655 #endif
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
7656
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7657 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7658 /* Note SIGIO has been undef'd if FIONREAD is missing. */
11993
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7659 if (read_socket_hook)
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7660 {
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7661 /* When using X, don't give the user a real choice,
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7662 because we haven't implemented the mechanisms to support it. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7663 #ifdef NO_SOCK_SIGIO
11993
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7664 interrupt_input = 0;
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7665 #else /* not NO_SOCK_SIGIO */
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7666 interrupt_input = 1;
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7667 #endif /* NO_SOCK_SIGIO */
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7668 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7669 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7670 interrupt_input = !NILP (interrupt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7671 #else /* not SIGIO */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7672 interrupt_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7673 #endif /* not SIGIO */
11993
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7674
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7675 /* Our VMS input only works by interrupts, as of now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7676 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7677 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7678 #endif
11993
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
7679
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7680 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
7681 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
7682 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
7683 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
7684 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
7685 else
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
7686 meta_key = 2;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7687 if (!NILP (quit))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7688 /* Don't let this value be out of range. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7689 quit_char = XINT (quit) & (meta_key ? 0377 : 0177);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7690
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
7691 #ifndef MSDOS
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7692 init_sys_modes ();
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
7693 #endif
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7694
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7695 #ifdef POLL_FOR_INPUT
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7696 poll_suppress_count = 1;
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7697 start_polling ();
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
7698 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7699 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7700 }
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7701
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7702 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
7703 "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
7704 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
7705 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
7706 nil, Emacs is using CBREAK mode.\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7707 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
7708 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
7709 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
7710 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
7711 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
7712 all 8 bits as the character code.\n\
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7713 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
7714 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
7715 `set-input-mode'.")
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7716 ()
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7717 {
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7718 Lisp_Object val[4];
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7719
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7720 val[0] = interrupt_input ? Qt : Qnil;
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7721 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
7722 val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil;
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
7723 XSETFASTINT (val[3], quit_char);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7724
3116
05c3ef28bb6b (Fcurrent_input_mode): Fix the call to Flist.
Richard M. Stallman <rms@gnu.org>
parents: 3104
diff changeset
7725 return Flist (sizeof (val) / sizeof (val[0]), val);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7726 }
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
7727
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7728
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7729 /*
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7730 * Set up a new kboard object with reasonable initial values.
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7731 */
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7732 void
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7733 init_kboard (kb)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7734 KBOARD *kb;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7735 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7736 kb->Voverriding_terminal_local_map = Qnil;
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
7737 kb->Vlast_command = Qnil;
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
7738 kb->Vprefix_arg = Qnil;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7739 kb->kbd_queue = Qnil;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7740 kb->kbd_queue_has_data = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7741 kb->immediate_echo = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7742 kb->echoptr = kb->echobuf;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7743 kb->echo_after_prompt = -1;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7744 kb->kbd_macro_buffer = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7745 kb->kbd_macro_bufsize = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7746 kb->defining_kbd_macro = Qnil;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7747 kb->Vlast_kbd_macro = Qnil;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7748 kb->reference_count = 0;
11543
317e5825008b (Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents: 11540
diff changeset
7749 kb->Vsystem_key_alist = Qnil;
12176
3e14d94320f2 (system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12173
diff changeset
7750 kb->system_key_syms = Qnil;
11777
14ecddbe182f (init_kboard): Initialize Vdefault_minibuffer_frame.
Karl Heuer <kwzh@gnu.org>
parents: 11763
diff changeset
7751 kb->Vdefault_minibuffer_frame = Qnil;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7752 }
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7753
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7754 /*
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7755 * Destroy the contents of a kboard object, but not the object itself.
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13864
diff changeset
7756 * We use this just before deleting it, or if we're going to initialize
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7757 * it a second time.
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7758 */
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7759 static void
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7760 wipe_kboard (kb)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7761 KBOARD *kb;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7762 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7763 if (kb->kbd_macro_buffer)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7764 xfree (kb->kbd_macro_buffer);
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7765 }
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
7766
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7767 #ifdef MULTI_KBOARD
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7768 void
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7769 delete_kboard (kb)
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7770 KBOARD *kb;
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7771 {
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7772 KBOARD **kbp;
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7773 for (kbp = &all_kboards; *kbp != kb; kbp = &(*kbp)->next_kboard)
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7774 if (*kbp == NULL)
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7775 abort ();
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7776 *kbp = kb->next_kboard;
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7777 wipe_kboard (kb);
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7778 xfree (kb);
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7779 }
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7780 #endif
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
7781
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7782 init_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7783 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7784 /* This is correct before outermost invocation of the editor loop */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7785 command_loop_level = -1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7786 immediate_quit = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7787 quit_char = Ctl ('g');
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
7788 Vunread_command_events = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7789 unread_command_char = -1;
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
7790 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7791 total_keys = 0;
1262
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
7792 recent_keys_index = 0;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7793 kbd_fetch_ptr = kbd_buffer;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7794 kbd_store_ptr = kbd_buffer;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7795 kbd_buffer_frame_or_window
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7796 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil);
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
7797 #ifdef HAVE_MOUSE
9618
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
7798 do_mouse_tracking = Qnil;
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
7799 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7800 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7801
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
7802 /* This means that command_loop_1 won't try to select anything the first
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
7803 time through. */
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
7804 internal_last_event_frame = Qnil;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
7805 Vlast_event_frame = internal_last_event_frame;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
7806
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7807 #ifdef MULTI_KBOARD
11363
f15dccd23db8 (init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents: 11350
diff changeset
7808 current_kboard = initial_kboard;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
7809 #endif
11363
f15dccd23db8 (init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents: 11350
diff changeset
7810 wipe_kboard (current_kboard);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
7811 init_kboard (current_kboard);
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
7812
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7813 if (initialized)
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7814 Ffillarray (kbd_buffer_frame_or_window, Qnil);
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7815
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7816 kbd_buffer_frame_or_window
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7817 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil);
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7818 if (!noninteractive && !read_socket_hook && NILP (Vwindow_system))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7819 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7820 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
7821 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7822 /* 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
7823 SIGQUIT and we can't tell which one it will give us. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7824 signal (SIGQUIT, interrupt_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7825 #endif /* HAVE_TERMIO */
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7826 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7827 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7828 #ifdef SIGIO
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7829 if (!noninteractive)
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
7830 signal (SIGIO, input_available_signal);
1008
f1df63f98e5c * keyboard.c (init_keyboard): Changed "#endif SIGIO" to
Jim Blandy <jimb@redhat.com>
parents: 985
diff changeset
7831 #endif /* SIGIO */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7832
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7833 /* Use interrupt input by default, if it works and noninterrupt input
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7834 has deficiencies. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7835
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7836 #ifdef INTERRUPT_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7837 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7838 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7839 interrupt_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7840 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7841
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7842 /* Our VMS input only works by interrupts, as of now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7843 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7844 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7845 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7846
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7847 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7848 dribble = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7849
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7850 if (keyboard_init_hook)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7851 (*keyboard_init_hook) ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7852
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7853 #ifdef POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7854 poll_suppress_count = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7855 start_polling ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7856 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7857 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7858
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
7859 /* This type's only use is in syms_of_keyboard, to initialize the
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7860 event header symbols and put properties on them. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7861 struct event_head {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7862 Lisp_Object *var;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7863 char *name;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7864 Lisp_Object *kind;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7865 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7866
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7867 struct event_head head_table[] = {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
7868 &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
7869 &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
7870 &Qswitch_frame, "switch-frame", &Qswitch_frame,
9215
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
7871 &Qdelete_frame, "delete-frame", &Qdelete_frame,
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
7872 &Qiconify_frame, "iconify-frame", &Qiconify_frame,
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
7873 &Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7874 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7875
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7876 syms_of_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7877 {
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
7878 Qtimer_event_handler = intern ("timer-event-handler");
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
7879 staticpro (&Qtimer_event_handler);
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
7880
4094
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
7881 Qdisabled_command_hook = intern ("disabled-command-hook");
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
7882 staticpro (&Qdisabled_command_hook);
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
7883
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7884 Qself_insert_command = intern ("self-insert-command");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7885 staticpro (&Qself_insert_command);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7886
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7887 Qforward_char = intern ("forward-char");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7888 staticpro (&Qforward_char);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7889
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7890 Qbackward_char = intern ("backward-char");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7891 staticpro (&Qbackward_char);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7892
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7893 Qdisabled = intern ("disabled");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7894 staticpro (&Qdisabled);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7895
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
7896 Qundefined = intern ("undefined");
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
7897 staticpro (&Qundefined);
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
7898
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7899 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
7900 staticpro (&Qpre_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7901
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7902 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
7903 staticpro (&Qpost_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7904
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
7905 Qpost_command_idle_hook = intern ("post-command-idle-hook");
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
7906 staticpro (&Qpost_command_idle_hook);
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
7907
10070
def41008c136 (command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents: 10060
diff changeset
7908 Qdeferred_action_function = intern ("deferred-action-function");
def41008c136 (command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents: 10060
diff changeset
7909 staticpro (&Qdeferred_action_function);
def41008c136 (command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents: 10060
diff changeset
7910
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
7911 Qcommand_hook_internal = intern ("command-hook-internal");
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
7912 staticpro (&Qcommand_hook_internal);
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
7913
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7914 Qfunction_key = intern ("function-key");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7915 staticpro (&Qfunction_key);
1322
5f327f1dddd3 * keyboard.c (modify_event_symbol): Make sure that the unmodified
Jim Blandy <jimb@redhat.com>
parents: 1310
diff changeset
7916 Qmouse_click = intern ("mouse-click");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7917 staticpro (&Qmouse_click);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7918
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
7919 Qmenu_enable = intern ("menu-enable");
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
7920 staticpro (&Qmenu_enable);
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
7921
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7922 Qmode_line = intern ("mode-line");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7923 staticpro (&Qmode_line);
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
7924 Qvertical_line = intern ("vertical-line");
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
7925 staticpro (&Qvertical_line);
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
7926 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
7927 staticpro (&Qvertical_scroll_bar);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7928 Qmenu_bar = intern ("menu-bar");
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7929 staticpro (&Qmenu_bar);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
7930
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
7931 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
7932 staticpro (&Qabove_handle);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
7933 Qhandle = intern ("handle");
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
7934 staticpro (&Qhandle);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
7935 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
7936 staticpro (&Qbelow_handle);
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
7937 Qup = intern ("up");
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
7938 staticpro (&Qup);
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
7939 Qdown = intern ("down");
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
7940 staticpro (&Qdown);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7941
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
7942 Qevent_kind = intern ("event-kind");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7943 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
7944 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
7945 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
7946 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
7947 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
7948 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
7949 staticpro (&Qmodifier_cache);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7950
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
7951 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
7952 staticpro (&Qrecompute_lucid_menubar);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
7953 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
7954 staticpro (&Qactivate_menubar_hook);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
7955
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
7956 Qpolling_period = intern ("polling-period");
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
7957 staticpro (&Qpolling_period);
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
7958
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7959 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7960 struct event_head *p;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7961
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7962 for (p = head_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7963 p < head_table + (sizeof (head_table) / sizeof (head_table[0]));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7964 p++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7965 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7966 *p->var = intern (p->name);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7967 staticpro (p->var);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7968 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
7969 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7970 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7971 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7972
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
7973 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
7974 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
7975
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
7976 {
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
7977 int i;
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
7978 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
7979
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
7980 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
7981 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
7982 if (modifier_names[i])
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
7983 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
7984 staticpro (&modifier_symbols);
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
7985 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
7986
1262
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
7987 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
7988 staticpro (&recent_keys);
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
7989
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
7990 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
7991 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
7992
4773
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
7993 Qextended_command_history = intern ("extended-command-history");
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
7994 Fset (Qextended_command_history, Qnil);
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
7995 staticpro (&Qextended_command_history);
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
7996
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7997 kbd_buffer_frame_or_window
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7998 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil);
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
7999 staticpro (&kbd_buffer_frame_or_window);
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
8000
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
8001 accent_key_syms = Qnil;
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
8002 staticpro (&accent_key_syms);
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
8003
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8004 func_key_syms = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8005 staticpro (&func_key_syms);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8006
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8007 mouse_syms = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8008 staticpro (&mouse_syms);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8009
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
8010 unread_switch_frame = Qnil;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
8011 staticpro (&unread_switch_frame);
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
8012
16229
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
8013 internal_last_event_frame = Qnil;
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
8014 staticpro (&internal_last_event_frame);
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
8015
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
8016 read_key_sequence_cmd = Qnil;
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
8017 staticpro (&read_key_sequence_cmd);
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
8018
12150
64b16f71a15c (Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents: 12144
diff changeset
8019 defsubr (&Sevent_convert_list);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8020 defsubr (&Sread_key_sequence);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8021 defsubr (&Srecursive_edit);
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
8022 #ifdef HAVE_MOUSE
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8023 defsubr (&Strack_mouse);
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
8024 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8025 defsubr (&Sinput_pending_p);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8026 defsubr (&Scommand_execute);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8027 defsubr (&Srecent_keys);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8028 defsubr (&Sthis_command_keys);
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
8029 defsubr (&Sthis_single_command_keys);
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
8030 defsubr (&Sreset_this_command_lengths);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8031 defsubr (&Ssuspend_emacs);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8032 defsubr (&Sabort_recursive_edit);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8033 defsubr (&Sexit_recursive_edit);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8034 defsubr (&Srecursion_depth);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8035 defsubr (&Stop_level);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8036 defsubr (&Sdiscard_input);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8037 defsubr (&Sopen_dribble_file);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8038 defsubr (&Sset_input_mode);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
8039 defsubr (&Scurrent_input_mode);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8040 defsubr (&Sexecute_extended_command);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8041
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8042 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
8043 "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
8044
8039
7cc73292df36 (syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents: 7999
diff changeset
8045 DEFVAR_LISP_NOPRO ("last-command-event", &last_command_char,
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8046 "Last input event that was part of a command.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8047
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8048 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
8049 "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
8050 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
8051 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
8052 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
8053
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8054 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
8055 "Last input event.");
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8056
8039
7cc73292df36 (syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents: 7999
diff changeset
8057 DEFVAR_LISP_NOPRO ("last-input-event", &last_input_char,
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8058 "Last input event.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8059
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
8060 DEFVAR_LISP ("unread-command-events", &Vunread_command_events,
1960
6051ba81a938 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1947
diff changeset
8061 "List of objects to be read as next command input events.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8062
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8063 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
8064 "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
8065
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8066 DEFVAR_LISP ("meta-prefix-char", &meta_prefix_char,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8067 "Meta-prefix character code. Meta-foo as command input\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8068 turns into this character followed by foo.");
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
8069 XSETINT (meta_prefix_char, 033);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8070
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
8071 DEFVAR_KBOARD ("last-command", Vlast_command,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8072 "The last command executed. Normally a symbol with a function definition,\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8073 but can be whatever was found in the keymap, or whatever the variable\n\
10060
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8074 `this-command' was set to by that command.\n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8075 \n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8076 The value `mode-exit' is special; it means that the previous command\n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8077 read an event that told it to exit, and it did so and unread that event.\n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8078 In other words, the present command is the event that made the previous\n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8079 command exit.\n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8080 \n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8081 The value `kill-region' is special; it means that the previous command\n\
145bf101cccc (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 9977
diff changeset
8082 was a kill command.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8083
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8084 DEFVAR_LISP ("this-command", &this_command,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8085 "The command now being executed.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8086 The command can set this variable; whatever is put here\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8087 will be in `last-command' during the following command.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8088 this_command = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8089
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8090 DEFVAR_INT ("auto-save-interval", &auto_save_interval,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8091 "*Number of keyboard input characters between auto-saves.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8092 Zero means disable autosaving due to number of characters typed.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8093 auto_save_interval = 300;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8094
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8095 DEFVAR_LISP ("auto-save-timeout", &Vauto_save_timeout,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8096 "*Number of seconds idle time before auto-save.\n\
687
e2b747dd6a6e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 682
diff changeset
8097 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
8098 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
8099 Emacs also does a garbage collection if that seems to be warranted.");
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
8100 XSETFASTINT (Vauto_save_timeout, 30);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8101
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8102 DEFVAR_INT ("echo-keystrokes", &echo_keystrokes,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8103 "*Nonzero means echo unfinished commands after this many seconds of pause.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8104 echo_keystrokes = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8105
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8106 DEFVAR_INT ("polling-period", &polling_period,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8107 "*Interval between polling for input during Lisp execution.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8108 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
8109 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
8110 Polling is automatically disabled in all other cases.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8111 polling_period = 2;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
8112
3993
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
8113 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
8114 "*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
8115 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
8116 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
8117 by position only.");
3994
df443e5f391e Fix initialization of Vdouble_click_time in syms_of_keyboard.
Jim Blandy <jimb@redhat.com>
parents: 3993
diff changeset
8118 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
8119
9396
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8120 DEFVAR_BOOL ("inhibit-local-menu-bar-menus", &inhibit_local_menu_bar_menus,
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8121 "*Non-nil means inhibit local map menu bar menus.");
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8122 inhibit_local_menu_bar_menus = 0;
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8123
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8124 DEFVAR_INT ("num-input-keys", &num_input_keys,
16610
45d75ca8dc40 (syms_of_keyboard): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 16588
diff changeset
8125 "Number of complete key sequences read from the keyboard so far.\n\
45d75ca8dc40 (syms_of_keyboard): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 16588
diff changeset
8126 This includes key sequences read from keyboard macros.\n\
45d75ca8dc40 (syms_of_keyboard): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 16588
diff changeset
8127 The number is effectively the number of interactive command invocations.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8128 num_input_keys = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8129
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
8130 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame,
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
8131 "The frame in which the most recently read event occurred.\n\
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
8132 If the last event came from a keyboard macro, this is set to `macro'.");
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
8133 Vlast_event_frame = Qnil;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
8134
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
8135 DEFVAR_LISP ("help-char", &Vhelp_char,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8136 "Character to recognize as meaning Help.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8137 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
8138 If the value of `help-form' is nil, this char can be read normally.");
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
8139 XSETINT (Vhelp_char, Ctl ('H'));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8140
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
8141 DEFVAR_LISP ("help-event-list", &Vhelp_event_list,
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
8142 "List of input events to recognize as meaning Help.\n\
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
8143 These work just like the value of `help-char' (see that).");
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
8144 Vhelp_event_list = Qnil;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
8145
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8146 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
8147 "Form to execute when character `help-char' is read.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8148 If the form returns a string, that string is displayed.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8149 If `help-form' is nil, the help char is not recognized.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8150 Vhelp_form = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8151
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
8152 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
8153 "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
8154 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
8155 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
8156 Vprefix_help_command = Qnil;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
8157
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8158 DEFVAR_LISP ("top-level", &Vtop_level,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8159 "Form to evaluate when Emacs starts up.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8160 Useful to set before you dump a modified Emacs.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8161 Vtop_level = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8162
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8163 DEFVAR_LISP ("keyboard-translate-table", &Vkeyboard_translate_table,
13246
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
8164 "Translate table for keyboard input, or nil.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8165 Each character is looked up in this string and the contents used instead.\n\
13246
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
8166 The value may be a string, a vector, or a char-table.\n\
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
8167 If it is a string or vector of length N,\n\
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
8168 character codes N and up are untranslated.\n\
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
8169 In a vector or a char-table, an element which is nil means \"no translation\".");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8170 Vkeyboard_translate_table = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8171
6101
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
8172 DEFVAR_BOOL ("cannot-suspend", &cannot_suspend,
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
8173 "Non-nil means to always spawn a subshell instead of suspending,\n\
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
8174 even if the operating system has support for stopping a process.");
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
8175 cannot_suspend = 0;
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
8176
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8177 DEFVAR_BOOL ("menu-prompting", &menu_prompting,
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8178 "Non-nil means prompt with menus when appropriate.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8179 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
8180 for elements that have prompt strings.\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8181 The menu is displayed on the screen\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8182 if X menus were enabled at configuration\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8183 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
8184 Otherwise, menu prompting uses the echo area.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8185 menu_prompting = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8186
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8187 DEFVAR_LISP ("menu-prompt-more-char", &menu_prompt_more_char,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8188 "Character to see next line of menu prompt.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8189 Type this character while in a menu prompt to rotate around the lines of it.");
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
8190 XSETINT (menu_prompt_more_char, ' ');
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
8191
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
8192 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
8193 "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
8194 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
8195 character it reads. For example, after evaluating the expression\n\
10602
05a3cfc7a5ba (syms_of_keyboard): Fix missing backslashes.
Karl Heuer <kwzh@gnu.org>
parents: 10579
diff changeset
8196 (setq extra-keyboard-modifiers ?\\C-x)\n\
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
8197 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
8198 \n\
10602
05a3cfc7a5ba (syms_of_keyboard): Fix missing backslashes.
Karl Heuer <kwzh@gnu.org>
parents: 10579
diff changeset
8199 Note that the character ?\\C-@, equivalent to the integer zero, does\n\
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
8200 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
8201 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
8202 cancels any modification.");
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
8203 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
8204
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8205 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
8206 "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
8207 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
8208 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
8209 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
8210 Vdeactivate_mark = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8211
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
8212 DEFVAR_LISP ("command-hook-internal", &Vcommand_hook_internal,
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
8213 "Temporary storage of pre-command-hook or post-command-hook.");
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
8214 Vcommand_hook_internal = Qnil;
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
8215
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8216 DEFVAR_LISP ("pre-command-hook", &Vpre_command_hook,
7433
cc5e8709ab89 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7428
diff changeset
8217 "Normal hook run before each command is executed.\n\
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8218 Errors running the hook are caught and ignored.");
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8219 Vpre_command_hook = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8220
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8221 DEFVAR_LISP ("post-command-hook", &Vpost_command_hook,
7433
cc5e8709ab89 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7428
diff changeset
8222 "Normal hook run after each command is executed.\n\
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8223 Errors running the hook are caught and ignored.");
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
8224 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
8225
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8226 DEFVAR_LISP ("post-command-idle-hook", &Vpost_command_idle_hook,
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8227 "Normal hook run after each command is executed, if idle.\n\
15045
9b779a05115a (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 14997
diff changeset
8228 Errors running the hook are caught and ignored.\n\
9b779a05115a (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 14997
diff changeset
8229 This feature is obsolete; use idle timers instead. See `etc/NEWS'.");
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8230 Vpost_command_idle_hook = Qnil;
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8231
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8232 DEFVAR_INT ("post-command-idle-delay", &post_command_idle_delay,
14592
0f4d4f599de2 (syms_of_keyboard): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14591
diff changeset
8233 "Delay time before running `post-command-idle-hook'.\n\
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8234 This is measured in microseconds.");
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8235 post_command_idle_delay = 100000;
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
8236
16834
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
8237 #if 0
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
8238 DEFVAR_LISP ("echo-area-clear-hook", ...,
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
8239 "Normal hook run when clearing the echo area.");
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
8240 #endif
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
8241 Qecho_area_clear_hook = intern ("echo-area-clear-hook");
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
8242 XSYMBOL (Qecho_area_clear_hook)->value = Qnil;
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
8243
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
8244 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
8245 "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
8246 Vlucid_menu_bar_dirty_flag = Qnil;
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
8247
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
8248 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
8249 "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
8250 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
8251 Vmenu_bar_final_items = Qnil;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
8252
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
8253 DEFVAR_KBOARD ("overriding-terminal-local-map",
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
8254 Voverriding_terminal_local_map,
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
8255 "Keymap that overrides all other local keymaps.\n\
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
8256 If this variable is non-nil, it is used as a keymap instead of the\n\
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
8257 buffer's local map, and the minor mode keymaps and text property keymaps.");
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
8258
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
8259 DEFVAR_LISP ("overriding-local-map", &Voverriding_local_map,
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
8260 "Keymap that overrides all other local keymaps.\n\
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
8261 If this variable is non-nil, it is used as a keymap instead of the\n\
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
8262 buffer's local map, and the minor mode keymaps and text property keymaps.");
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
8263 Voverriding_local_map = Qnil;
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
8264
9607
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
8265 DEFVAR_LISP ("overriding-local-map-menu-flag", &Voverriding_local_map_menu_flag,
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
8266 "Non-nil means `overriding-local-map' applies to the menu bar.\n\
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
8267 Otherwise, the menu bar continues to reflect the buffer's local map\n\
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
8268 and the minor mode maps regardless of `overriding-local-map'.");
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
8269 Voverriding_local_map_menu_flag = Qnil;
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
8270
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8271 DEFVAR_LISP ("special-event-map", &Vspecial_event_map,
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8272 "Keymap defining bindings for special events to execute at low level.");
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8273 Vspecial_event_map = Fcons (intern ("keymap"), Qnil);
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8274
9881
02cd4dde69e1 (tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents: 9864
diff changeset
8275 DEFVAR_LISP ("track-mouse", &do_mouse_tracking,
11832
7c2d57ac784f (syms_of_keyboard): Always define track-mouse.
Karl Heuer <kwzh@gnu.org>
parents: 11777
diff changeset
8276 "*Non-nil means generate motion events for mouse motion.");
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
8277
11543
317e5825008b (Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents: 11540
diff changeset
8278 DEFVAR_KBOARD ("system-key-alist", Vsystem_key_alist,
6096
443b78042b86 (Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents: 6053
diff changeset
8279 "Alist of system-specific X windows key symbols.\n\
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
8280 Each element should have the form (N . SYMBOL) where N is the\n\
6096
443b78042b86 (Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents: 6053
diff changeset
8281 numeric keysym code (sans the \"system-specific\" bit 1<<28)\n\
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
8282 and SYMBOL is its name.");
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8283
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8284 DEFVAR_LISP ("deferred-action-list", &Vdeferred_action_list,
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8285 "List of deferred actions to be performed at a later time.\n\
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8286 The precise format isn't relevant here; we just check whether it is nil.");
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8287 Vdeferred_action_list = Qnil;
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8288
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8289 DEFVAR_LISP ("deferred-action-function", &Vdeferred_action_function,
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8290 "Function to call to handle deferred actions, after each command.\n\
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8291 This function is called with no arguments after each command\n\
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8292 whenever `deferred-action-list' is non-nil.");
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
8293 Vdeferred_action_function = Qnil;
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
8294
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
8295 DEFVAR_LISP ("suggest-key-bindings", &Vsuggest_key_bindings,
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
8296 "Non-nil means show the equivalent key-binding when M-x command has one.\n\
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
8297 The value can be a length of time to show the message for.\n\
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
8298 If the value is non-nil and not a number, we wait 2 seconds.");
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
8299 Vsuggest_key_bindings = Qt;
13329
3bd6e6e466f7 (command_loop_1): No direct display if Column Number mode.
Richard M. Stallman <rms@gnu.org>
parents: 13324
diff changeset
8300
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
8301 DEFVAR_LISP ("timer-list", &Vtimer_list,
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
8302 "List of active absolute time timers in order of increasing time");
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
8303 Vtimer_list = Qnil;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
8304
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
8305 DEFVAR_LISP ("timer-idle-list", &Vtimer_idle_list,
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
8306 "List of active idle-time timers in order of increasing time");
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
8307 Vtimer_idle_list = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8308 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8309
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8310 keys_of_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8311 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8312 initial_define_key (global_map, Ctl ('Z'), "suspend-emacs");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8313 initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8314 initial_define_key (meta_map, Ctl ('C'), "exit-recursive-edit");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8315 initial_define_key (global_map, Ctl (']'), "abort-recursive-edit");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8316 initial_define_key (meta_map, 'x', "execute-extended-command");
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8317
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8318 initial_define_lispy_key (Vspecial_event_map, "delete-frame",
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8319 "handle-delete-frame");
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8320 initial_define_lispy_key (Vspecial_event_map, "iconify-frame",
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8321 "ignore-event");
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8322 initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
8323 "ignore-event");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8324 }