annotate src/keyboard.c @ 77472:70d58d56b53b

(idlwave-shell-clear-all-bp): Don't re-query for each cleared BP. (idlwave-shell-clear-bp): Optionally skip BP query. (idlwave-shell-update-bp-overlays): Use set-window-margins instead of set-window-buffer, which incorrectly moves displayed region.
author J.D. Smith <jdsmith@as.arizona.edu>
date Tue, 24 Apr 2007 00:22:52 +0000
parents da21c991a6d5
children ff554a3125c3 51a9e0fd18ae dc002877ce12 4ef881a120fe
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.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64614
diff changeset
2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995,
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64614
diff changeset
3 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004,
75348
3d45362f1d38 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 75293
diff changeset
4 2005, 2006, 2007 Free Software Foundation, Inc.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 This file is part of GNU Emacs.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 GNU Emacs is free software; you can redistribute it and/or modify
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
10 the Free Software Foundation; either version 2, or (at your option)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 any later version.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 GNU General Public License for more details.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63548
diff changeset
20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63548
diff changeset
21 Boston, MA 02110-1301, USA. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25973
diff changeset
23 #include <config.h>
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #include <signal.h>
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"
31096
c32ed4f23f34 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31013
diff changeset
31 #include "keyboard.h"
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
32 #include "frame.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 #include "window.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 #include "commands.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 #include "buffer.h"
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
36 #include "charset.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 #include "disptab.h"
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
38 #include "dispextern.h"
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
39 #include "syntax.h"
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
40 #include "intervals.h"
39692
e479fa559f2e (map_prompt): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39684
diff changeset
41 #include "keymap.h"
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
42 #include "blockinput.h"
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
43 #include "puresize.h"
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
44 #include "systime.h"
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
45 #include "atimer.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 #include <setjmp.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 #include <errno.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48
58818
f8cddae7d959 * gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58634
diff changeset
49 #ifdef HAVE_GTK_AND_PTHREAD
f8cddae7d959 * gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58634
diff changeset
50 #include <pthread.h>
f8cddae7d959 * gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58634
diff changeset
51 #endif
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
52 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
53 #include "msdos.h"
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
54 #include <time.h>
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
55 #else /* not MSDOS */
562
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
56 #ifndef VMS
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
57 #include <sys/ioctl.h>
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
58 #endif
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
59 #endif /* not MSDOS */
562
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
60
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
61 #include "syssignal.h"
1046
d4b1e5db2b2a * keyboard.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents: 1008
diff changeset
62 #include "systty.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
64 #include <sys/types.h>
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
65 #ifdef HAVE_UNISTD_H
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
66 #include <unistd.h>
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
67 #endif
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
68
60027
8f9cab9fa533 If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59580
diff changeset
69 #ifdef HAVE_FCNTL_H
8f9cab9fa533 If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59580
diff changeset
70 #include <fcntl.h>
8f9cab9fa533 If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59580
diff changeset
71 #endif
8f9cab9fa533 If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59580
diff changeset
72
7727
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
73 /* This is to get the definitions of the XK_ symbols. */
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
74 #ifdef HAVE_X_WINDOWS
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
75 #include "xterm.h"
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
76 #endif
741ba17eeb20 [HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents: 7650
diff changeset
77
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
78 #ifdef HAVE_NTGUI
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
79 #include "w32term.h"
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
80 #endif /* HAVE_NTGUI */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
81
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44561
diff changeset
82 #ifdef MAC_OS
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32476
diff changeset
83 #include "macterm.h"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32476
diff changeset
84 #endif
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32476
diff changeset
85
31096
c32ed4f23f34 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31013
diff changeset
86 #ifndef USE_CRT_DLL
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 extern int errno;
31096
c32ed4f23f34 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31013
diff changeset
88 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
90 /* Variables for blockinput.h: */
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
91
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
92 /* Non-zero if interrupt input is blocked right now. */
75407
205d5c1af245 (interrupt_input_blocked): Declare volatile.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 75348
diff changeset
93 volatile int interrupt_input_blocked;
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
94
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
95 /* Nonzero means an input interrupt has arrived
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
96 during the current critical section. */
2481
a7a0f89c1f64 * keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents: 2439
diff changeset
97 int interrupt_input_pending;
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
98
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
99
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
100 /* File descriptor to use for input. */
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
101 extern int input_fd;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
103 #ifdef HAVE_WINDOW_SYSTEM
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 /* Make all keyboard buffers much bigger when using X windows. */
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44561
diff changeset
105 #ifdef MAC_OS8
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44561
diff changeset
106 /* But not too big (local data > 32K error) if on Mac OS Classic. */
25525
79574d91e925 [macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents: 25374
diff changeset
107 #define KBD_BUFFER_SIZE 512
79574d91e925 [macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents: 25374
diff changeset
108 #else
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 #define KBD_BUFFER_SIZE 4096
25525
79574d91e925 [macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents: 25374
diff changeset
110 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 #else /* No X-windows, character input */
38456
bd16bae990a7 (KBD_BUFFER_SIZE) [!HAVE_WINDOW_SYSTEM]: Increase
Gerd Moellmann <gerd@gnu.org>
parents: 38195
diff changeset
112 #define KBD_BUFFER_SIZE 4096
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 #endif /* No X-windows */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114
38602
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
115 #define abs(x) ((x) >= 0 ? (x) : -(x))
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
116
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 /* Following definition copied from eval.c */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 struct backtrace
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121 struct backtrace *next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 Lisp_Object *function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 Lisp_Object *args; /* Points to vector of args. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 int nargs; /* length of vector. If nargs is UNEVALLED,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 args points to slot holding list of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 unevalled args */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 char evalargs;
55721
b0b446f1087b (struct backtrace): Add debug_on_exit member.
Kim F. Storm <storm@cua.dk>
parents: 55659
diff changeset
128 /* Nonzero means call value of debugger when done with this operation. */
b0b446f1087b (struct backtrace): Add debug_on_exit member.
Kim F. Storm <storm@cua.dk>
parents: 55659
diff changeset
129 char debug_on_exit;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
132 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
133 KBOARD *initial_kboard;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
134 KBOARD *current_kboard;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
135 KBOARD *all_kboards;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
136 int single_kboard;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
137 #else
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
138 KBOARD the_only_kboard;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
139 #endif
10551
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
140
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 /* Non-nil disable property on a command means
56624
05bc08d74392 Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56609
diff changeset
142 do not execute it; call disabled-command-function's value instead. */
05bc08d74392 Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56609
diff changeset
143 Lisp_Object Qdisabled, Qdisabled_command_function;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144
76558
f7afa74d0783 (NUM_RECENT_KEYS): Bump up to 300.
Richard M. Stallman <rms@gnu.org>
parents: 76495
diff changeset
145 #define NUM_RECENT_KEYS (300)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 int recent_keys_index; /* Index for storing next element into recent_keys */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 int total_keys; /* Total number of elements stored into recent_keys */
76558
f7afa74d0783 (NUM_RECENT_KEYS): Bump up to 300.
Richard M. Stallman <rms@gnu.org>
parents: 76495
diff changeset
148 Lisp_Object recent_keys; /* Vector holds the last NUM_RECENT_KEYS keystrokes */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
150 /* Vector holding the key sequence that invoked the current command.
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
151 It is reused for each command, and it may be longer than the current
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
152 sequence; this_command_key_count indicates how many elements
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
153 actually mean something.
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
154 It's easier to staticpro a single Lisp_Object than an array. */
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
155 Lisp_Object this_command_keys;
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
156 int this_command_key_count;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
158 /* 1 after calling Freset_this_command_lengths.
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
159 Usually it is 0. */
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
160 int this_command_key_count_reset;
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
161
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
162 /* This vector is used as a buffer to record the events that were actually read
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
163 by read_key_sequence. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
164 Lisp_Object raw_keybuf;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
165 int raw_keybuf_count;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
166
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
167 #define GROW_RAW_KEYBUF \
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
168 if (raw_keybuf_count == XVECTOR (raw_keybuf)->size) \
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
169 { \
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
170 int newsize = 2 * XVECTOR (raw_keybuf)->size; \
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
171 Lisp_Object new; \
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
172 new = Fmake_vector (make_number (newsize), Qnil); \
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
173 bcopy (XVECTOR (raw_keybuf)->contents, XVECTOR (new)->contents, \
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
174 raw_keybuf_count * sizeof (Lisp_Object)); \
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
175 raw_keybuf = new; \
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
176 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
177
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
178 /* Number of elements of this_command_keys
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
179 that precede this key sequence. */
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
180 int this_single_command_key_start;
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
181
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
182 /* Record values of this_command_key_count and echo_length ()
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
183 before this command was read. */
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
184 static int before_command_key_count;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
185 static int before_command_echo_length;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
186
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 extern int minbuf_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188
20496
b2536e1685e9 (Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents: 20493
diff changeset
189 extern int message_enable_multibyte;
b2536e1685e9 (Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents: 20493
diff changeset
190
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 extern struct backtrace *backtrace_list;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
193 /* If non-nil, the function that implements the display of help.
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
194 It's called with one argument, the help string to display. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
195
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
196 Lisp_Object Vshow_help_function;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
197
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
198 /* If a string, the message displayed before displaying a help-echo
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
199 in the echo area. */
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
200
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
201 Lisp_Object Vpre_help_message;
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
202
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 /* Nonzero means do menu prompting. */
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
204
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 static int menu_prompting;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207 /* Character to see next line of menu prompt. */
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
208
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 static Lisp_Object menu_prompt_more_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 /* For longjmp to where kbd input is being done. */
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
212
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 static jmp_buf getcjmp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 /* True while doing kbd input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 int waiting_for_input;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 /* True while displaying for echoing. Delays C-g throwing. */
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
219
37189
90b4f51bd28b (echoing, echo_message_buffer): Make externally
Gerd Moellmann <gerd@gnu.org>
parents: 36826
diff changeset
220 int echoing;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
222 /* Non-null means we can start echoing at the next input pause even
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
223 though there is something in the echo area. */
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
224
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
225 static struct kboard *ok_to_echo_at_next_pause;
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
226
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
227 /* The kboard last echoing, or null for none. Reset to 0 in
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
228 cancel_echoing. If non-null, and a current echo area message
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
229 exists, and echo_message_buffer is eq to the current message
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
230 buffer, we know that the message comes from echo_kboard. */
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
231
39452
68c925e471a4 (echo_kboard): Make externally visible.
Gerd Moellmann <gerd@gnu.org>
parents: 39436
diff changeset
232 struct kboard *echo_kboard;
13267
12d329dd9940 (read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents: 13246
diff changeset
233
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
234 /* The buffer used for echoing. Set in echo_now, reset in
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
235 cancel_echoing. */
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
236
37189
90b4f51bd28b (echoing, echo_message_buffer): Make externally
Gerd Moellmann <gerd@gnu.org>
parents: 36826
diff changeset
237 Lisp_Object echo_message_buffer;
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
238
9396
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
239 /* Nonzero means disregard local maps for the menu bar. */
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
240 static int inhibit_local_menu_bar_menus;
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
241
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
242 /* Nonzero means C-g should cause immediate error-signal. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 int immediate_quit;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244
71947
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
245 /* The user's hook function for outputting an error message. */
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
246 Lisp_Object Vcommand_error_function;
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
247
17870
abc5e3a73109 (Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents: 17738
diff changeset
248 /* The user's ERASE setting. */
abc5e3a73109 (Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents: 17738
diff changeset
249 Lisp_Object Vtty_erase_char;
abc5e3a73109 (Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents: 17738
diff changeset
250
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 /* Character to recognize as the help char. */
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
252 Lisp_Object Vhelp_char;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
254 /* 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
255 Lisp_Object Vhelp_event_list;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
256
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 /* Form to execute when help char is typed. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 Lisp_Object Vhelp_form;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
260 /* Command to run when the help character follows a prefix key. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
261 Lisp_Object Vprefix_help_command;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
262
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
263 /* List of items that should move to the end of the menu bar. */
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
264 Lisp_Object Vmenu_bar_final_items;
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
265
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
266 /* Non-nil means show the equivalent key-binding for
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
267 any M-x command that has one.
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
268 The value can be a length of time to show the message for.
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
269 If the value is non-nil and not a number, we wait 2 seconds. */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
270 Lisp_Object Vsuggest_key_bindings;
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
271
33724
b04964da2e33 (Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents: 33445
diff changeset
272 /* How long to display an echo-area message when the minibuffer is active.
b04964da2e33 (Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents: 33445
diff changeset
273 If the value is not a number, such messages don't time out. */
b04964da2e33 (Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents: 33445
diff changeset
274 Lisp_Object Vminibuffer_message_timeout;
b04964da2e33 (Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents: 33445
diff changeset
275
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 /* Character that causes a quit. Normally C-g.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 If we are running on an ordinary terminal, this must be an ordinary
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 ASCII char, since we want to make it our interrupt character.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 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
282 an ordinary ASCII char. This character needs to be recognized in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 the input interrupt handler. At this point, the keystroke is
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 represented as a struct input_event, while the desired quit
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 character is specified as a lispy event. The mapping from struct
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 input_events to lispy events cannot run in an interrupt handler,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 and the reverse mapping is difficult for anything but ASCII
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 keystrokes.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 FOR THESE ELABORATE AND UNSATISFYING REASONS, quit_char must be an
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 ASCII character. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 int quit_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 extern Lisp_Object current_global_map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 extern int minibuf_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
297 /* If non-nil, this is a map that overrides all other local maps. */
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
298 Lisp_Object Voverriding_local_map;
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
299
9607
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
300 /* If non-nil, Voverriding_local_map applies to the menu bar. */
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
301 Lisp_Object Voverriding_local_map_menu_flag;
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
302
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
303 /* Keymap that defines special misc events that should
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
304 be processed immediately at a low level. */
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
305 Lisp_Object Vspecial_event_map;
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
306
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 /* Current depth in recursive edits. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 int command_loop_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 /* Total number of times command_loop has read a key sequence. */
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43496
diff changeset
311 EMACS_INT num_input_keys;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 /* Last input character read as a command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 Lisp_Object last_command_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
316 /* Last input character read as a command, not counting menus
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
317 reached by the mouse. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
318 Lisp_Object last_nonmenu_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
319
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 /* Last input character read for any purpose. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 Lisp_Object last_input_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
323 /* If not Qnil, a list of objects to be read as subsequent command input. */
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
324 Lisp_Object Vunread_command_events;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
326 /* If not Qnil, a list of objects to be read as subsequent command input
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
327 including input method processing. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
328 Lisp_Object Vunread_input_method_events;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
329
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
330 /* If not Qnil, a list of objects to be read as subsequent command input
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
331 but NOT including input method processing. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
332 Lisp_Object Vunread_post_input_method_events;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
333
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
334 /* If not -1, an event to be read as subsequent command input. */
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43496
diff changeset
335 EMACS_INT unread_command_char;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
336
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
337 /* If not Qnil, this is a switch-frame event which we decided to put
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
338 off until the end of a key sequence. This should be read as the
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
339 next command input, after any unread_command_events.
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
340
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
341 read_key_sequence uses this to delay switch-frame events until the
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
342 end of the key sequence; Fread_char uses it to put off switch-frame
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
343 events until a non-ASCII event is acceptable as input. */
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
344 Lisp_Object unread_switch_frame;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
345
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
346 /* A mask of extra modifier bits to put into every keyboard char. */
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43496
diff changeset
347 EMACS_INT extra_keyboard_modifiers;
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
348
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349 /* Char to use as prefix when a meta character is typed in.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 This is bound on entry to minibuffer in case ESC is changed there. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 Lisp_Object meta_prefix_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 /* Last size recorded for a current buffer which is not a minibuffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 static int last_non_minibuf_size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356
687
e2b747dd6a6e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 682
diff changeset
357 /* Number of idle seconds before an auto-save and garbage collection. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 static Lisp_Object Vauto_save_timeout;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 /* Total number of times read_char has returned. */
17890
200058b61996 Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 17873
diff changeset
361 int num_input_events;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
363 /* Total number of times read_char has returned, outside of macros. */
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43496
diff changeset
364 EMACS_INT num_nonmacro_input_events;
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
365
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 /* Auto-save automatically when this many characters have been typed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 since the last time. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43496
diff changeset
369 static EMACS_INT auto_save_interval;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
371 /* Value of num_nonmacro_input_events as of last auto save. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 int last_auto_save;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 /* The command being executed by the command loop.
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
376 Commands may set this, and the value set will be copied into
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
377 current_kboard->Vlast_command instead of the actual command. */
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
378 Lisp_Object Vthis_command;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
379
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
380 /* This is like Vthis_command, except that commands never set it. */
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
381 Lisp_Object real_this_command;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
383 /* If the lookup of the command returns a binding, the original
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
384 command is stored in this-original-command. It is nil otherwise. */
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
385 Lisp_Object Vthis_original_command;
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
386
67820
a9cbddeec059 (last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 67664
diff changeset
387 /* The value of point when the last command was started. */
6178
ad3864a4e0bc (command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents: 6159
diff changeset
388 int last_point_position;
ad3864a4e0bc (command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents: 6159
diff changeset
389
7345
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
390 /* The buffer that was current when the last command was started. */
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
391 Lisp_Object last_point_position_buffer;
c107ec7641ec (last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
392
67820
a9cbddeec059 (last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 67664
diff changeset
393 /* The window that was selected when the last command was started. */
a9cbddeec059 (last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 67664
diff changeset
394 Lisp_Object last_point_position_window;
a9cbddeec059 (last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 67664
diff changeset
395
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
396 /* The frame in which the last input event occurred, or Qmacro if the
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
397 last event came from a macro. We use this to determine when to
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
398 generate switch-frame events. This may be cleared by functions
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
399 like Fselect_frame, to make sure that a switch-frame event is
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
400 generated by the next character. */
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
401 Lisp_Object internal_last_event_frame;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
402
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
403 /* A user-visible version of the above, intended to allow users to
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
404 figure out where the last event came from, if the event doesn't
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
405 carry that information itself (i.e. if it was a character). */
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
406 Lisp_Object Vlast_event_frame;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
407
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
408 /* 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
409 X Windows wants this for selection ownership. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 unsigned long last_event_timestamp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 Lisp_Object Qself_insert_command;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 Lisp_Object Qforward_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 Lisp_Object Qbackward_char;
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
415 Lisp_Object Qundefined;
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
416 Lisp_Object Qtimer_event_handler;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 /* read_key_sequence stores here the command definition of the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 key sequence that it reads. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 Lisp_Object read_key_sequence_cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421
27766
e93e898c9e70 (echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents: 27668
diff changeset
422 /* Echo unfinished commands after this many seconds of pause. */
e93e898c9e70 (echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents: 27668
diff changeset
423 Lisp_Object Vecho_keystrokes;
e93e898c9e70 (echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents: 27668
diff changeset
424
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 /* Form to evaluate (if non-nil) when Emacs is started. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 Lisp_Object Vtop_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427
48229
5d4678fa4feb (command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents: 48146
diff changeset
428 /* User-supplied table to translate input characters. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 Lisp_Object Vkeyboard_translate_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 /* Keymap mapping ASCII function key sequences onto their preferred forms. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 extern Lisp_Object Vfunction_key_map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433
12712
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
434 /* Another keymap that maps key sequences into key sequences.
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
435 This one takes precedence over ordinary definitions. */
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
436 extern Lisp_Object Vkey_translation_map;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
437
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
438 /* If non-nil, this implements the current input method. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
439 Lisp_Object Vinput_method_function;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
440 Lisp_Object Qinput_method_function;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
441
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
442 /* When we call Vinput_method_function,
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
443 this holds the echo area message that was just erased. */
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
444 Lisp_Object Vinput_method_previous_message;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
445
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
446 /* Non-nil means deactivate the mark at end of this command. */
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
447 Lisp_Object Vdeactivate_mark;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
448
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
449 /* Menu bar specified in Lucid Emacs fashion. */
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
450
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
451 Lisp_Object Vlucid_menu_bar_dirty_flag;
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
452 Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook;
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
453
40733
2b78c1af4afa (echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
454 Lisp_Object Qecho_area_clear_hook;
16834
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
455
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
456 /* Hooks to run before and after each command. */
12919
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
457 Lisp_Object Qpre_command_hook, Vpre_command_hook;
cb9fe3733db5 (Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 12800
diff changeset
458 Lisp_Object Qpost_command_hook, Vpost_command_hook;
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
459 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
460
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
461 /* List of deferred actions to be performed at a later time.
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
462 The precise format isn't relevant here; we just check whether it is nil. */
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
463 Lisp_Object Vdeferred_action_list;
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
464
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
465 /* Function to call to handle deferred actions, when there are any. */
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
466 Lisp_Object Vdeferred_action_function;
10070
def41008c136 (command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents: 10060
diff changeset
467 Lisp_Object Qdeferred_action_function;
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
468
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
469 Lisp_Object Qinput_method_exit_on_first_char;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
470 Lisp_Object Qinput_method_use_echo_area;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
471
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 /* File in which we write all commands we read. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 FILE *dribble;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 /* Nonzero if input is available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 int input_pending;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
478 /* 1 if should obey 0200 bit in input chars as "Meta", 2 if should
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
479 keep 0200 bit in input chars. 0 to ignore the 0200 bit. */
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
480
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 int meta_key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 extern char *pending_malloc_warning;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
485 /* Circular buffer for pre-read keyboard input. */
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
486
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
487 static struct input_event kbd_buffer[KBD_BUFFER_SIZE];
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
488
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
489 /* Pointer to next available character in kbd_buffer.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
490 If kbd_fetch_ptr == kbd_store_ptr, the buffer is empty.
42707
8d5458375774 (read_key_sequence): Remove unused variable `extra_maps'.
Pavel Janík <Pavel@Janik.cz>
parents: 42499
diff changeset
491 This may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
492 next available char is in kbd_buffer[0]. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
493 static struct input_event *kbd_fetch_ptr;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
494
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
495 /* Pointer to next place to store character in kbd_buffer. This
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
496 may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the next
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
497 character should go in kbd_buffer[0]. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
498 static struct input_event * volatile kbd_store_ptr;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
499
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
500 /* The above pair of variables forms a "queue empty" flag. When we
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
501 enqueue a non-hook event, we increment kbd_store_ptr. When we
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
502 dequeue a non-hook event, we increment kbd_fetch_ptr. We say that
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
503 there is input available iff the two pointers are not equal.
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
504
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
505 Why not just have a flag set and cleared by the enqueuing and
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
506 dequeuing functions? Such a flag could be screwed up by interrupts
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
507 at inopportune times. */
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
508
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
509 /* If this flag is non-nil, we check mouse_moved to see when the
9618
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
510 mouse moves, and motion events will appear in the input stream.
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
511 Otherwise, mouse motion is ignored. */
34518
eedb5dec0918 (do_mouse_tracking): Make externally visible.
Gerd Moellmann <gerd@gnu.org>
parents: 34514
diff changeset
512 Lisp_Object do_mouse_tracking;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 /* Symbols to head events. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 Lisp_Object Qmouse_movement;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
516 Lisp_Object Qscroll_bar_movement;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
517 Lisp_Object Qswitch_frame;
9215
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
518 Lisp_Object Qdelete_frame;
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
519 Lisp_Object Qiconify_frame;
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
520 Lisp_Object Qmake_frame_visible;
44300
21286349d285 (Qselect_window): New symbol.
Pavel Janík <Pavel@Janik.cz>
parents: 44135
diff changeset
521 Lisp_Object Qselect_window;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
522 Lisp_Object Qhelp_echo;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
523
61163
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
524 #ifdef HAVE_MOUSE
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
525 Lisp_Object Qmouse_fixup_help_message;
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
526 #endif
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
527
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 /* Symbols to denote kinds of events. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 Lisp_Object Qfunction_key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 Lisp_Object Qmouse_click;
61499
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
531 #if defined (WINDOWSNT) || defined (MAC_OS)
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
532 Lisp_Object Qlanguage_change;
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
533 #endif
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
534 Lisp_Object Qdrag_n_drop;
43814
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
535 Lisp_Object Qsave_session;
67455
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
536 #ifdef MAC_OS
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
537 Lisp_Object Qmac_apple_event;
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
538 #endif
43814
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
539
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 /* Lisp_Object Qmouse_movement; - also an event header */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 /* Properties of event headers. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543 Lisp_Object Qevent_kind;
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
544 Lisp_Object Qevent_symbol_elements;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
546 /* menu item parts */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
547 Lisp_Object Qmenu_alias;
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
548 Lisp_Object Qmenu_enable;
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
549 Lisp_Object QCenable, QCvisible, QChelp, QCfilter, QCkeys, QCkey_sequence;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
550 Lisp_Object QCbutton, QCtoggle, QCradio;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
551 extern Lisp_Object Vdefine_key_rebound_commands;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
552 extern Lisp_Object Qmenu_item;
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
553
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
554 /* An event header symbol HEAD may have a property named
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
555 Qevent_symbol_element_mask, which is of the form (BASE MODIFIERS);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
556 BASE is the base, unmodified version of HEAD, and MODIFIERS is the
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
557 mask of modifiers applied to it. If present, this is used to help
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
558 speed up parse_modifiers. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
559 Lisp_Object Qevent_symbol_element_mask;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
560
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
561 /* An unmodified event header BASE may have a property named
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
562 Qmodifier_cache, which is an alist mapping modifier masks onto
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
563 modified versions of BASE. If present, this helps speed up
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
564 apply_modifiers. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
565 Lisp_Object Qmodifier_cache;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
566
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
567 /* Symbols to use for parts of windows. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568 Lisp_Object Qmode_line;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
569 Lisp_Object Qvertical_line;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
570 Lisp_Object Qvertical_scroll_bar;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
571 Lisp_Object Qmenu_bar;
44534
733b2505ca59 (Qleft_margin, Qright_margin): Declare.
Gerd Moellmann <gerd@gnu.org>
parents: 44527
diff changeset
572 extern Lisp_Object Qleft_margin, Qright_margin;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
573 extern Lisp_Object Qleft_fringe, Qright_fringe;
53330
2dfa97148836 (Qimage): Remove extern (now in lisp.h).
Kim F. Storm <storm@cua.dk>
parents: 53178
diff changeset
574 extern Lisp_Object QCmap;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
575
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
576 Lisp_Object recursive_edit_unwind (), command_loop ();
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
577 Lisp_Object Fthis_command_keys ();
4773
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
578 Lisp_Object Qextended_command_history;
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
579 EMACS_TIME timer_check ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580
48229
5d4678fa4feb (command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents: 48146
diff changeset
581 extern Lisp_Object Vhistory_length, Vtranslation_table_for_input;
21726
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
582
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
583 extern char *x_get_keysym_name ();
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
584
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
585 static void record_menu_key ();
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
586 static int echo_length ();
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
587
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
588 Lisp_Object Qpolling_period;
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
589
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
590 /* List of absolute timers. Appears in order of next scheduled event. */
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
591 Lisp_Object Vtimer_list;
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
592
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
593 /* List of idle time timers. Appears in order of next scheduled event. */
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
594 Lisp_Object Vtimer_idle_list;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
595
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
596 /* Incremented whenever a timer is run. */
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
597 int timers_run;
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
598
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
599 extern Lisp_Object Vprint_level, Vprint_length;
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
600
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
601 /* 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
602 happens. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
603 EMACS_TIME *input_available_clear_time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 /* Nonzero means use SIGIO interrupts; zero means use CBREAK mode.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 Default is 1 if INTERRUPT_INPUT is defined. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 int interrupt_input;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 /* Nonzero while interrupts are temporarily deferred during redisplay. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610 int interrupts_deferred;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
612 /* Nonzero means use ^S/^Q for flow control. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 int flow_control;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 /* Allow m- file to inhibit use of FIONREAD. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 #ifdef BROKEN_FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
617 #undef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
619
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620 /* We are unable to use interrupts if FIONREAD is not available,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
621 so flush SIGIO so we won't try. */
58634
95d38c47c806 * keyboard.c: Don't undef SIGIO
Steven Tamm <steventamm@mac.com>
parents: 58519
diff changeset
622 #if !defined (FIONREAD)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 #undef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
628 /* If we support a window system, turn on the code to poll periodically
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
629 to detect C-g. It isn't actually used when doing interrupt input. */
46798
a8e027c9c403 In src:
Andrew Choi <akochoi@shaw.ca>
parents: 46718
diff changeset
630 #if defined(HAVE_WINDOW_SYSTEM) && !defined(USE_ASYNC_EVENTS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631 #define POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632 #endif
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
633
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
634 /* After a command is executed, if point is moved into a region that
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
635 has specific properties (e.g. composition, display), we adjust
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
636 point to the boundary of the region. But, if a command sets this
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
637 variable to non-nil, we suppress this point adjustment. This
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
638 variable is set to nil before reading a command. */
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
639
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
640 Lisp_Object Vdisable_point_adjustment;
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
641
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
642 /* If non-nil, always disable point adjustment. */
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
643
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
644 Lisp_Object Vglobal_disable_point_adjustment;
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
645
38195
7255d1f70b82 (read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents: 37742
diff changeset
646 /* The time when Emacs started being idle. */
7255d1f70b82 (read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents: 37742
diff changeset
647
7255d1f70b82 (read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents: 37742
diff changeset
648 static EMACS_TIME timer_idleness_start_time;
7255d1f70b82 (read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents: 37742
diff changeset
649
46109
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
650 /* After Emacs stops being idle, this saves the last value
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
651 of timer_idleness_start_time from when it was idle. */
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
652
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
653 static EMACS_TIME timer_last_idleness_start_time;
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
654
68792
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
655 /* If non-nil, events produced by disabled menu items and tool-bar
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
656 buttons are not ignored. Help functions bind this to allow help on
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
657 those items and buttons. */
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
658 Lisp_Object Venable_disabled_menus_and_buttons;
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
659
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 /* Global variable declarations. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
663 /* Flags for readable_events. */
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
664 #define READABLE_EVENTS_DO_TIMERS_NOW (1 << 0)
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
665 #define READABLE_EVENTS_FILTER_EVENTS (1 << 1)
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
666 #define READABLE_EVENTS_IGNORE_SQUEEZABLES (1 << 2)
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
667
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 /* Function for init_keyboard to call with no args (if nonzero). */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 void (*keyboard_init_hook) ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
671 static int read_avail_input P_ ((int));
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
672 static void get_input_pending P_ ((int *, int));
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
673 static int readable_events P_ ((int));
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
674 static Lisp_Object read_char_x_menu_prompt P_ ((int, Lisp_Object *,
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
675 Lisp_Object, int *));
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
676 static Lisp_Object read_char_x_menu_prompt ();
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
677 static Lisp_Object read_char_minibuf_menu_prompt P_ ((int, int,
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
678 Lisp_Object *));
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
679 static Lisp_Object make_lispy_event P_ ((struct input_event *));
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
680 #ifdef HAVE_MOUSE
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
681 static Lisp_Object make_lispy_movement P_ ((struct frame *, Lisp_Object,
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
682 enum scroll_bar_part,
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
683 Lisp_Object, Lisp_Object,
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
684 unsigned long));
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
685 #endif
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
686 static Lisp_Object modify_event_symbol P_ ((int, unsigned, Lisp_Object,
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
687 Lisp_Object, char **,
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
688 Lisp_Object *, unsigned));
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
689 static Lisp_Object make_lispy_switch_frame P_ ((Lisp_Object));
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
690 static int parse_solitary_modifier P_ ((Lisp_Object));
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
691 static int parse_solitary_modifier ();
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
692 static void save_getcjmp P_ ((jmp_buf));
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
693 static void save_getcjmp ();
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
694 static void restore_getcjmp P_ ((jmp_buf));
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
695 static Lisp_Object apply_modifiers P_ ((int, Lisp_Object));
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
696 static void clear_event P_ ((struct input_event *));
39338
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
697 static void any_kboard_state P_ ((void));
48508
2774b99c3ec2 (interrupt_signal): Provide forward declaration.
Dave Love <fx@gnu.org>
parents: 48349
diff changeset
698 static SIGTYPE interrupt_signal P_ ((int signalnum));
57410
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
699 static void timer_start_idle P_ ((void));
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
700 static void timer_stop_idle P_ ((void));
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
701 static void timer_resume_idle P_ ((void));
74611
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
702 static SIGTYPE handle_user_signal P_ ((int));
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
703 static char *find_user_signal_name P_ ((int));
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
704 static int store_user_signal_events P_ ((void));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705
6101
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
706 /* Nonzero means don't try to suspend even if the operating system seems
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
707 to support it. */
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
708 static int cannot_suspend;
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
709
56173
8715315bd4ab (command_loop_1): Handle values `only' and `identity' for Vtransient_mark_mode.
Richard M. Stallman <rms@gnu.org>
parents: 56093
diff changeset
710 extern Lisp_Object Qidentity, Qonly;
8715315bd4ab (command_loop_1): Handle values `only' and `identity' for Vtransient_mark_mode.
Richard M. Stallman <rms@gnu.org>
parents: 56093
diff changeset
711
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 /* Install the string STR as the beginning of the string of echoing,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 so that it serves as a prompt for the next character.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 Also start echoing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
716 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
717 echo_prompt (str)
34544
24bcec64720c (echo_prompt): Argument type changed to Lisp_Object.
Kenichi Handa <handa@m17n.org>
parents: 34518
diff changeset
718 Lisp_Object str;
24bcec64720c (echo_prompt): Argument type changed to Lisp_Object.
Kenichi Handa <handa@m17n.org>
parents: 34518
diff changeset
719 {
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
720 current_kboard->echo_string = str;
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
721 current_kboard->echo_after_prompt = SCHARS (str);
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
722 echo_now ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
725 /* Add C to the echo string, if echoing is going on.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 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
727 jazz), or a symbol, whose name is printed. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
729 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 echo_char (c)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731 Lisp_Object c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
733 if (current_kboard->immediate_echo)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 {
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
735 int size = KEY_DESCRIPTION_SIZE + 100;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
736 char *buffer = (char *) alloca (size);
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
737 char *ptr = buffer;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
738 Lisp_Object echo_string;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
740 echo_string = current_kboard->echo_string;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
741
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 /* If someone has passed us a composite event, use its head symbol. */
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
743 c = EVENT_HEAD (c);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
745 if (INTEGERP (c))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 {
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
747 ptr = push_key_description (XINT (c), ptr, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
749 else if (SYMBOLP (c))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 {
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
751 Lisp_Object name = SYMBOL_NAME (c);
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
752 int nbytes = SBYTES (name);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
753
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
754 if (size - (ptr - buffer) < nbytes)
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
755 {
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
756 int offset = ptr - buffer;
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
757 size = max (2 * size, size + nbytes);
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
758 buffer = (char *) alloca (size);
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
759 ptr = buffer + offset;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
760 }
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
761
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
762 ptr += copy_text (SDATA (name), ptr, nbytes,
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
763 STRING_MULTIBYTE (name), 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
766 if ((NILP (echo_string) || SCHARS (echo_string) == 0)
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
767 && help_char_p (c))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 {
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
769 const char *text = " (Type ? for further options)";
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
770 int len = strlen (text);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
771
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
772 if (size - (ptr - buffer) < len)
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
773 {
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
774 int offset = ptr - buffer;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
775 size += len;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
776 buffer = (char *) alloca (size);
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
777 ptr = buffer + offset;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
778 }
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
779
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
780 bcopy (text, ptr, len);
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
781 ptr += len;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
782 }
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
783
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
784 /* Replace a dash from echo_dash with a space, otherwise
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
785 add a space at the end as a separator between keys. */
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
786 if (STRINGP (echo_string)
50749
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
787 && SCHARS (echo_string) > 1)
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
788 {
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
789 Lisp_Object last_char, prev_char, idx;
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
790
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
791 idx = make_number (SCHARS (echo_string) - 2);
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
792 prev_char = Faref (echo_string, idx);
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
793
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
794 idx = make_number (SCHARS (echo_string) - 1);
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
795 last_char = Faref (echo_string, idx);
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
796
50749
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
797 /* We test PREV_CHAR to make sure this isn't the echoing
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
798 of a minus-sign. */
d4d06920c3ed (echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents: 50557
diff changeset
799 if (XINT (last_char) == '-' && XINT (prev_char) != ' ')
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
800 Faset (echo_string, idx, make_number (' '));
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
801 else
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
802 echo_string = concat2 (echo_string, build_string (" "));
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
803 }
68262
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
804 else if (STRINGP (echo_string))
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
805 echo_string = concat2 (echo_string, build_string (" "));
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
806
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
807 current_kboard->echo_string
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
808 = concat2 (echo_string, make_string (buffer, ptr - buffer));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
810 echo_now ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
813
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 /* 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
815 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
816
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
817 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818 echo_dash ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819 {
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
820 /* Do nothing if not echoing at all. */
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
821 if (NILP (current_kboard->echo_string))
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
822 return;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
823
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
824 if (!current_kboard->immediate_echo
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
825 && SCHARS (current_kboard->echo_string) == 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
826 return;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
827
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
828 /* Do nothing if we just printed a prompt. */
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
829 if (current_kboard->echo_after_prompt
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
830 == SCHARS (current_kboard->echo_string))
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
831 return;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
832
56421
0ef3adf2dcd7 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents: 56367
diff changeset
833 /* Do nothing if we have already put a dash at the end. */
0ef3adf2dcd7 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents: 56367
diff changeset
834 if (SCHARS (current_kboard->echo_string) > 1)
0ef3adf2dcd7 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents: 56367
diff changeset
835 {
68262
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
836 Lisp_Object last_char, prev_char, idx;
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
837
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
838 idx = make_number (SCHARS (current_kboard->echo_string) - 2);
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
839 prev_char = Faref (current_kboard->echo_string, idx);
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
840
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
841 idx = make_number (SCHARS (current_kboard->echo_string) - 1);
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
842 last_char = Faref (current_kboard->echo_string, idx);
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
843
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
844 if (XINT (last_char) == '-' && XINT (prev_char) != ' ')
bd5ef7de54da (echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents: 67820
diff changeset
845 return;
56421
0ef3adf2dcd7 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents: 56367
diff changeset
846 }
0ef3adf2dcd7 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents: 56367
diff changeset
847
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848 /* Put a dash at the end of the buffer temporarily,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 but make it go away when the next character is added. */
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
850 current_kboard->echo_string = concat2 (current_kboard->echo_string,
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
851 build_string ("-"));
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
852 echo_now ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
855 /* Display the current echo string, and begin echoing if not already
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856 doing so. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
858 void
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
859 echo_now ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
860 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
861 if (!current_kboard->immediate_echo)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
862 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
863 int i;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
864 current_kboard->immediate_echo = 1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
865
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
866 for (i = 0; i < this_command_key_count; i++)
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
867 {
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
868 Lisp_Object c;
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
869
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
870 /* Set before_command_echo_length to the value that would
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
871 have been saved before the start of this subcommand in
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
872 command_loop_1, if we had already been echoing then. */
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
873 if (i == this_single_command_key_start)
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
874 before_command_echo_length = echo_length ();
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
875
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
876 c = XVECTOR (this_command_keys)->contents[i];
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
877 if (! (EVENT_HAS_PARAMETERS (c)
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
878 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement)))
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
879 echo_char (c);
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
880 }
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
881
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
882 /* Set before_command_echo_length to the value that would
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
883 have been saved before the start of this subcommand in
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
884 command_loop_1, if we had already been echoing then. */
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
885 if (this_command_key_count == this_single_command_key_start)
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
886 before_command_echo_length = echo_length ();
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
887
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
888 /* Put a dash at the end to invite the user to type more. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
889 echo_dash ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892 echoing = 1;
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
893 message3_nolog (current_kboard->echo_string,
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
894 SBYTES (current_kboard->echo_string),
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
895 STRING_MULTIBYTE (current_kboard->echo_string));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 echoing = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
898 /* Record in what buffer we echoed, and from which kboard. */
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
899 echo_message_buffer = echo_area_buffer[0];
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
900 echo_kboard = current_kboard;
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
901
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902 if (waiting_for_input && !NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
904 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
905
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
906 /* Turn off echoing, for the start of a new command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
907
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
908 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909 cancel_echoing ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
911 current_kboard->immediate_echo = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
912 current_kboard->echo_after_prompt = -1;
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
913 current_kboard->echo_string = Qnil;
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
914 ok_to_echo_at_next_pause = NULL;
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
915 echo_kboard = NULL;
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
916 echo_message_buffer = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
917 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
918
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
919 /* Return the length of the current echo string. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
920
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
922 echo_length ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
923 {
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
924 return (STRINGP (current_kboard->echo_string)
43785
5f25ad91cf88 (echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents: 43750
diff changeset
925 ? SCHARS (current_kboard->echo_string)
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
926 : 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
928
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
929 /* Truncate the current echo message to its first LEN chars.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
930 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
931 switches frames while entering a key sequence. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
932
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
933 static void
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
934 echo_truncate (nchars)
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
935 int nchars;
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
936 {
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
937 if (STRINGP (current_kboard->echo_string))
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
938 current_kboard->echo_string
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
939 = Fsubstring (current_kboard->echo_string,
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
940 make_number (0), make_number (nchars));
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
941 truncate_echo_area (nchars);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
942 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 /* Functions for manipulating this_command_keys. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 static void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 add_command_key (key)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 Lisp_Object key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949 {
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
950 #if 0 /* Not needed after we made Freset_this_command_lengths
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
951 do the job immediately. */
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
952 /* If reset-this-command-length was called recently, obey it now.
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
953 See the doc string of that function for an explanation of why. */
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
954 if (before_command_restore_flag)
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
955 {
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
956 this_command_key_count = before_command_key_count_1;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
957 if (this_command_key_count < this_single_command_key_start)
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
958 this_single_command_key_start = this_command_key_count;
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
959 echo_truncate (before_command_echo_length_1);
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
960 before_command_restore_flag = 0;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
961 }
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
962 #endif
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
963
38674
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
964 if (this_command_key_count >= ASIZE (this_command_keys))
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
965 this_command_keys = larger_vector (this_command_keys,
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
966 2 * ASIZE (this_command_keys),
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
967 Qnil);
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
968
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
969 AREF (this_command_keys, this_command_key_count) = key;
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
970 ++this_command_key_count;
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
971 }
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
972
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
973
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
975 recursive_edit_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
976 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
977 int count = SPECPDL_INDEX ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
979
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980 if (command_loop_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
981 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
982 specbind (Qstandard_output, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
983 specbind (Qstandard_input, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
985
27867
aa784365f0a0 (recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 27862
diff changeset
986 #ifdef HAVE_X_WINDOWS
36255
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
987 /* The command loop has started an hourglass timer, so we have to
27867
aa784365f0a0 (recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 27862
diff changeset
988 cancel it here, otherwise it will fire because the recursive edit
43149
a50d91dfe5f8 (recursive_edit_1): Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents: 43057
diff changeset
989 can take some time. Do not check for display_hourglass_p here,
a50d91dfe5f8 (recursive_edit_1): Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents: 43057
diff changeset
990 because it could already be nil. */
36255
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
991 cancel_hourglass ();
27867
aa784365f0a0 (recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 27862
diff changeset
992 #endif
aa784365f0a0 (recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 27862
diff changeset
993
36196
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
994 /* This function may have been called from a debugger called from
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
995 within redisplay, for instance by Edebugging a function called
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
996 from fontification-functions. We want to allow redisplay in
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
997 the debugging session.
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
998
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
999 The recursive edit is left with a `(throw exit ...)'. The `exit'
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
1000 tag is not caught anywhere in redisplay, i.e. when we leave the
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
1001 recursive edit, the original redisplay leading to the recursive
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
1002 edit will be unwound. The outcome should therefore be safe. */
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
1003 specbind (Qinhibit_redisplay, Qnil);
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
1004 redisplaying_p = 0;
66fbfa369f3e (recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
1005
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1006 val = command_loop ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1007 if (EQ (val, Qt))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1008 Fsignal (Qquit, Qnil);
16181
de4b3d40218f (recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents: 16166
diff changeset
1009 /* Handle throw from read_minibuf when using minibuffer
de4b3d40218f (recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents: 16166
diff changeset
1010 while it's active but we're in another window. */
de4b3d40218f (recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents: 16166
diff changeset
1011 if (STRINGP (val))
71981
802436ff7a47 (recursive_edit_1): Use xsignal1.
Kim F. Storm <storm@cua.dk>
parents: 71947
diff changeset
1012 xsignal1 (Qerror, val);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
1014 return unbind_to (count, Qnil);
518
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 /* When an auto-save happens, record the "time", and don't do again soon. */
7224
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1018
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
1019 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 record_auto_save ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021 {
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
1022 last_auto_save = num_nonmacro_input_events;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 }
7224
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1024
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1025 /* Make an auto save happen as soon as possible at command level. */
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1026
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
1027 void
7224
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1028 force_auto_save_soon ()
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1029 {
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1030 last_auto_save = - auto_save_interval - 1;
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
1031
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
1032 record_asynch_buffer_change ();
7224
a96533ce8122 (force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7168
diff changeset
1033 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1034
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1035 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1036 doc: /* Invoke the editor command loop recursively.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1037 To get out of the recursive edit, a command can do `(throw 'exit nil)';
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1038 that tells this function to return.
62753
3cf2ae5f446d (Frecursive_edit): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 62493
diff changeset
1039 Alternatively, `(throw 'exit t)' makes this function signal an error.
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1040 This function is called by the editor initialization to begin editing. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1041 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1042 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
1043 int count = SPECPDL_INDEX ();
39338
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1044 Lisp_Object buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1045
55659
4771569ccabb (Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents: 55639
diff changeset
1046 /* If we enter while input is blocked, don't lock up here.
4771569ccabb (Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents: 55639
diff changeset
1047 This may happen through the debugger during redisplay. */
4771569ccabb (Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents: 55639
diff changeset
1048 if (INPUT_BLOCKED_P)
4771569ccabb (Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents: 55639
diff changeset
1049 return Qnil;
4771569ccabb (Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents: 55639
diff changeset
1050
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1051 command_loop_level++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1052 update_mode_lines = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1053
39338
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1054 if (command_loop_level
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1055 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer))
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1056 buffer = Fcurrent_buffer ();
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1057 else
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1058 buffer = Qnil;
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1059
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1060 /* If we leave recursive_edit_1 below with a `throw' for instance,
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1061 like it is done in the splash screen display, we have to
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1062 make sure that we restore single_kboard as command_loop_1
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1063 would have done if it were left normally. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1064 record_unwind_protect (recursive_edit_unwind,
39338
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1065 Fcons (buffer, single_kboard ? Qt : Qnil));
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1066
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1067 recursive_edit_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1068 return unbind_to (count, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1069 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1070
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1071 Lisp_Object
39338
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1072 recursive_edit_unwind (info)
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1073 Lisp_Object info;
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1074 {
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1075 if (BUFFERP (XCAR (info)))
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1076 Fset_buffer (XCAR (info));
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
1077
39338
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1078 if (NILP (XCDR (info)))
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1079 any_kboard_state ();
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1080 else
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1081 single_kboard_state ();
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
1082
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1083 command_loop_level--;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1084 update_mode_lines = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1085 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1086 }
39338
96fc00b78011 (Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents: 38792
diff changeset
1087
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1088
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1089 static void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1090 any_kboard_state ()
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1091 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1092 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1093 #if 0 /* Theory: if there's anything in Vunread_command_events,
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1094 it will right away be read by read_key_sequence,
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1095 and then if we do switch KBOARDS, it will go into the side
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1096 queue then. So we don't need to do anything special here -- rms. */
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
1097 if (CONSP (Vunread_command_events))
10945
dbf1aab47502 (unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents: 10939
diff changeset
1098 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1099 current_kboard->kbd_queue
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1100 = nconc2 (Vunread_command_events, current_kboard->kbd_queue);
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1101 current_kboard->kbd_queue_has_data = 1;
10945
dbf1aab47502 (unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents: 10939
diff changeset
1102 }
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
1103 Vunread_command_events = Qnil;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1104 #endif
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1105 single_kboard = 0;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1106 #endif
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1107 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1108
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1109 /* Switch to the single-kboard state, making current_kboard
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1110 the only KBOARD from which further input is accepted. */
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1111
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1112 void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1113 single_kboard_state ()
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1114 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1115 #ifdef MULTI_KBOARD
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1116 single_kboard = 1;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1117 #endif
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
1118 }
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1119
56454
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1120 /* If we're in single_kboard state for kboard KBOARD,
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1121 get out of it. */
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1122
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1123 void
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1124 not_single_kboard_state (kboard)
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1125 KBOARD *kboard;
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1126 {
56461
04a216bfa931 (not_single_kboard_state): Do nothing unless MULTI_KBOARD is defined.
Juanma Barranquero <lekktu@gmail.com>
parents: 56454
diff changeset
1127 #ifdef MULTI_KBOARD
56454
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1128 if (kboard == current_kboard)
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1129 single_kboard = 0;
56461
04a216bfa931 (not_single_kboard_state): Do nothing unless MULTI_KBOARD is defined.
Juanma Barranquero <lekktu@gmail.com>
parents: 56454
diff changeset
1130 #endif
56454
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1131 }
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
1132
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1133 /* Maintain a stack of kboards, so other parts of Emacs
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1134 can switch temporarily to the kboard of a given frame
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1135 and then revert to the previous status. */
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1136
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1137 struct kboard_stack
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1138 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1139 KBOARD *kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1140 struct kboard_stack *next;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1141 };
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1142
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1143 static struct kboard_stack *kboard_stack;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1144
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1145 void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1146 push_frame_kboard (f)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1147 FRAME_PTR f;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1148 {
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
1149 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1150 struct kboard_stack *p
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1151 = (struct kboard_stack *) xmalloc (sizeof (struct kboard_stack));
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1152
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1153 p->next = kboard_stack;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1154 p->kboard = current_kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1155 kboard_stack = p;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1156
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1157 current_kboard = FRAME_KBOARD (f);
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
1158 #endif
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1159 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1160
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1161 void
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1162 pop_frame_kboard ()
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1163 {
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
1164 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1165 struct kboard_stack *p = kboard_stack;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1166 current_kboard = p->kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1167 kboard_stack = p->next;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1168 xfree (p);
11366
1dbffccbd022 (push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents: 11363
diff changeset
1169 #endif
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1170 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1171
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1172 /* Handle errors that are not handled at inner levels
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1173 by printing an error message and returning to the editor command loop. */
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
1174
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1175 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1176 cmd_error (data)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1177 Lisp_Object data;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1178 {
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1179 Lisp_Object old_level, old_length;
15969
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1180 char macroerror[50];
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1181
46412
7284594e6125 (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1182 #ifdef HAVE_X_WINDOWS
7284594e6125 (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1183 if (display_hourglass_p)
7284594e6125 (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1184 cancel_hourglass ();
7284594e6125 (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1185 #endif
7284594e6125 (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1186
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
1187 if (!NILP (executing_kbd_macro))
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
1188 {
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
1189 if (executing_kbd_macro_iterations == 1)
15969
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1190 sprintf (macroerror, "After 1 kbd macro iteration: ");
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1191 else
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1192 sprintf (macroerror, "After %d kbd macro iterations: ",
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
1193 executing_kbd_macro_iterations);
15969
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1194 }
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1195 else
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1196 *macroerror = 0;
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1197
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1198 Vstandard_output = Qt;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1199 Vstandard_input = Qt;
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1200 Vexecuting_kbd_macro = Qnil;
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
1201 executing_kbd_macro = Qnil;
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1202 current_kboard->Vprefix_arg = Qnil;
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
1203 current_kboard->Vlast_prefix_arg = Qnil;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1204 cancel_echoing ();
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1205
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1206 /* Avoid unquittable loop if data contains a circular list. */
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1207 old_level = Vprint_level;
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1208 old_length = Vprint_length;
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
1209 XSETFASTINT (Vprint_level, 10);
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
1210 XSETFASTINT (Vprint_length, 10);
15969
a93195fe5297 (cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents: 15946
diff changeset
1211 cmd_error_internal (data, macroerror);
10932
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1212 Vprint_level = old_level;
df11ec79623a (cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents: 10930
diff changeset
1213 Vprint_length = old_length;
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1214
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1215 Vquit_flag = Qnil;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1216
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1217 Vinhibit_quit = Qnil;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1218 #ifdef MULTI_KBOARD
56093
53ee24947683 (cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents: 56070
diff changeset
1219 if (command_loop_level == 0 && minibuf_level == 0)
53ee24947683 (cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents: 56070
diff changeset
1220 any_kboard_state ();
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1221 #endif
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1222
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1223 return make_number (0);
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1224 }
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1225
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1226 /* Take actions on handling an error. DATA is the data that describes
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1227 the error.
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1228
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1229 CONTEXT is a C-string containing ASCII characters only which
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1230 describes the context in which the error happened. If we need to
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1231 generalize CONTEXT to allow multibyte characters, make it a Lisp
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1232 string. */
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1233
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
1234 void
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1235 cmd_error_internal (data, context)
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1236 Lisp_Object data;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1237 char *context;
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
1238 {
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
1239 struct frame *sf = SELECTED_FRAME ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1240
46572
765f9cd60063 (cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents: 46535
diff changeset
1241 /* The immediate context is not interesting for Quits,
765f9cd60063 (cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents: 46535
diff changeset
1242 since they are asyncronous. */
765f9cd60063 (cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents: 46535
diff changeset
1243 if (EQ (XCAR (data), Qquit))
765f9cd60063 (cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents: 46535
diff changeset
1244 Vsignaling_function = Qnil;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
1245
71947
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1246 Vquit_flag = Qnil;
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1247 Vinhibit_quit = Qt;
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1248
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1249 /* Use user's specified output function if any. */
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1250 if (!NILP (Vcommand_error_function))
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1251 call3 (Vcommand_error_function, data,
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1252 build_string (context ? context : ""),
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1253 Vsignaling_function);
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1254 /* If the window system or terminal frame hasn't been initialized
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1255 yet, or we're not interactive, write the message to stderr and exit. */
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1256 else if (!sf->glyphs_initialized_p
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1257 /* This is the case of the frame dumped with Emacs, when we're
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1258 running under a window system. */
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1259 || (!NILP (Vwindow_system)
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1260 && !inhibit_window_system
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1261 && FRAME_TERMCAP_P (sf))
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1262 || noninteractive)
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1263 {
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1264 print_error_message (data, Qexternal_debugging_output,
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1265 context, Vsignaling_function);
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1266 Fterpri (Qexternal_debugging_output);
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1267 Fkill_emacs (make_number (-1));
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1268 }
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1269 else
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1270 {
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1271 clear_message (1, 0);
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1272 Fdiscard_input ();
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1273 message_log_maybe_newline ();
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1274 bitch_at_user ();
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1275
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1276 print_error_message (data, Qt, context, Vsignaling_function);
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
1277 }
46572
765f9cd60063 (cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents: 46535
diff changeset
1278
765f9cd60063 (cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents: 46535
diff changeset
1279 Vsignaling_function = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1280 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1281
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1282 Lisp_Object command_loop_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1283 Lisp_Object command_loop_2 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1284 Lisp_Object top_level_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1285
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1286 /* Entry to editor-command-loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1287 This level has the catches for exiting/returning to editor command loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1288 It returns nil to exit recursive edit, t to abort it. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1289
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1290 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1291 command_loop ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1292 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1293 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1294 {
23459
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
1295 Lisp_Object val;
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
1296 val = internal_catch (Qexit, command_loop_2, Qnil);
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
1297 executing_kbd_macro = Qnil;
22551
10770ff8e88f (command_loop): Reset executing_macro after
Richard M. Stallman <rms@gnu.org>
parents: 22542
diff changeset
1298 return val;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1299 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1300 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1301 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1302 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1303 internal_catch (Qtop_level, top_level_1, Qnil);
56093
53ee24947683 (cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents: 56070
diff changeset
1304 /* Reset single_kboard in case top-level set it while
53ee24947683 (cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents: 56070
diff changeset
1305 evaluating an -f option, or we are stuck there for some
53ee24947683 (cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents: 56070
diff changeset
1306 other reason. */
53ee24947683 (cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents: 56070
diff changeset
1307 any_kboard_state ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1308 internal_catch (Qtop_level, command_loop_2, Qnil);
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
1309 executing_kbd_macro = Qnil;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1310
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1311 /* End of file in -batch run causes exit here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1312 if (noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1313 Fkill_emacs (Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1315 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1317 /* Here we catch errors in execution of commands within the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1318 editing loop, and reenter the editing loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1319 When there is an error, cmd_error runs and returns a non-nil
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
1320 value to us. A value of nil means that command_loop_1 itself
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1321 returned due to end of file (or end of kbd macro). */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1322
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1323 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1324 command_loop_2 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1326 register Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1327
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1328 do
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 val = internal_condition_case (command_loop_1, Qerror, cmd_error);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1330 while (!NILP (val));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1333 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1335 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1336 top_level_2 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1337 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1338 return Feval (Vtop_level);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1339 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1341 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1342 top_level_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1343 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1344 /* On entry to the outer level, run the startup file */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1345 if (!NILP (Vtop_level))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1346 internal_condition_case (top_level_2, Qerror, cmd_error);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1347 else if (!NILP (Vpurify_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1348 message ("Bare impure Emacs (standard Lisp code not loaded)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1349 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1350 message ("Bare Emacs (standard Lisp code not loaded)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1351 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1352 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1353
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1354 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "",
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1355 doc: /* Exit all recursive editing levels. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1356 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1357 {
28389
9ec5585e5e29 (Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 27979
diff changeset
1358 #ifdef HAVE_X_WINDOWS
36255
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
1359 if (display_hourglass_p)
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
1360 cancel_hourglass ();
28389
9ec5585e5e29 (Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 27979
diff changeset
1361 #endif
55659
4771569ccabb (Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents: 55639
diff changeset
1362
60556
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
1363 /* Unblock input if we enter with input blocked. This may happen if
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
1364 redisplay traps e.g. during tool-bar update with input blocked. */
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
1365 while (INPUT_BLOCKED_P)
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
1366 UNBLOCK_INPUT;
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
1367
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
1368 return Fthrow (Qtop_level, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1369 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1370
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1371 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "",
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1372 doc: /* Exit from the innermost recursive edit or minibuffer. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1373 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1374 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1375 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1376 Fthrow (Qexit, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1377
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1378 error ("No recursive edit is in progress");
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
1379 return Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1380 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1381
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1382 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "",
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1383 doc: /* Abort the command that requested this recursive edit or minibuffer input. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
1384 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1385 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1386 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1387 Fthrow (Qexit, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1388
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1389 error ("No recursive edit is in progress");
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
1390 return Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1391 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1392
72460
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1393 #ifdef HAVE_MOUSE
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1394
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1395 /* Restore mouse tracking enablement. See Ftrack_mouse for the only use
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1396 of this function. */
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1397
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1398 static Lisp_Object
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1399 tracking_off (old_value)
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1400 Lisp_Object old_value;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1401 {
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1402 do_mouse_tracking = old_value;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1403 if (NILP (old_value))
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1404 {
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1405 /* Redisplay may have been preempted because there was input
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1406 available, and it assumes it will be called again after the
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1407 input has been processed. If the only input available was
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1408 the sort that we have just disabled, then we need to call
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1409 redisplay. */
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1410 if (!readable_events (READABLE_EVENTS_DO_TIMERS_NOW))
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1411 {
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1412 redisplay_preserve_echo_area (6);
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1413 get_input_pending (&input_pending,
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1414 READABLE_EVENTS_DO_TIMERS_NOW);
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1415 }
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1416 }
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1417 return Qnil;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1418 }
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1419
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1420 DEFUN ("track-mouse", Ftrack_mouse, Strack_mouse, 0, UNEVALLED, 0,
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1421 doc: /* Evaluate BODY with mouse movement events enabled.
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1422 Within a `track-mouse' form, mouse motion generates input events that
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1423 you can read with `read-event'.
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1424 Normally, mouse motion is ignored.
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1425 usage: (track-mouse BODY ...) */)
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1426 (args)
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1427 Lisp_Object args;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1428 {
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1429 int count = SPECPDL_INDEX ();
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1430 Lisp_Object val;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1431
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1432 record_unwind_protect (tracking_off, do_mouse_tracking);
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1433
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1434 do_mouse_tracking = Qt;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1435
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1436 val = Fprogn (args);
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1437 return unbind_to (count, val);
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1438 }
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1439
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1440 /* If mouse has moved on some frame, return one of those frames.
74621
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1441
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1442 Return 0 otherwise.
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1443
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1444 If ignore_mouse_drag_p is non-zero, ignore (implicit) mouse movement
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1445 after resizing the tool-bar window. */
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1446
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1447 int ignore_mouse_drag_p;
72460
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1448
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1449 static FRAME_PTR
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1450 some_mouse_moved ()
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1451 {
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1452 Lisp_Object tail, frame;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1453
74621
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1454 if (ignore_mouse_drag_p)
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1455 {
74837
506b356e8291 (some_mouse_moved): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 74754
diff changeset
1456 /* ignore_mouse_drag_p = 0; */
74621
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1457 return 0;
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1458 }
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
1459
72460
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1460 FOR_EACH_FRAME (tail, frame)
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1461 {
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1462 if (XFRAME (frame)->mouse_moved)
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1463 return XFRAME (frame);
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1464 }
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1465
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1466 return 0;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1467 }
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1468
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1469 #endif /* HAVE_MOUSE */
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
1470
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1471 /* This is the actual command reading loop,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1472 sans error-handling encapsulation. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1473
36745
a12182d34820 (command_loop_1): Set Vdeactivate_mark to nil
Gerd Moellmann <gerd@gnu.org>
parents: 36741
diff changeset
1474 static int read_key_sequence P_ ((Lisp_Object *, int, Lisp_Object,
a12182d34820 (command_loop_1): Set Vdeactivate_mark to nil
Gerd Moellmann <gerd@gnu.org>
parents: 36741
diff changeset
1475 int, int, int));
a12182d34820 (command_loop_1): Set Vdeactivate_mark to nil
Gerd Moellmann <gerd@gnu.org>
parents: 36741
diff changeset
1476 void safe_run_hooks P_ ((Lisp_Object));
49408
7e6cf4411cd4 (adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents: 49322
diff changeset
1477 static void adjust_point_for_property P_ ((int, int));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1478
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1479 /* Cancel hourglass from protect_unwind.
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1480 ARG is not used. */
49976
bd3e068b492a * keyboard.c (cancel_hourglass_unwind): Surround with
Jan Djärv <jan.h.d@swipnet.se>
parents: 49942
diff changeset
1481 #ifdef HAVE_X_WINDOWS
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1482 static Lisp_Object
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1483 cancel_hourglass_unwind (arg)
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1484 Lisp_Object arg;
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1485 {
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1486 cancel_hourglass ();
56070
343ad07ce78b (cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents: 56023
diff changeset
1487 return Qnil;
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1488 }
49976
bd3e068b492a * keyboard.c (cancel_hourglass_unwind): Surround with
Jan Djärv <jan.h.d@swipnet.se>
parents: 49942
diff changeset
1489 #endif
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1490
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1491 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1492 command_loop_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1493 {
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
1494 Lisp_Object cmd;
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
1495 int lose;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1496 int nonundocount;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1497 Lisp_Object keybuf[30];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1498 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1499 int no_direct;
69985
d5629ae481f1 (read_key_sequence): Explicitly avoid keybuf[-1].
Richard M. Stallman <rms@gnu.org>
parents: 69718
diff changeset
1500 int prev_modiff = 0;
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
1501 struct buffer *prev_buffer = NULL;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1502 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1503 int was_locked = single_kboard;
10820
5bef43a53c01 (display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents: 10800
diff changeset
1504 #endif
49010
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1505 int already_adjusted;
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1506
12227
24328f2358a1 (command_loop_1): Clear prefix arg (undo Feb 1 change).
Karl Heuer <kwzh@gnu.org>
parents: 12185
diff changeset
1507 current_kboard->Vprefix_arg = Qnil;
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
1508 current_kboard->Vlast_prefix_arg = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1509 Vdeactivate_mark = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1510 waiting_for_input = 0;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
1511 cancel_echoing ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1512
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1513 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1514 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
1515 this_command_key_count_reset = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
1516 this_single_command_key_start = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1517
46343
fb71432c8a02 (command_loop_1): Invert check on Vmemory_full.
Kim F. Storm <storm@cua.dk>
parents: 46316
diff changeset
1518 if (NILP (Vmemory_full))
46316
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1519 {
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1520 /* Make sure this hook runs after commands that get errors and
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1521 throw to top level. */
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1522 /* Note that the value cell will never directly contain nil
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1523 if the symbol is a local variable. */
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1524 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks))
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1525 safe_run_hooks (Qpost_command_hook);
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1526
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1527 /* If displaying a message, resize the echo area window to fit
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1528 that message's size exactly. */
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1529 if (!NILP (echo_area_buffer[0]))
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1530 resize_echo_area_exactly ();
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1531
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1532 if (!NILP (Vdeferred_action_list))
60067
77fc0086f304 (command_loop_1): Always use safe_run_hooks to run Qdeferred_action_function.
Richard M. Stallman <rms@gnu.org>
parents: 60027
diff changeset
1533 safe_run_hooks (Qdeferred_action_function);
46316
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1534 }
06bf5ed360fd (cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
1535
6290
6ecf8ea4bd8d (command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents: 6208
diff changeset
1536 /* Do this after running Vpost_command_hook, for consistency. */
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1537 current_kboard->Vlast_command = Vthis_command;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1538 current_kboard->Vreal_last_command = real_this_command;
6290
6ecf8ea4bd8d (command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents: 6208
diff changeset
1539
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1540 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1541 {
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
1542 if (! FRAME_LIVE_P (XFRAME (selected_frame)))
23226
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
1543 Fkill_emacs (Qnil);
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
1544
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1545 /* Make sure the current window's buffer is selected. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1546 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1547 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1548
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1549 /* Display any malloc warning that just came out. Use while because
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1550 displaying one warning can cause another. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1551
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1552 while (pending_malloc_warning)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1553 display_malloc_warning ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1554
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1555 no_direct = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1556
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1557 Vdeactivate_mark = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1558
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1559 /* If minibuffer on and echo area in use,
33724
b04964da2e33 (Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents: 33445
diff changeset
1560 wait a short time and redraw minibuffer. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1561
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
1562 if (minibuf_level
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
1563 && !NILP (echo_area_buffer[0])
73318
e876a1f62fec * dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents: 72889
diff changeset
1564 && EQ (minibuf_window, echo_area_window))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1565 {
1097
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
1566 /* Bind inhibit-quit to t so that C-g gets read in
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
1567 rather than quitting back to the minibuffer. */
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
1568 int count = SPECPDL_INDEX ();
1097
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
1569 specbind (Qinhibit_quit, Qt);
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
1570
73318
e876a1f62fec * dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents: 72889
diff changeset
1571 if (NUMBERP (Vminibuffer_message_timeout))
e876a1f62fec * dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents: 72889
diff changeset
1572 sit_for (Vminibuffer_message_timeout, 0, 2);
e876a1f62fec * dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents: 72889
diff changeset
1573 else
e876a1f62fec * dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents: 72889
diff changeset
1574 sit_for (Qt, 0, 2);
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
1575
14666
4edbb03c523b (command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents: 14612
diff changeset
1576 /* Clear the echo area. */
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
1577 message2 (0, 0, 0);
16834
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
1578 safe_run_hooks (Qecho_area_clear_hook);
14666
4edbb03c523b (command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents: 14612
diff changeset
1579
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
1580 unbind_to (count, Qnil);
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
1581
14666
4edbb03c523b (command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents: 14612
diff changeset
1582 /* If a C-g came in before, treat it as input now. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1583 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1584 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1585 Vquit_flag = Qnil;
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
1586 Vunread_command_events = Fcons (make_number (quit_char), Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1587 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1588 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1589
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1590 #ifdef C_ALLOCA
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1591 alloca (0); /* Cause a garbage collection now */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1592 /* Since we can free the most stuff here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1593 #endif /* C_ALLOCA */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1594
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1595 #if 0
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1596 /* Select the frame that the last event came from. Usually,
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1597 switch-frame events will take care of this, but if some lisp
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1598 code swallows a switch-frame event, we'll fix things up here.
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1599 Is this a good idea? */
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
1600 if (FRAMEP (internal_last_event_frame)
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
1601 && !EQ (internal_last_event_frame, selected_frame))
63185
bd105bca3ee4 (command_loop_1): Adapt call to Fselect_frame.
Luc Teirlinck <teirllm@auburn.edu>
parents: 63129
diff changeset
1602 Fselect_frame (internal_last_event_frame);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1603 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1604 /* If it has changed current-menubar from previous value,
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1605 really recompute the menubar from the value. */
4315
9c6571823ab8 (command_loop_1): Call Qrecompute_lucid_menubar only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 4282
diff changeset
1606 if (! NILP (Vlucid_menu_bar_dirty_flag)
9c6571823ab8 (command_loop_1): Call Qrecompute_lucid_menubar only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 4282
diff changeset
1607 && !NILP (Ffboundp (Qrecompute_lucid_menubar)))
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1608 call0 (Qrecompute_lucid_menubar);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1609
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1610 before_command_key_count = this_command_key_count;
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1611 before_command_echo_length = echo_length ();
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
1612
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1613 Vthis_command = Qnil;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1614 real_this_command = Qnil;
63129
202cc39e47ea Clean up whitespace.
Richard M. Stallman <rms@gnu.org>
parents: 63081
diff changeset
1615 Vthis_original_command = Qnil;
13014
077bb437f649 (command_loop_1): Set this_command to nil before reading a command.
Richard M. Stallman <rms@gnu.org>
parents: 12979
diff changeset
1616
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1617 /* Read next key sequence; i gets its length. */
10903
ff1b5efecdb0 (read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 10861
diff changeset
1618 i = read_key_sequence (keybuf, sizeof keybuf / sizeof keybuf[0],
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
1619 Qnil, 0, 1, 1);
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1620
16504
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1621 /* A filter may have run while we were reading the input. */
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
1622 if (! FRAME_LIVE_P (XFRAME (selected_frame)))
23226
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
1623 Fkill_emacs (Qnil);
16504
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1624 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer)
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1625 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer));
76d22a4f6959 (command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents: 16325
diff changeset
1626
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1627 ++num_input_keys;
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1628
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1629 /* Now we have read a key sequence of length I,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1630 or else I is 0 and we found end of file. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1631
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1632 if (i == 0) /* End of file -- happens only in */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1633 return Qnil; /* a kbd macro, at the end. */
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1634 /* -1 means read_key_sequence got a menu that was rejected.
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1635 Just loop around and read another command. */
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1636 if (i == -1)
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1637 {
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1638 cancel_echoing ();
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1639 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
1640 this_command_key_count_reset = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
1641 this_single_command_key_start = 0;
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1642 goto finalize;
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1643 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1644
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1645 last_command_char = keybuf[i - 1];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1646
2406
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1647 /* If the previous command tried to force a specific window-start,
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1648 forget about that, in case this command moves point far away
11174
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1649 from that position. But also throw away beg_unchanged and
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1650 end_unchanged information in that case, so that redisplay will
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1651 update the whole window properly. */
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1652 if (!NILP (XWINDOW (selected_window)->force_start))
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1653 {
25374
f4c741d61d57 (command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents: 25352
diff changeset
1654 struct buffer *b;
11174
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1655 XWINDOW (selected_window)->force_start = Qnil;
25374
f4c741d61d57 (command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents: 25352
diff changeset
1656 b = XBUFFER (XWINDOW (selected_window)->buffer);
f4c741d61d57 (command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents: 25352
diff changeset
1657 BUF_BEG_UNCHANGED (b) = BUF_END_UNCHANGED (b) = 0;
11174
b400b109a398 (command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents: 11167
diff changeset
1658 }
2406
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1659
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1660 cmd = read_key_sequence_cmd;
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1661 if (!NILP (Vexecuting_kbd_macro))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1662 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1663 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1664 {
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1665 Vexecuting_kbd_macro = Qt;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1666 QUIT; /* Make some noise. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1667 /* Will return since macro now empty. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1668 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1669 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1670
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1671 /* Do redisplay processing after this command except in special
26469
50d43db29617 (command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1672 cases identified below. */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1673 prev_buffer = current_buffer;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1674 prev_modiff = MODIFF;
6204
ba6268a3dee9 (command_loop_1): Fix misplaced assignment of last_point_position.
Karl Heuer <kwzh@gnu.org>
parents: 6178
diff changeset
1675 last_point_position = PT;
67820
a9cbddeec059 (last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 67664
diff changeset
1676 last_point_position_window = selected_window;
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
1677 XSETBUFFER (last_point_position_buffer, prev_buffer);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1678
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1679 /* By default, we adjust point to a boundary of a region that
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1680 has such a property that should be treated intangible
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1681 (e.g. composition, display). But, some commands will set
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1682 this variable differently. */
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1683 Vdisable_point_adjustment = Qnil;
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1684
37461
a5f0e09ecc67 (command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents: 37400
diff changeset
1685 /* Process filters and timers may have messed with deactivate-mark.
a5f0e09ecc67 (command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents: 37400
diff changeset
1686 reset it before we execute the command. */
a5f0e09ecc67 (command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents: 37400
diff changeset
1687 Vdeactivate_mark = Qnil;
a5f0e09ecc67 (command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents: 37400
diff changeset
1688
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
1689 /* Remap command through active keymaps */
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
1690 Vthis_original_command = cmd;
43496
d42084cd7d73 (command_loop_1): Use Fremap_command for command remapping;
Kim F. Storm <storm@cua.dk>
parents: 43440
diff changeset
1691 if (SYMBOLP (cmd))
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
1692 {
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
1693 Lisp_Object cmd1;
76886
da21c991a6d5 (command_loop_1): Fcommand_remapping has new arg; caller changed.
Chong Yidong <cyd@stupidchicken.com>
parents: 76711
diff changeset
1694 if (cmd1 = Fcommand_remapping (cmd, Qnil, Qnil), !NILP (cmd1))
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
1695 cmd = cmd1;
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
1696 }
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
1697
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1698 /* Execute the command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1699
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1700 Vthis_command = cmd;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1701 real_this_command = cmd;
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1702 /* Note that the value cell will never directly contain nil
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1703 if the symbol is a local variable. */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
1704 if (!NILP (Vpre_command_hook) && !NILP (Vrun_hooks))
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
1705 safe_run_hooks (Qpre_command_hook);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
1706
49010
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1707 already_adjusted = 0;
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1708
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1709 if (NILP (Vthis_command))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1710 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1711 /* nil means key is undefined. */
58519
8e7e32dcc9e2 (command_loop_1): Print a message describing the key
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58247
diff changeset
1712 Lisp_Object keys = Fvector (i, keybuf);
8e7e32dcc9e2 (command_loop_1): Print a message describing the key
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58247
diff changeset
1713 keys = Fkey_description (keys, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1714 bitch_at_user ();
58519
8e7e32dcc9e2 (command_loop_1): Print a message describing the key
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58247
diff changeset
1715 message_with_string ("%s is undefined", keys, 0);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1716 current_kboard->defining_kbd_macro = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1717 update_mode_lines = 1;
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1718 current_kboard->Vprefix_arg = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1719 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721 {
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1722 if (NILP (current_kboard->Vprefix_arg) && ! no_direct)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1723 {
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
1724 /* In case we jump to directly_done. */
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
1725 Vcurrent_prefix_arg = current_kboard->Vprefix_arg;
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
1726
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727 /* Recognize some common commands in common situations and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1728 do them directly. */
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1729 if (EQ (Vthis_command, Qforward_char) && PT < ZV)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1730 {
13189
104d1e97803c (command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13108
diff changeset
1731 struct Lisp_Char_Table *dp
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1732 = window_display_table (XWINDOW (selected_window));
22279
e50e9ea93700 (command_loop_1): In shortcuts for forward-char etc,,
Richard M. Stallman <rms@gnu.org>
parents: 22104
diff changeset
1733 lose = FETCH_CHAR (PT_BYTE);
20539
4eae32c75642 (command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Richard M. Stallman <rms@gnu.org>
parents: 20496
diff changeset
1734 SET_PT (PT + 1);
49192
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1735 if (! NILP (Vpost_command_hook))
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1736 /* Put this before calling adjust_point_for_property
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1737 so it will only get called once in any case. */
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1738 goto directly_done;
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1739 if (current_buffer == prev_buffer
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1740 && last_point_position != PT
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1741 && NILP (Vdisable_point_adjustment)
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1742 && NILP (Vglobal_disable_point_adjustment))
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1743 adjust_point_for_property (last_point_position, 0);
49010
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1744 already_adjusted = 1;
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1745 if (PT == last_point_position + 1
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1746 && (dp
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1747 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1748 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1749 : (NILP (DISP_CHAR_VECTOR (dp, lose))
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1750 && (lose >= 0x20 && lose < 0x7f)))
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1751 : (lose >= 0x20 && lose < 0x7f))
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1752 /* To extract the case of continuation on
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
1753 wide-column characters. */
20539
4eae32c75642 (command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Richard M. Stallman <rms@gnu.org>
parents: 20496
diff changeset
1754 && (WIDTH_BY_CHAR_HEAD (FETCH_BYTE (PT_BYTE)) == 1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1755 && (XFASTINT (XWINDOW (selected_window)->last_modified)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1756 >= MODIFF)
16196
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1757 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified)
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1758 >= OVERLAY_MODIFF)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1759 && (XFASTINT (XWINDOW (selected_window)->last_point)
7427
2ea6fdd2dacf Use PT, not point.
Karl Heuer <kwzh@gnu.org>
parents: 7396
diff changeset
1760 == PT - 1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1761 && !windows_or_buffers_changed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1762 && EQ (current_buffer->selective_display, Qnil)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1763 && !detect_input_pending ()
15921
11f4f96a71d2 (command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents: 15716
diff changeset
1764 && NILP (XWINDOW (selected_window)->column_number_displayed)
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1765 && NILP (Vexecuting_kbd_macro))
26469
50d43db29617 (command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1766 direct_output_forward_char (1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1767 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1768 }
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1769 else if (EQ (Vthis_command, Qbackward_char) && PT > BEGV)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1770 {
13189
104d1e97803c (command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13108
diff changeset
1771 struct Lisp_Char_Table *dp
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1772 = window_display_table (XWINDOW (selected_window));
20539
4eae32c75642 (command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Richard M. Stallman <rms@gnu.org>
parents: 20496
diff changeset
1773 SET_PT (PT - 1);
22279
e50e9ea93700 (command_loop_1): In shortcuts for forward-char etc,,
Richard M. Stallman <rms@gnu.org>
parents: 22104
diff changeset
1774 lose = FETCH_CHAR (PT_BYTE);
49192
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1775 if (! NILP (Vpost_command_hook))
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1776 goto directly_done;
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1777 if (current_buffer == prev_buffer
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1778 && last_point_position != PT
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1779 && NILP (Vdisable_point_adjustment)
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1780 && NILP (Vglobal_disable_point_adjustment))
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
1781 adjust_point_for_property (last_point_position, 0);
49010
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1782 already_adjusted = 1;
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1783 if (PT == last_point_position - 1
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1784 && (dp
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1785 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1786 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1787 : (NILP (DISP_CHAR_VECTOR (dp, lose))
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1788 && (lose >= 0x20 && lose < 0x7f)))
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1789 : (lose >= 0x20 && lose < 0x7f))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1790 && (XFASTINT (XWINDOW (selected_window)->last_modified)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1791 >= MODIFF)
16196
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1792 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified)
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1793 >= OVERLAY_MODIFF)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1794 && (XFASTINT (XWINDOW (selected_window)->last_point)
7427
2ea6fdd2dacf Use PT, not point.
Karl Heuer <kwzh@gnu.org>
parents: 7396
diff changeset
1795 == PT + 1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1796 && !windows_or_buffers_changed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1797 && EQ (current_buffer->selective_display, Qnil)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1798 && !detect_input_pending ()
15921
11f4f96a71d2 (command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents: 15716
diff changeset
1799 && NILP (XWINDOW (selected_window)->column_number_displayed)
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1800 && NILP (Vexecuting_kbd_macro))
26469
50d43db29617 (command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1801 direct_output_forward_char (-1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1802 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1803 }
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1804 else if (EQ (Vthis_command, Qself_insert_command)
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
1805 /* Try this optimization only on char keystrokes. */
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
1806 && NATNUMP (last_command_char)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
1807 && CHAR_VALID_P (XFASTINT (last_command_char), 0))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1808 {
49192
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1809 unsigned int c
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1810 = translate_char (Vtranslation_table_for_input,
f9bae037b4c3 (command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents: 49010
diff changeset
1811 XFASTINT (last_command_char), 0, 0, 0);
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1812 int value;
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1813 if (NILP (Vexecuting_kbd_macro)
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1814 && !EQ (minibuf_window, selected_window))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1815 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1816 if (!nonundocount || nonundocount >= 20)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 Fundo_boundary ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1820 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1821 nonundocount++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1822 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
1823
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1824 lose = ((XFASTINT (XWINDOW (selected_window)->last_modified)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1825 < MODIFF)
16196
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1826 || (XFASTINT (XWINDOW (selected_window)->last_overlay_modified)
cb91edbbe173 (command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents: 16181
diff changeset
1827 < OVERLAY_MODIFF)
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1828 || (XFASTINT (XWINDOW (selected_window)->last_point)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1829 != PT)
10309
fe2243b3186b Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents: 10275
diff changeset
1830 || MODIFF <= SAVE_MODIFF
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1831 || windows_or_buffers_changed
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1832 || !EQ (current_buffer->selective_display, Qnil)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1833 || detect_input_pending ()
15921
11f4f96a71d2 (command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents: 15716
diff changeset
1834 || !NILP (XWINDOW (selected_window)->column_number_displayed)
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1835 || !NILP (Vexecuting_kbd_macro));
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
1836
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1837 value = internal_self_insert (c, 0);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
1838
8089
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1839 if (value == 2)
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1840 nonundocount = 0;
df2986993482 (command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents: 8076
diff changeset
1841
49193
1dd9faae71ac Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents: 49192
diff changeset
1842 if (! NILP (Vpost_command_hook))
1dd9faae71ac Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents: 49192
diff changeset
1843 /* Put this before calling adjust_point_for_property
1dd9faae71ac Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents: 49192
diff changeset
1844 so it will only get called once in any case. */
1dd9faae71ac Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents: 49192
diff changeset
1845 goto directly_done;
1dd9faae71ac Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents: 49192
diff changeset
1846
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
1847 /* VALUE == 1 when AFTER-CHANGE functions are
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
1848 installed which is the case most of the time
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
1849 because FONT-LOCK installs one. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
1850 if (!lose && !value)
26469
50d43db29617 (command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1851 direct_output_for_insert (c);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1852 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1853 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1854 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1855
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1856 /* Here for a command that isn't executed directly */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1857
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1858 {
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
1859 #ifdef HAVE_X_WINDOWS
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1860 int scount = SPECPDL_INDEX ();
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1861
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1862 if (display_hourglass_p
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1863 && NILP (Vexecuting_kbd_macro))
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1864 {
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1865 record_unwind_protect (cancel_hourglass_unwind, Qnil);
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1866 start_hourglass ();
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1867 }
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1868 #endif
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1869
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1870 nonundocount = 0;
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1871 if (NILP (current_kboard->Vprefix_arg))
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1872 Fundo_boundary ();
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1873 Fcommand_execute (Vthis_command, Qnil, Qnil, Qnil);
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
1874
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
1875 #ifdef HAVE_X_WINDOWS
43057
9472d3bc920c (command_loop_1) [HAVE_X_WINDOWS]: Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents: 43024
diff changeset
1876 /* Do not check display_hourglass_p here, because
9472d3bc920c (command_loop_1) [HAVE_X_WINDOWS]: Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents: 43024
diff changeset
1877 Fcommand_execute could change it, but we should cancel
44561
b79166cba466 (command_loop_1): Don't call start_hourglass
Richard M. Stallman <rms@gnu.org>
parents: 44534
diff changeset
1878 hourglass cursor anyway.
b79166cba466 (command_loop_1): Don't call start_hourglass
Richard M. Stallman <rms@gnu.org>
parents: 44534
diff changeset
1879 But don't cancel the hourglass within a macro
b79166cba466 (command_loop_1): Don't call start_hourglass
Richard M. Stallman <rms@gnu.org>
parents: 44534
diff changeset
1880 just because a command in the macro finishes. */
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
1881 if (NILP (Vexecuting_kbd_macro))
49942
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1882 unbind_to (scount, Qnil);
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1883 #endif
4c1f6a49e9a3 * keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49819
diff changeset
1884 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1885 }
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
1886 directly_done: ;
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
1887 current_kboard->Vlast_prefix_arg = Vcurrent_prefix_arg;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1888
20783
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1889 /* Note that the value cell will never directly contain nil
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1890 if the symbol is a local variable. */
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1891 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks))
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1892 safe_run_hooks (Qpost_command_hook);
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1893
25657
2e9b26a83bfa (command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
1894 /* If displaying a message, resize the echo area window to fit
2e9b26a83bfa (command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
1895 that message's size exactly. */
2e9b26a83bfa (command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
1896 if (!NILP (echo_area_buffer[0]))
38629
61636b8db232 (command_loop_1): Fix spelling of
Gerd Moellmann <gerd@gnu.org>
parents: 38602
diff changeset
1897 resize_echo_area_exactly ();
25657
2e9b26a83bfa (command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
1898
20783
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1899 if (!NILP (Vdeferred_action_list))
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1900 safe_run_hooks (Qdeferred_action_function);
bfc5d6ebba37 (command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents: 20702
diff changeset
1901
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1902 /* If there is a prefix argument,
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
1903 1) We don't want Vlast_command to be ``universal-argument''
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
1904 (that would be dumb), so don't set Vlast_command,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1905 2) we want to leave echoing on so that the prefix will be
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1906 echoed as part of this key sequence, so don't call
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1907 cancel_echoing, and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1908 3) we want to leave this_command_key_count non-zero, so that
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1909 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
1910 not echo it a second time.
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1911
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1912 If the command didn't actually create a prefix arg,
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1913 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
1914 then the above doesn't apply. */
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
1915 if (NILP (current_kboard->Vprefix_arg) || CONSP (last_command_char))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1916 {
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1917 current_kboard->Vlast_command = Vthis_command;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
1918 current_kboard->Vreal_last_command = real_this_command;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1919 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1920 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
1921 this_command_key_count_reset = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
1922 this_single_command_key_start = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1923 }
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1924
6208
db4139d43f8a (command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents: 6204
diff changeset
1925 if (!NILP (current_buffer->mark_active) && !NILP (Vrun_hooks))
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1926 {
57999
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1927 /* Setting transient-mark-mode to `only' is a way of
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1928 turning it on for just one command. */
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1929
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1930 if (EQ (Vtransient_mark_mode, Qidentity))
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1931 Vtransient_mark_mode = Qnil;
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1932 if (EQ (Vtransient_mark_mode, Qonly))
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1933 Vtransient_mark_mode = Qidentity;
3166194a373f (command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents: 57950
diff changeset
1934
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1935 if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode))
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1936 {
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1937 /* We could also call `deactivate'mark'. */
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1938 if (EQ (Vtransient_mark_mode, Qlambda))
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1939 Vtransient_mark_mode = Qnil;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1940 else
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1941 {
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1942 current_buffer->mark_active = Qnil;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1943 call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
1944 }
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1945 }
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1946 else if (current_buffer != prev_buffer || MODIFF != prev_modiff)
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1947 call1 (Vrun_hooks, intern ("activate-mark-hook"));
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1948 }
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1949
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1950 finalize:
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1951
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1952 if (current_buffer == prev_buffer
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1953 && last_point_position != PT
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1954 && NILP (Vdisable_point_adjustment)
49010
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1955 && NILP (Vglobal_disable_point_adjustment)
ce422542bd8d (command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents: 48508
diff changeset
1956 && !already_adjusted)
49408
7e6cf4411cd4 (adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents: 49322
diff changeset
1957 adjust_point_for_property (last_point_position, MODIFF != prev_modiff);
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1958
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1959 /* Install chars successfully executed in kbd macro. */
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1960
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1961 if (!NILP (current_kboard->defining_kbd_macro)
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
1962 && NILP (current_kboard->Vprefix_arg))
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1963 finalize_kbd_macro_chars ();
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1964
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
1965 #ifdef MULTI_KBOARD
10827
4dfd3634b155 (unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10820
diff changeset
1966 if (!was_locked)
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
1967 any_kboard_state ();
10626
616345f74278 (cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents: 10602
diff changeset
1968 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1969 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1970 }
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
1971
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1972 extern Lisp_Object Qcomposition, Qdisplay;
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1973
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1974 /* Adjust point to a boundary of a region that has such a property
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1975 that should be treated intangible. For the moment, we check
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1976 `composition', `display' and `invisible' properties.
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1977 LAST_PT is the last position of point. */
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1978
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
1979 extern Lisp_Object Qafter_string, Qbefore_string;
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
1980 extern Lisp_Object get_pos_property P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
1981
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1982 static void
49408
7e6cf4411cd4 (adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents: 49322
diff changeset
1983 adjust_point_for_property (last_pt, modified)
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1984 int last_pt;
49408
7e6cf4411cd4 (adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents: 49322
diff changeset
1985 int modified;
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1986 {
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1987 int beg, end;
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1988 Lisp_Object val, overlay, tmp;
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1989 int check_composition = 1, check_display = 1, check_invisible = 1;
50941
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
1990 int orig_pt = PT;
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
1991
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
1992 /* FIXME: cycling is probably not necessary because these properties
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
1993 can't be usefully combined anyway. */
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1994 while (check_composition || check_display || check_invisible)
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1995 {
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1996 if (check_composition
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
1997 && PT > BEGV && PT < ZV
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1998 && get_property_and_range (PT, Qcomposition, &val, &beg, &end, Qnil)
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
1999 && COMPOSITION_VALID_P (beg, end, val)
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2000 && beg < PT /* && end > PT <- It's always the case. */
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2001 && (last_pt <= beg || last_pt >= end))
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2002 {
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2003 xassert (end > PT);
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2004 SET_PT (PT < last_pt ? beg : end);
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2005 check_display = check_invisible = 1;
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2006 }
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2007 check_composition = 0;
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2008 if (check_display
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2009 && PT > BEGV && PT < ZV
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2010 && !NILP (val = get_char_property_and_overlay
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2011 (make_number (PT), Qdisplay, Qnil, &overlay))
29816
6863a9ae42d6 (adjust_point_for_property): Check if display
Gerd Moellmann <gerd@gnu.org>
parents: 29729
diff changeset
2012 && display_prop_intangible_p (val)
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2013 && (!OVERLAYP (overlay)
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2014 ? get_property_and_range (PT, Qdisplay, &val, &beg, &end, Qnil)
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2015 : (beg = OVERLAY_POSITION (OVERLAY_START (overlay)),
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2016 end = OVERLAY_POSITION (OVERLAY_END (overlay))))
62421
68eb1c8b3f80 (adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents: 62284
diff changeset
2017 && (beg < PT /* && end > PT <- It's always the case. */
68eb1c8b3f80 (adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents: 62284
diff changeset
2018 || (beg <= PT && STRINGP (val) && SCHARS (val) == 0)))
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2019 {
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2020 xassert (end > PT);
62421
68eb1c8b3f80 (adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents: 62284
diff changeset
2021 SET_PT (PT < last_pt
68eb1c8b3f80 (adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents: 62284
diff changeset
2022 ? (STRINGP (val) && SCHARS (val) == 0 ? beg - 1 : beg)
68eb1c8b3f80 (adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents: 62284
diff changeset
2023 : end);
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2024 check_composition = check_invisible = 1;
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2025 }
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2026 check_display = 0;
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2027 if (check_invisible && PT > BEGV && PT < ZV)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2028 {
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2029 int inv, ellipsis = 0;
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2030 beg = end = PT;
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2031
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2032 /* Find boundaries `beg' and `end' of the invisible area, if any. */
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2033 while (end < ZV
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2034 && !NILP (val = get_char_property_and_overlay
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2035 (make_number (end), Qinvisible, Qnil, &overlay))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2036 && (inv = TEXT_PROP_MEANS_INVISIBLE (val)))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2037 {
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2038 ellipsis = ellipsis || inv > 1
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2039 || (OVERLAYP (overlay)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2040 && (!NILP (Foverlay_get (overlay, Qafter_string))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2041 || !NILP (Foverlay_get (overlay, Qbefore_string))));
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2042 tmp = Fnext_single_char_property_change
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2043 (make_number (end), Qinvisible, Qnil, Qnil);
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2044 end = NATNUMP (tmp) ? XFASTINT (tmp) : ZV;
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2045 }
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2046 while (beg > BEGV
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2047 && !NILP (val = get_char_property_and_overlay
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2048 (make_number (beg - 1), Qinvisible, Qnil, &overlay))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2049 && (inv = TEXT_PROP_MEANS_INVISIBLE (val)))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2050 {
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2051 ellipsis = ellipsis || inv > 1
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2052 || (OVERLAYP (overlay)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2053 && (!NILP (Foverlay_get (overlay, Qafter_string))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2054 || !NILP (Foverlay_get (overlay, Qbefore_string))));
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2055 tmp = Fprevious_single_char_property_change
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2056 (make_number (beg), Qinvisible, Qnil, Qnil);
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2057 beg = NATNUMP (tmp) ? XFASTINT (tmp) : BEGV;
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2058 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2059
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2060 /* Move away from the inside area. */
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2061 if (beg < PT && end > PT)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2062 {
50941
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2063 SET_PT ((orig_pt == PT && (last_pt < beg || last_pt > end))
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2064 /* We haven't moved yet (so we don't need to fear
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2065 infinite-looping) and we were outside the range
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2066 before (so either end of the range still corresponds
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2067 to a move in the right direction): pretend we moved
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2068 less than we actually did, so that we still have
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2069 more freedom below in choosing which end of the range
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2070 to go to. */
50949
620ed035578e (adjust_point_for_property): Be more careful about termination.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50944
diff changeset
2071 ? (orig_pt = -1, PT < last_pt ? end : beg)
50941
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2072 /* We either have moved already or the last point
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2073 was already in the range: we don't get to choose
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2074 which end of the range we have to go to. */
5490960951c1 (adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50817
diff changeset
2075 : (PT < last_pt ? beg : end));
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2076 check_composition = check_display = 1;
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2077 }
54181
6c578d781772 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents: 54163
diff changeset
2078 #if 0 /* This assertion isn't correct, because SET_PT may end up setting
6c578d781772 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents: 54163
diff changeset
2079 the point to something other than its argument, due to
6c578d781772 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents: 54163
diff changeset
2080 point-motion hooks, intangibility, etc. */
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2081 xassert (PT == beg || PT == end);
54181
6c578d781772 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents: 54163
diff changeset
2082 #endif
6c578d781772 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents: 54163
diff changeset
2083
49408
7e6cf4411cd4 (adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents: 49322
diff changeset
2084 /* Pretend the area doesn't exist if the buffer is not
7e6cf4411cd4 (adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents: 49322
diff changeset
2085 modified. */
7e6cf4411cd4 (adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents: 49322
diff changeset
2086 if (!modified && !ellipsis && beg < end)
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2087 {
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2088 if (last_pt == beg && PT == end && end < ZV)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2089 (check_composition = check_display = 1, SET_PT (end + 1));
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2090 else if (last_pt == end && PT == beg && beg > BEGV)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2091 (check_composition = check_display = 1, SET_PT (beg - 1));
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2092 else if (PT == ((PT < last_pt) ? beg : end))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2093 /* We've already moved as far as we can. Trying to go
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2094 to the other end would mean moving backwards and thus
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2095 could lead to an infinite loop. */
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2096 ;
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2097 else if (val = get_pos_property (make_number (PT),
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2098 Qinvisible, Qnil),
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2099 TEXT_PROP_MEANS_INVISIBLE (val)
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2100 && (val = get_pos_property
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2101 (make_number (PT == beg ? end : beg),
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2102 Qinvisible, Qnil),
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2103 !TEXT_PROP_MEANS_INVISIBLE (val)))
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2104 (check_composition = check_display = 1,
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2105 SET_PT (PT == beg ? end : beg));
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
2106 }
48131
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2107 }
8da4ccdeb8e0 (adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48086
diff changeset
2108 check_invisible = 0;
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2109 }
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2110 }
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
2111
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2112 /* Subroutine for safe_run_hooks: run the hook HOOK. */
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2113
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2114 static Lisp_Object
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2115 safe_run_hooks_1 (hook)
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2116 Lisp_Object hook;
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2117 {
72168
4c683d3ba427 (safe_run_hooks_1): Don't crash if Vrun_hooks is nil.
Richard M. Stallman <rms@gnu.org>
parents: 72131
diff changeset
2118 if (NILP (Vrun_hooks))
4c683d3ba427 (safe_run_hooks_1): Don't crash if Vrun_hooks is nil.
Richard M. Stallman <rms@gnu.org>
parents: 72131
diff changeset
2119 return Qnil;
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2120 return call1 (Vrun_hooks, Vinhibit_quit);
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2121 }
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2122
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2123 /* Subroutine for safe_run_hooks: handle an error by clearing out the hook. */
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2124
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2125 static Lisp_Object
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2126 safe_run_hooks_error (data)
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2127 Lisp_Object data;
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2128 {
50817
62632c0ed6ea (safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50805
diff changeset
2129 Lisp_Object args[3];
62632c0ed6ea (safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50805
diff changeset
2130 args[0] = build_string ("Error in %s: %s");
62632c0ed6ea (safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50805
diff changeset
2131 args[1] = Vinhibit_quit;
62632c0ed6ea (safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50805
diff changeset
2132 args[2] = data;
62632c0ed6ea (safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50805
diff changeset
2133 Fmessage (3, args);
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
2134 return Fset (Vinhibit_quit, Qnil);
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2135 }
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2136
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2137 /* If we get an error while running the hook, cause the hook variable
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2138 to be nil. Also inhibit quits, so that C-g won't cause the hook
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2139 to mysteriously evaporate. */
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2140
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
2141 void
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2142 safe_run_hooks (hook)
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
2143 Lisp_Object hook;
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2144 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
2145 int count = SPECPDL_INDEX ();
11540
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2146 specbind (Qinhibit_quit, hook);
b8b8a11a1aed (safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents: 11484
diff changeset
2147
14219
22324381ef74 (safe_run_hooks): Use Qt, not Qerror, to avoid running the debugger.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
2148 internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error);
7428
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2149
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2150 unbind_to (count, Qnil);
e14086d8ba6f (safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents: 7427
diff changeset
2151 }
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2152
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2153
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2154 /* Number of seconds between polling for input. This is a Lisp
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2155 variable that can be bound. */
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2156
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43496
diff changeset
2157 EMACS_INT polling_period;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2158
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3538
diff changeset
2159 /* Nonzero means polling for input is temporarily suppressed. */
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2160
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2161 int poll_suppress_count;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2162
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2163 /* Asynchronous timer for polling. */
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2164
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2165 struct atimer *poll_timer;
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2166
8653
07cc798f5cab (polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 8589
diff changeset
2167
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2168 #ifdef POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2169
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2170 /* Poll for input, so what we catch a C-g if it comes in. This
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2171 function is called from x_make_frame_visible, see comment
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2172 there. */
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2173
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2174 void
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2175 poll_for_input_1 ()
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2176 {
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
2177 if (interrupt_input_blocked == 0
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
2178 && !waiting_for_input)
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
2179 read_avail_input (0);
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2180 }
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2181
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2182 /* Timer callback function for poll_timer. TIMER is equal to
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2183 poll_timer. */
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2184
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2185 void
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2186 poll_for_input (timer)
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2187 struct atimer *timer;
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2188 {
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2189 if (poll_suppress_count == 0)
61496
b06b2e541697 (poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61419
diff changeset
2190 #ifdef SYNC_INPUT
b06b2e541697 (poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61419
diff changeset
2191 interrupt_input_pending = 1;
b06b2e541697 (poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61419
diff changeset
2192 #else
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2193 poll_for_input_1 ();
61496
b06b2e541697 (poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61419
diff changeset
2194 #endif
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2195 }
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2196
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2197 #endif /* POLL_FOR_INPUT */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2198
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2199 /* Begin signals to poll for input, if they are appropriate.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2200 This function is called unconditionally from various places. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2201
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
2202 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2203 start_polling ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2204 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2205 #ifdef POLL_FOR_INPUT
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
2206 if (read_socket_hook && !interrupt_input)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2207 {
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2208 /* Turn alarm handling on unconditionally. It might have
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2209 been turned off in process.c. */
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2210 turn_on_atimers (1);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2211
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2212 /* If poll timer doesn't exist, are we need one with
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2213 a different interval, start a new one. */
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2214 if (poll_timer == NULL
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2215 || EMACS_SECS (poll_timer->interval) != polling_period)
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2216 {
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2217 EMACS_TIME interval;
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2218
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2219 if (poll_timer)
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2220 cancel_atimer (poll_timer);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2221
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2222 EMACS_SET_SECS_USECS (interval, polling_period, 0);
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2223 poll_timer = start_atimer (ATIMER_CONTINUOUS, interval,
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2224 poll_for_input, NULL);
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2225 }
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2226
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2227 /* Let the timer's callback function poll for input
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2228 if this becomes zero. */
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2229 --poll_suppress_count;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2230 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2231 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2232 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2233
8673
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2234 /* Nonzero if we are using polling to handle input asynchronously. */
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2235
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2236 int
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2237 input_polling_used ()
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2238 {
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2239 #ifdef POLL_FOR_INPUT
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2240 return read_socket_hook && !interrupt_input;
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2241 #else
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2242 return 0;
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2243 #endif
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2244 }
6d1d308ff12d (input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8653
diff changeset
2245
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2246 /* Turn off polling. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2247
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
2248 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2249 stop_polling ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2250 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2251 #ifdef POLL_FOR_INPUT
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
2252 if (read_socket_hook && !interrupt_input)
27431
92e0ea1917dd (toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27275
diff changeset
2253 ++poll_suppress_count;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2254 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2255 }
4475
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2256
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2257 /* Set the value of poll_suppress_count to COUNT
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2258 and start or stop polling accordingly. */
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2259
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2260 void
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2261 set_poll_suppress_count (count)
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2262 int count;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2263 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2264 #ifdef POLL_FOR_INPUT
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2265 if (count == 0 && poll_suppress_count != 0)
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2266 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2267 poll_suppress_count = 1;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2268 start_polling ();
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2269 }
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2270 else if (count != 0 && poll_suppress_count == 0)
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2271 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2272 stop_polling ();
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2273 }
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2274 poll_suppress_count = count;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2275 #endif
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
2276 }
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2277
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2278 /* Bind polling_period to a value at least N.
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2279 But don't decrease it. */
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2280
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
2281 void
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2282 bind_polling_period (n)
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2283 int n;
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2284 {
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2285 #ifdef POLL_FOR_INPUT
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2286 int new = polling_period;
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2287
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2288 if (n > new)
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2289 new = n;
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2290
27668
be97ea826e95 (bind_polling_period): Stop all timers except
Gerd Moellmann <gerd@gnu.org>
parents: 27431
diff changeset
2291 stop_other_atimers (poll_timer);
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2292 stop_polling ();
7502
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2293 specbind (Qpolling_period, make_number (new));
30ce667c8026 (bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7500
diff changeset
2294 /* Start a new alarm with the new period. */
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2295 start_polling ();
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2296 #endif
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
2297 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2298
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
2299 /* Apply the control modifier to CHARACTER. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
2300
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2301 int
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2302 make_ctrl_char (c)
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2303 int c;
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2304 {
2954
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2305 /* Save the upper bits here. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2306 int upper = c & ~0177;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2307
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2308 c &= 0177;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2309
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2310 /* Everything in the columns containing the upper-case letters
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2311 denotes a control character. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2312 if (c >= 0100 && c < 0140)
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2313 {
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2314 int oc = c;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2315 c &= ~0140;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2316 /* Set the shift modifier for a control char
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2317 made from a shifted letter. But only for letters! */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2318 if (oc >= 'A' && oc <= 'Z')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2319 c |= shift_modifier;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2320 }
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2321
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2322 /* The lower-case letters denote control characters too. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2323 else if (c >= 'a' && c <= 'z')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2324 c &= ~0140;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2325
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2326 /* Include the bits for control and shift
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2327 only if the basic ASCII code can't indicate them. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2328 else if (c >= ' ')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2329 c |= ctrl_modifier;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2330
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2331 /* Replace the high bits. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2332 c |= (upper & ~ctrl_modifier);
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2333
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2334 return c;
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2335 }
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2336
61419
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2337 /* Display the help-echo property of the character after the mouse pointer.
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2338 Either show it in the echo area, or call show-help-function to display
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2339 it by other means (maybe in a tooltip).
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2340
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2341 If HELP is nil, that means clear the previous help echo.
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2342
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2343 If HELP is a string, display that string. If HELP is a function,
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2344 call it with OBJECT and POS as arguments; the function should
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2345 return a help string or nil for none. For all other types of HELP,
662ca833c8e0 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 61163
diff changeset
2346 evaluate it to obtain a string.
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2347
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2348 WINDOW is the window in which the help was generated, if any.
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2349 It is nil if not in a window.
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2350
30368
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2351 If OBJECT is a buffer, POS is the position in the buffer where the
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2352 `help-echo' text property was found.
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2353
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2354 If OBJECT is an overlay, that overlay has a `help-echo' property,
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2355 and POS is the position in the overlay's buffer under the mouse.
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2356
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2357 If OBJECT is a string (an overlay string or a string displayed with
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2358 the `display' property). POS is the position in that string under
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
2359 the mouse.
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2360
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
2361 OK_TO_OVERWRITE_KEYSTROKE_ECHO non-zero means it's okay if the help
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2362 echo overwrites a keystroke echo currently displayed in the echo
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2363 area.
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2364
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2365 Note: this function may only be called with HELP nil or a string
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2366 from X code running asynchronously. */
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2367
30051
70d9d51a864c (show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29816
diff changeset
2368 void
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2369 show_help_echo (help, window, object, pos, ok_to_overwrite_keystroke_echo)
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2370 Lisp_Object help, window, object, pos;
30142
5bfb859adb13 (show_help_echo): Accept additional parameter
Eli Zaretskii <eliz@gnu.org>
parents: 30051
diff changeset
2371 int ok_to_overwrite_keystroke_echo;
30051
70d9d51a864c (show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29816
diff changeset
2372 {
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2373 if (!NILP (help) && !STRINGP (help))
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2374 {
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2375 if (FUNCTIONP (help))
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2376 {
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2377 Lisp_Object args[4];
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2378 args[0] = help;
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2379 args[1] = window;
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2380 args[2] = object;
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
2381 args[3] = pos;
32174
13415f4f854a (Frecursive_edit): Make sure redisplay can happen.
Gerd Moellmann <gerd@gnu.org>
parents: 32140
diff changeset
2382 help = safe_call (4, args);
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2383 }
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2384 else
32174
13415f4f854a (Frecursive_edit): Make sure redisplay can happen.
Gerd Moellmann <gerd@gnu.org>
parents: 32140
diff changeset
2385 help = safe_eval (help);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2386
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2387 if (!STRINGP (help))
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2388 return;
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2389 }
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2390
61163
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
2391 #ifdef HAVE_MOUSE
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
2392 if (!noninteractive && STRINGP (help))
72460
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2393 {
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2394 /* The mouse-fixup-help-message Lisp function can call
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2395 mouse_position_hook, which resets the mouse_moved flags.
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2396 This causes trouble if we are trying to read a mouse motion
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2397 event (i.e., if we are inside a `track-mouse' form), so we
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2398 restore the mouse_moved flag. */
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2399 FRAME_PTR f = NILP (do_mouse_tracking) ? NULL : some_mouse_moved ();
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2400 help = call1 (Qmouse_fixup_help_message, help);
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2401 if (f)
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2402 f->mouse_moved = 1;
dd4d02e66de4 * keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents: 72445
diff changeset
2403 }
61163
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
2404 #endif
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
2405
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2406 if (STRINGP (help) || NILP (help))
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2407 {
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2408 if (!NILP (Vshow_help_function))
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2409 call1 (Vshow_help_function, help);
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2410 else if (/* Don't overwrite minibuffer contents. */
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2411 !MINI_WINDOW_P (XWINDOW (selected_window))
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2412 /* Don't overwrite a keystroke echo. */
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2413 && (NILP (echo_message_buffer)
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2414 || ok_to_overwrite_keystroke_echo)
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2415 /* Don't overwrite a prompt. */
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2416 && !cursor_in_echo_area)
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2417 {
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2418 if (STRINGP (help))
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2419 {
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46181
diff changeset
2420 int count = SPECPDL_INDEX ();
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2421
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2422 if (!help_echo_showing_p)
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2423 Vpre_help_message = current_message ();
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2424
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2425 specbind (Qmessage_truncate_lines, Qt);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
2426 message3_nolog (help, SBYTES (help),
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
2427 STRING_MULTIBYTE (help));
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2428 unbind_to (count, Qnil);
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2429 }
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2430 else if (STRINGP (Vpre_help_message))
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2431 {
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2432 message3_nolog (Vpre_help_message,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
2433 SBYTES (Vpre_help_message),
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2434 STRING_MULTIBYTE (Vpre_help_message));
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2435 Vpre_help_message = Qnil;
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2436 }
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2437 else
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
2438 message (0);
31877
517180d8eccd (show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents: 31697
diff changeset
2439 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2440
31877
517180d8eccd (show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents: 31697
diff changeset
2441 help_echo_showing_p = STRINGP (help);
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
2442 }
30051
70d9d51a864c (show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29816
diff changeset
2443 }
70d9d51a864c (show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29816
diff changeset
2444
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2445
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
2446
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2447 /* Input of single characters from keyboard */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2448
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2449 Lisp_Object print_help ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2450 static Lisp_Object kbd_buffer_get_event ();
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2451 static void record_char ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2452
76435
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2453 static Lisp_Object help_form_saved_window_configs;
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2454 static Lisp_Object
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2455 read_char_help_form_unwind (arg)
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2456 {
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2457 Lisp_Object window_config = XCAR (help_form_saved_window_configs);
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2458 help_form_saved_window_configs = XCDR (help_form_saved_window_configs);
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2459 if (!NILP (window_config))
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2460 Fset_window_configuration (window_config);
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2461 return Qnil;
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2462 }
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
2463
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2464 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2465 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
2466 #endif
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2467
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2468 #define STOP_POLLING \
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2469 do { if (! polling_stopped_here) stop_polling (); \
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2470 polling_stopped_here = 1; } while (0)
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2471
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2472 #define RESUME_POLLING \
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2473 do { if (polling_stopped_here) start_polling (); \
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2474 polling_stopped_here = 0; } while (0)
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2475
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2476 /* read a character from the keyboard; call the redisplay if needed */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2477 /* commandflag 0 means do not do auto-saving, but do do redisplay.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2478 -1 means do not do redisplay, but do do autosaving.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2479 1 means do both. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2480
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2481 /* 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
2482 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
2483
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2484 PREV_EVENT is the previous input event, or nil if we are reading
23065
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
2485 the first event of a key sequence (or not reading a key sequence).
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
2486 If PREV_EVENT is t, that is a "magic" value that says
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
2487 not to run input methods, but in other respects to act as if
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
2488 not reading a key sequence.
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2489
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
2490 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
2491 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
2492 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
2493
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2494 If END_TIME is non-null, it is a pointer to an EMACS_TIME
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2495 specifying the maximum time to wait until. If no input arrives by
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2496 that time, stop waiting and return nil.
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2497
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
2498 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
2499
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2500 Lisp_Object
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2501 read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu, end_time)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2502 int commandflag;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2503 int nmaps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2504 Lisp_Object *maps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2505 Lisp_Object prev_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2506 int *used_mouse_menu;
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2507 EMACS_TIME *end_time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2508 {
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
2509 volatile Lisp_Object c;
72276
b3b5d904f956 * keyboard.c (read_char): Rebalance specpdl after receiving jump.
Chong Yidong <cyd@stupidchicken.com>
parents: 72168
diff changeset
2510 int count, jmpcount;
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2511 jmp_buf local_getcjmp;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2512 jmp_buf save_jump;
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
2513 volatile int key_already_recorded = 0;
12476
5518def44198 (read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents: 12469
diff changeset
2514 Lisp_Object tem, save;
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
2515 volatile Lisp_Object previous_echo_area_message;
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
2516 volatile Lisp_Object also_record;
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
2517 volatile int reread;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
2518 struct gcpro gcpro1, gcpro2;
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2519 int polling_stopped_here = 0;
18886
c24b5da01b1f (Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents: 18778
diff changeset
2520
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
2521 also_record = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2522
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
2523 #if 0 /* This was commented out as part of fixing echo for C-u left. */
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
2524 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
2525 before_command_echo_length = echo_length ();
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
2526 #endif
18944
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
2527 c = Qnil;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
2528 previous_echo_area_message = Qnil;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
2529
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
2530 GCPRO2 (c, previous_echo_area_message);
18886
c24b5da01b1f (Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents: 18778
diff changeset
2531
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2532 retry:
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
2533
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2534 reread = 0;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2535 if (CONSP (Vunread_post_input_method_events))
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2536 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2537 c = XCAR (Vunread_post_input_method_events);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2538 Vunread_post_input_method_events
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2539 = XCDR (Vunread_post_input_method_events);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2540
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2541 /* Undo what read_char_x_menu_prompt did when it unread
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2542 additional keys returned by Fx_popup_menu. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2543 if (CONSP (c)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2544 && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2545 && NILP (XCDR (c)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2546 c = XCAR (c);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2547
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2548 reread = 1;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2549 goto reread_first;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2550 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2551
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2552 if (unread_command_char != -1)
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2553 {
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2554 XSETINT (c, unread_command_char);
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2555 unread_command_char = -1;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2556
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2557 reread = 1;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2558 goto reread_first;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2559 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2560
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
2561 if (CONSP (Vunread_command_events))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2562 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2563 c = XCAR (Vunread_command_events);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2564 Vunread_command_events = XCDR (Vunread_command_events);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2565
73463
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2566 reread = 1;
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2567
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2568 /* Undo what sit-for did when it unread additional keys
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2569 inside universal-argument. */
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2570
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2571 if (CONSP (c)
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2572 && EQ (XCAR (c), Qt))
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2573 {
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2574 reread = 0;
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2575 c = XCDR (c);
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2576 }
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
2577
13638
eae7f6d657be (read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents: 13582
diff changeset
2578 /* 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
2579 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
2580 if (CONSP (c)
38674
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
2581 && EQ (XCDR (c), Qdisabled)
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
2582 && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c))))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2583 c = XCAR (c);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2584
36238
ab4e575401d9 (read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents: 36196
diff changeset
2585 /* If the queued event is something that used the mouse,
ab4e575401d9 (read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents: 36196
diff changeset
2586 set used_mouse_menu accordingly. */
ab4e575401d9 (read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents: 36196
diff changeset
2587 if (used_mouse_menu
ab4e575401d9 (read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents: 36196
diff changeset
2588 && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar)))
ab4e575401d9 (read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents: 36196
diff changeset
2589 *used_mouse_menu = 1;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2590
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2591 goto reread_for_input_method;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2592 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2593
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2594 if (CONSP (Vunread_input_method_events))
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2595 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2596 c = XCAR (Vunread_input_method_events);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2597 Vunread_input_method_events = XCDR (Vunread_input_method_events);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2598
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2599 /* Undo what read_char_x_menu_prompt did when it unread
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2600 additional keys returned by Fx_popup_menu. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2601 if (CONSP (c)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2602 && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2603 && NILP (XCDR (c)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2604 c = XCAR (c);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2605 reread = 1;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2606 goto reread_for_input_method;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2607 }
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2608
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
2609 this_command_key_count_reset = 0;
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
2610
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
2611 if (!NILP (Vexecuting_kbd_macro))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2612 {
1239
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
2613 /* 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
2614 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
2615 remain unchanged.
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
2616
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
2617 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
2618 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
2619 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
2620 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
2621 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
2622 selected. */
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2623 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
2624
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
2625 /* 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
2626 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
2627 to force an early exit. */
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
2628 if (EQ (Vexecuting_kbd_macro, Qt)
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
2629 || executing_kbd_macro_index >= XFASTINT (Flength (Vexecuting_kbd_macro)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2630 {
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
2631 XSETINT (c, -1);
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2632 goto exit;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2633 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2634
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
2635 c = Faref (Vexecuting_kbd_macro, make_number (executing_kbd_macro_index));
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
2636 if (STRINGP (Vexecuting_kbd_macro)
60653
daacc07136fb (read_char): Only do the 7-bit-meta -> 27-bit-meta
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60556
diff changeset
2637 && (XINT (c) & 0x80) && (XUINT (c) <= 0xff))
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
2638 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
2639
62024
4f7e1a56469e (executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents: 61982
diff changeset
2640 executing_kbd_macro_index++;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2641
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2642 goto from_macro;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2643 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2644
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2645 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
2646 {
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2647 c = unread_switch_frame;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2648 unread_switch_frame = Qnil;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2649
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2650 /* This event should make it into this_command_keys, and get echoed
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
2651 again, so we do not set `reread'. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
2652 goto reread_first;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2653 }
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2654
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2655 /* if redisplay was requested */
18501
37f4c7aeb5a8 (read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents: 18405
diff changeset
2656 if (commandflag >= 0)
37f4c7aeb5a8 (read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents: 18405
diff changeset
2657 {
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2658 /* If there is pending input, process any events which are not
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2659 user-visible, such as X selection_request events. */
18501
37f4c7aeb5a8 (read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents: 18405
diff changeset
2660 if (input_pending
37f4c7aeb5a8 (read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents: 18405
diff changeset
2661 || detect_input_pending_run_timers (0))
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2662 swallow_events (0); /* may clear input_pending */
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2663
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2664 /* Redisplay if no pending input. */
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2665 while (!input_pending)
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2666 {
31877
517180d8eccd (show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents: 31697
diff changeset
2667 if (help_echo_showing_p && !EQ (selected_window, minibuf_window))
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 35255
diff changeset
2668 redisplay_preserve_echo_area (5);
31877
517180d8eccd (show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents: 31697
diff changeset
2669 else
517180d8eccd (show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents: 31697
diff changeset
2670 redisplay ();
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2671
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2672 if (!input_pending)
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2673 /* Normal case: no input arrived during redisplay. */
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2674 break;
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2675
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2676 /* Input arrived and pre-empted redisplay.
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2677 Process any events which are not user-visible. */
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2678 swallow_events (0);
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2679 /* If that cleared input_pending, try again to redisplay. */
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
2680 }
18501
37f4c7aeb5a8 (read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents: 18405
diff changeset
2681 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2682
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2683 /* Message turns off echoing unless more keystrokes turn it on again.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2684
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2685 The code in 20.x for the condition was
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2686
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2687 1. echo_area_glyphs && *echo_area_glyphs
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2688 2. && echo_area_glyphs != current_kboard->echobuf
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2689 3. && ok_to_echo_at_next_pause != echo_area_glyphs
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2690
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2691 (1) means there's a current message displayed
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2692
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2693 (2) means it's not the message from echoing from the current
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2694 kboard.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2695
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2696 (3) There's only one place in 20.x where ok_to_echo_at_next_pause
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2697 is set to a non-null value. This is done in read_char and it is
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2698 set to echo_area_glyphs after a call to echo_char. That means
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2699 ok_to_echo_at_next_pause is either null or
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2700 current_kboard->echobuf with the appropriate current_kboard at
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2701 that time.
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2702
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2703 So, condition (3) means in clear text ok_to_echo_at_next_pause
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2704 must be either null, or the current message isn't from echoing at
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2705 all, or it's from echoing from a different kboard than the
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2706 current one. */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2707
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
2708 if (/* There currently is something in the echo area. */
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2709 !NILP (echo_area_buffer[0])
28672
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2710 && (/* And it's either not from echoing. */
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2711 !EQ (echo_area_buffer[0], echo_message_buffer)
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2712 /* Or it's an echo from a different kboard. */
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2713 || echo_kboard != current_kboard
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2714 /* Or we explicitly allow overwriting whatever there is. */
4cb794d0027e (echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 28507
diff changeset
2715 || ok_to_echo_at_next_pause == NULL))
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
2716 cancel_echoing ();
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2717 else
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2718 echo_dash ();
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2719
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2720 /* 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
2721 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
2722 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
2723 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
2724 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
2725 c = Qnil;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2726 if (nmaps > 0 && INTERACTIVE
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2727 && !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
2728 /* 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
2729 && NILP (Vunread_command_events)
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2730 && unread_command_char < 0
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2731 && !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
2732 {
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2733 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
2734 if (! NILP (c))
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2735 {
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2736 key_already_recorded = 1;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2737 goto non_reread_1;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2738 }
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2739 }
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2740
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2741 /* 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
2742 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
2743 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
2744 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
2745 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
2746
72276
b3b5d904f956 * keyboard.c (read_char): Rebalance specpdl after receiving jump.
Chong Yidong <cyd@stupidchicken.com>
parents: 72168
diff changeset
2747 jmpcount = SPECPDL_INDEX ();
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2748 if (_setjmp (local_getcjmp))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2749 {
63548
3a486bf74d99 (read_char): Call restore_getcjmp after jump occurs.
Richard M. Stallman <rms@gnu.org>
parents: 63185
diff changeset
2750 /* We must have saved the outer value of getcjmp here,
3a486bf74d99 (read_char): Call restore_getcjmp after jump occurs.
Richard M. Stallman <rms@gnu.org>
parents: 63185
diff changeset
2751 so restore it now. */
3a486bf74d99 (read_char): Call restore_getcjmp after jump occurs.
Richard M. Stallman <rms@gnu.org>
parents: 63185
diff changeset
2752 restore_getcjmp (save_jump);
72276
b3b5d904f956 * keyboard.c (read_char): Rebalance specpdl after receiving jump.
Chong Yidong <cyd@stupidchicken.com>
parents: 72168
diff changeset
2753 unbind_to (jmpcount, Qnil);
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
2754 XSETINT (c, quit_char);
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
2755 internal_last_event_frame = selected_frame;
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2756 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
2757 /* 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
2758 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
2759 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
2760 Vquit_flag = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2761
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2762 #ifdef MULTI_KBOARD
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2763 {
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
2764 KBOARD *kb = FRAME_KBOARD (XFRAME (selected_frame));
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2765 if (kb != current_kboard)
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2766 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2767 Lisp_Object link = kb->kbd_queue;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2768 /* 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
2769 if (single_kboard)
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2770 abort ();
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2771 if (CONSP (link))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2772 {
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2773 while (CONSP (XCDR (link)))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2774 link = XCDR (link);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2775 if (!NILP (XCDR (link)))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2776 abort ();
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2777 }
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2778 if (!CONSP (link))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2779 kb->kbd_queue = Fcons (c, Qnil);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2780 else
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
2781 XSETCDR (link, Fcons (c, Qnil));
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2782 kb->kbd_queue_has_data = 1;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2783 current_kboard = kb;
18944
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
2784 /* This is going to exit from read_char
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
2785 so we had better get rid of this frame's stuff. */
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
2786 UNGCPRO;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2787 longjmp (wrong_kboard_jmpbuf, 1);
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2788 }
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2789 }
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2790 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2791 goto non_reread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2792 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2793
72402
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
2794 /* Start idle timers if no time limit is supplied. We don't do it
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
2795 if a time limit is supplied to avoid an infinite recursion in the
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
2796 situation where an idle timer calls `sit-for'. */
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
2797
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
2798 if (!end_time)
72391
b2e68179adaa * keyboard.c (read_char): Don't reset idle timers if a time limit
Chong Yidong <cyd@stupidchicken.com>
parents: 72341
diff changeset
2799 timer_start_idle ();
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2800
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2801 /* If in middle of key sequence and minibuffer not active,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2802 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
2803
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
2804 if (minibuf_level == 0
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2805 && !end_time
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
2806 && !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
2807 && 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
2808 && ! noninteractive
27769
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
2809 && (FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes))
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
2810 && NILP (Fzerop (Vecho_keystrokes))
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2811 && (/* No message. */
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2812 NILP (echo_area_buffer[0])
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2813 /* Or empty message. */
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2814 || (BUF_BEG (XBUFFER (echo_area_buffer[0]))
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2815 == BUF_Z (XBUFFER (echo_area_buffer[0])))
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2816 /* Or already echoing from same kboard. */
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2817 || (echo_kboard && ok_to_echo_at_next_pause == echo_kboard)
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2818 /* Or not echoing before and echoing allowed. */
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
2819 || (!echo_kboard && ok_to_echo_at_next_pause)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2820 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2821 /* After a mouse event, start echoing right away.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2822 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
2823 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
2824 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
2825 echo_now ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2826 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2827 {
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
2828 Lisp_Object tem0;
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
2829
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2830 save_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2831 restore_getcjmp (local_getcjmp);
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
2832 tem0 = sit_for (Vecho_keystrokes, 1, 1);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2833 restore_getcjmp (save_jump);
18231
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2834 if (EQ (tem0, Qt)
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2835 && ! CONSP (Vunread_command_events))
14454
e5414c274414 (echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14453
diff changeset
2836 echo_now ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2837 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2838 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2839
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2840 /* Maybe auto save due to number of keystrokes. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2841
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2842 if (commandflag != 0
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2843 && auto_save_interval > 0
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
2844 && num_nonmacro_input_events - last_auto_save > max (auto_save_interval, 20)
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
2845 && !detect_input_pending_run_timers (0))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2846 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2847 Fdo_auto_save (Qnil, Qnil);
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
2848 /* 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
2849 redisplay ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2850 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2851
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
2852 /* 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
2853 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
2854 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
2855 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
2856
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
2857 if (nmaps > 0 && INTERACTIVE
11613
c4ef6460a9c9 (read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents: 11543
diff changeset
2858 && !NILP (prev_event)
c4ef6460a9c9 (read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents: 11543
diff changeset
2859 && EVENT_HAS_PARAMETERS (prev_event)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2860 && !EQ (XCAR (prev_event), Qmenu_bar)
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2861 && !EQ (XCAR (prev_event), Qtool_bar)
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
2862 /* 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
2863 && NILP (Vunread_command_events)
7396
3774d6d8a5ee (read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents: 7351
diff changeset
2864 && 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
2865 {
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
2866 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
2867
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
2868 /* Now that we have read an event, Emacs is not idle. */
72402
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
2869 if (!end_time)
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
2870 timer_stop_idle ();
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2871
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2872 goto exit;
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
2873 }
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2874
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2875 /* 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
2876
3920
81d29cf5b232 * keyboard.c (read_char): Don't do idle autosaves if we're not
Jim Blandy <jimb@redhat.com>
parents: 3887
diff changeset
2877 if (INTERACTIVE && NILP (c))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2878 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2879 int delay_level, buffer_size;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2880
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2881 /* 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
2882 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
2883 if (! MINI_WINDOW_P (XWINDOW (selected_window)))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2884 last_non_minibuf_size = Z - BEG;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2885 buffer_size = (last_non_minibuf_size >> 8) + 1;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2886 delay_level = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2887 while (buffer_size > 64)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2888 delay_level++, buffer_size -= buffer_size >> 2;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2889 if (delay_level < 4) delay_level = 4;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2890 /* 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
2891 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
2892
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2893 /* 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
2894 if (commandflag != 0
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
2895 && num_nonmacro_input_events > last_auto_save
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
2896 && INTEGERP (Vauto_save_timeout)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2897 && XINT (Vauto_save_timeout) > 0)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2898 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2899 Lisp_Object tem0;
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
2900 int timeout = delay_level * XFASTINT (Vauto_save_timeout) / 4;
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2901
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2902 save_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2903 restore_getcjmp (local_getcjmp);
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
2904 tem0 = sit_for (make_number (timeout), 1, 1);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2905 restore_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2906
18231
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2907 if (EQ (tem0, Qt)
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2908 && ! CONSP (Vunread_command_events))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2909 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2910 Fdo_auto_save (Qnil, Qnil);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2911
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2912 /* 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
2913 available, garbage collect if there has been enough
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2914 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
2915 if (!detect_input_pending_run_timers (0)
64614
482ea9d640ec (read_char): Test gc_cons_threshold.
Richard M. Stallman <rms@gnu.org>
parents: 64270
diff changeset
2916 && 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
2917 Fgarbage_collect ();
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2918
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
2919 redisplay ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2920 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2921 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
2922 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2923
18231
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2924 /* If this has become non-nil here, it has been set by a timer
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2925 or sentinel or filter. */
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2926 if (CONSP (Vunread_command_events))
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2927 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2928 c = XCAR (Vunread_command_events);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2929 Vunread_command_events = XCDR (Vunread_command_events);
18231
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2930 }
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
2931
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2932 /* 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
2933
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
2934 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
2935 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2936 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
2937 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2938 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
2939 abort ();
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2940 c = XCAR (current_kboard->kbd_queue);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2941 current_kboard->kbd_queue
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2942 = XCDR (current_kboard->kbd_queue);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2943 if (NILP (current_kboard->kbd_queue))
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2944 current_kboard->kbd_queue_has_data = 0;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
2945 input_pending = readable_events (0);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2946 if (EVENT_HAS_PARAMETERS (c)
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2947 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qswitch_frame))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
2948 internal_last_event_frame = XCAR (XCDR (c));
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
2949 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
2950 }
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2951 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2952
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
2953 #ifdef MULTI_KBOARD
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2954 /* 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
2955 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
2956 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
2957
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2958 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
2959 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
2960 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
2961 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
2962 if (NILP (c) && !single_kboard)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2963 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2964 KBOARD *kb;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2965 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
2966 if (kb->kbd_queue_has_data)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2967 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2968 current_kboard = kb;
18944
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
2969 /* This is going to exit from read_char
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
2970 so we had better get rid of this frame's stuff. */
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
2971 UNGCPRO;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2972 longjmp (wrong_kboard_jmpbuf, 1);
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2973 }
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2974 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2975 #endif
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
2976
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2977 wrong_kboard:
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2978
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
2979 STOP_POLLING;
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2980
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2981 /* 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
2982 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
2983 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
2984
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2985 if (NILP (c))
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2986 {
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2987 KBOARD *kb;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2988
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2989 if (end_time)
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2990 {
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2991 EMACS_TIME now;
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2992 EMACS_GET_TIME (now);
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2993 if (EMACS_TIME_GE (now, *end_time))
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2994 goto exit;
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2995 }
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
2996
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
2997 /* 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
2998 save_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
2999 restore_getcjmp (local_getcjmp);
72402
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
3000 if (!end_time)
72391
b2e68179adaa * keyboard.c (read_char): Don't reset idle timers if a time limit
Chong Yidong <cyd@stupidchicken.com>
parents: 72341
diff changeset
3001 timer_start_idle ();
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
3002 c = kbd_buffer_get_event (&kb, used_mouse_menu, end_time);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3003 restore_getcjmp (save_jump);
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3004
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3005 #ifdef MULTI_KBOARD
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3006 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
3007 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3008 Lisp_Object link = kb->kbd_queue;
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3009 if (CONSP (link))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3010 {
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3011 while (CONSP (XCDR (link)))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3012 link = XCDR (link);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3013 if (!NILP (XCDR (link)))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3014 abort ();
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3015 }
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3016 if (!CONSP (link))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3017 kb->kbd_queue = Fcons (c, Qnil);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3018 else
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
3019 XSETCDR (link, Fcons (c, Qnil));
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3020 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
3021 c = Qnil;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3022 if (single_kboard)
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3023 goto wrong_kboard;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3024 current_kboard = kb;
18944
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
3025 /* This is going to exit from read_char
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
3026 so we had better get rid of this frame's stuff. */
e7a1ad118598 (read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 18886
diff changeset
3027 UNGCPRO;
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3028 longjmp (wrong_kboard_jmpbuf, 1);
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3029 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
3030 #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
3031 }
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3032
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3033 /* 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
3034 if (noninteractive && INTEGERP (c) && XINT (c) < 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3035 Fkill_emacs (make_number (1));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3036
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
3037 if (INTEGERP (c))
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3038 {
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3039 /* Add in any extra modifiers, where appropriate. */
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3040 if ((extra_keyboard_modifiers & CHAR_CTL)
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3041 || ((extra_keyboard_modifiers & 0177) < ' '
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3042 && (extra_keyboard_modifiers & 0177) != 0))
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
3043 XSETINT (c, make_ctrl_char (XINT (c)));
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3044
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3045 /* Transfer any other modifier bits directly from
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
3046 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
3047 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
3048 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
3049 }
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
3050
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3051 non_reread:
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3052
72402
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
3053 if (!end_time)
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
3054 timer_stop_idle ();
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
3055 RESUME_POLLING;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3056
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3057 if (NILP (c))
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3058 {
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3059 if (commandflag >= 0
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
3060 && !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
3061 redisplay ();
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3062
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3063 goto wrong_kboard;
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3064 }
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3065
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3066 non_reread_1:
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3067
8569
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
3068 /* Buffer switch events are only for internal wakeups
18886
c24b5da01b1f (Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents: 18778
diff changeset
3069 so don't show them to the user.
c24b5da01b1f (Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents: 18778
diff changeset
3070 Also, don't record a key if we already did. */
c24b5da01b1f (Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents: 18778
diff changeset
3071 if (BUFFERP (c) || key_already_recorded)
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
3072 goto exit;
8994
818bddaf3e03 (cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents: 8938
diff changeset
3073
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3074 /* Process special events within read_char
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3075 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
3076 save = Vquit_flag;
5518def44198 (read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents: 12469
diff changeset
3077 Vquit_flag = Qnil;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32752
diff changeset
3078 tem = access_keymap (get_keymap (Vspecial_event_map, 0, 1), c, 0, 0, 1);
12476
5518def44198 (read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents: 12469
diff changeset
3079 Vquit_flag = save;
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3080
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3081 if (!NILP (tem))
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3082 {
14537
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
3083 int was_locked = single_kboard;
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
3084
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3085 last_input_char = c;
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
3086 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
3087
72402
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
3088 if (CONSP (c) && EQ (XCAR (c), Qselect_window) && !end_time)
44338
b6b565886e78 (read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents: 44300
diff changeset
3089 /* We stopped being idle for this event; undo that. This
b6b565886e78 (read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents: 44300
diff changeset
3090 prevents automatic window selection (under
44358
05ce431b76fb Fix comment.
Pavel Janík <Pavel@Janik.cz>
parents: 44353
diff changeset
3091 mouse_autoselect_window from acting as a real input event, for
44338
b6b565886e78 (read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents: 44300
diff changeset
3092 example banishing the mouse under mouse-avoidance-mode. */
57410
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
3093 timer_resume_idle ();
44338
b6b565886e78 (read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents: 44300
diff changeset
3094
14537
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
3095 /* 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
3096 if (!was_locked)
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
3097 any_kboard_state ();
60e0c134c055 (read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents: 14490
diff changeset
3098
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3099 goto retry;
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3100 }
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
3101
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3102 /* 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
3103 if (INTEGERP (c))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3104 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3105 /* 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
3106 if (XINT (c) == -1)
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
3107 goto exit;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3108
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
3109 if ((STRINGP (Vkeyboard_translate_table)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
3110 && SCHARS (Vkeyboard_translate_table) > (unsigned) XFASTINT (c))
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
3111 || (VECTORP (Vkeyboard_translate_table)
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
3112 && XVECTOR (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c))
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
3113 || (CHAR_TABLE_P (Vkeyboard_translate_table)
48146
b35ced393e6c (read_char): Always translate iff
Dave Love <fx@gnu.org>
parents: 48133
diff changeset
3114 && CHAR_VALID_P (XINT (c), 0)))
13246
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
3115 {
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
3116 Lisp_Object d;
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
3117 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
3118 /* 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
3119 if (!NILP (d))
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
3120 c = d;
47725e106652 (read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents: 13191
diff changeset
3121 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3122 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3123
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3124 /* 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
3125 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
3126 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
3127 if (EVENT_HAS_PARAMETERS (c)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
3128 && CONSP (XCDR (c))
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3129 && CONSP (EVENT_START (c))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
3130 && CONSP (XCDR (EVENT_START (c))))
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3131 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3132 Lisp_Object posn;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3133
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
3134 posn = POSN_POSN (EVENT_START (c));
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3135 /* Handle menu-bar events:
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3136 insert the dummy prefix event `menu-bar'. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
3137 if (EQ (posn, Qmenu_bar) || EQ (posn, Qtool_bar))
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3138 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3139 /* Change menu-bar to (menu-bar) as the event "position". */
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
3140 POSN_SET_POSN (EVENT_START (c), Fcons (posn, Qnil));
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3141
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3142 also_record = c;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3143 Vunread_command_events = Fcons (c, Vunread_command_events);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3144 c = posn;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3145 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3146 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3147
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3148 /* Store these characters into recent_keys, the dribble file if any,
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3149 and the keyboard macro being defined, if any. */
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3150 record_char (c);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3151 if (! NILP (also_record))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3152 record_char (also_record);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3153
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3154 /* Wipe the echo area.
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3155 But first, if we are about to use an input method,
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3156 save the echo area contents for it to refer to. */
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3157 if (INTEGERP (c)
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3158 && ! NILP (Vinput_method_function)
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3159 && (unsigned) XINT (c) >= ' '
29099
a72f4aba9f93 (read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents: 28871
diff changeset
3160 && (unsigned) XINT (c) != 127
a72f4aba9f93 (read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents: 28871
diff changeset
3161 && (unsigned) XINT (c) < 256)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3162 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3163 previous_echo_area_message = Fcurrent_message ();
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3164 Vinput_method_previous_message = previous_echo_area_message;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3165 }
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3166
28871
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3167 /* Now wipe the echo area, except for help events which do their
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3168 own stuff with the echo area. */
39436
9a94c8b3b450 (read_char): Don't clear a message for a switch-frame
Gerd Moellmann <gerd@gnu.org>
parents: 39338
diff changeset
3169 if (!CONSP (c)
9a94c8b3b450 (read_char): Don't clear a message for a switch-frame
Gerd Moellmann <gerd@gnu.org>
parents: 39338
diff changeset
3170 || (!(EQ (Qhelp_echo, XCAR (c)))
9a94c8b3b450 (read_char): Don't clear a message for a switch-frame
Gerd Moellmann <gerd@gnu.org>
parents: 39338
diff changeset
3171 && !(EQ (Qswitch_frame, XCAR (c)))))
28871
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3172 {
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3173 if (!NILP (echo_area_buffer[0]))
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3174 safe_run_hooks (Qecho_area_clear_hook);
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3175 clear_message (1, 0);
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3176 }
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3177
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3178 reread_for_input_method:
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3179 from_macro:
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3180 /* Pass this to the input method, if appropriate. */
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3181 if (INTEGERP (c)
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3182 && ! NILP (Vinput_method_function)
23065
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3183 /* Don't run the input method within a key sequence,
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3184 after the first event of the key sequence. */
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3185 && NILP (prev_event)
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3186 && (unsigned) XINT (c) >= ' '
29099
a72f4aba9f93 (read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents: 28871
diff changeset
3187 && (unsigned) XINT (c) != 127
a72f4aba9f93 (read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents: 28871
diff changeset
3188 && (unsigned) XINT (c) < 256)
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3189 {
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3190 Lisp_Object keys;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
3191 int key_count, key_count_reset;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3192 struct gcpro gcpro1;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
3193 int count = SPECPDL_INDEX ();
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3194
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3195 /* Save the echo status. */
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3196 int saved_immediate_echo = current_kboard->immediate_echo;
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
3197 struct kboard *saved_ok_to_echo = ok_to_echo_at_next_pause;
58967
33c30193127d (read_char): Save and restore echo_string when
Kim F. Storm <storm@cua.dk>
parents: 58965
diff changeset
3198 Lisp_Object saved_echo_string = current_kboard->echo_string;
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3199 int saved_echo_after_prompt = current_kboard->echo_after_prompt;
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3200
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
3201 #if 0
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3202 if (before_command_restore_flag)
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3203 {
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3204 this_command_key_count = before_command_key_count_1;
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3205 if (this_command_key_count < this_single_command_key_start)
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3206 this_single_command_key_start = this_command_key_count;
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3207 echo_truncate (before_command_echo_length_1);
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3208 before_command_restore_flag = 0;
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3209 }
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
3210 #endif
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3211
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3212 /* Save the this_command_keys status. */
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3213 key_count = this_command_key_count;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
3214 key_count_reset = this_command_key_count_reset;
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3215
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3216 if (key_count > 0)
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3217 keys = Fcopy_sequence (this_command_keys);
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3218 else
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3219 keys = Qnil;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3220 GCPRO1 (keys);
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3221
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3222 /* Clear out this_command_keys. */
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3223 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
3224 this_command_key_count_reset = 0;
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3225
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3226 /* Now wipe the echo area. */
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
3227 if (!NILP (echo_area_buffer[0]))
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3228 safe_run_hooks (Qecho_area_clear_hook);
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
3229 clear_message (1, 0);
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3230 echo_truncate (0);
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3231
23065
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3232 /* If we are not reading a key sequence,
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3233 never use the echo area. */
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3234 if (maps == 0)
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3235 {
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3236 specbind (Qinput_method_use_echo_area, Qt);
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3237 }
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3238
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3239 /* Call the input method. */
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3240 tem = call1 (Vinput_method_function, c);
23065
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3241
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3242 tem = unbind_to (count, tem);
26b311ef19c6 (read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents: 23047
diff changeset
3243
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3244 /* Restore the saved echoing state
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3245 and this_command_keys state. */
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3246 this_command_key_count = key_count;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
3247 this_command_key_count_reset = key_count_reset;
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3248 if (key_count > 0)
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3249 this_command_keys = keys;
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3250
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3251 cancel_echoing ();
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3252 ok_to_echo_at_next_pause = saved_ok_to_echo;
58967
33c30193127d (read_char): Save and restore echo_string when
Kim F. Storm <storm@cua.dk>
parents: 58965
diff changeset
3253 current_kboard->echo_string = saved_echo_string;
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3254 current_kboard->echo_after_prompt = saved_echo_after_prompt;
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3255 if (saved_immediate_echo)
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3256 echo_now ();
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3257
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3258 UNGCPRO;
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
3259
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3260 /* The input method can return no events. */
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3261 if (! CONSP (tem))
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3262 {
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3263 /* Bring back the previous message, if any. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3264 if (! NILP (previous_echo_area_message))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3265 message_with_string ("%s", previous_echo_area_message, 0);
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3266 goto retry;
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3267 }
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3268 /* It returned one event or more. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
3269 c = XCAR (tem);
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
3270 Vunread_post_input_method_events
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
3271 = nconc2 (XCDR (tem), Vunread_post_input_method_events);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3272 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3273
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3274 reread_first:
18886
c24b5da01b1f (Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents: 18778
diff changeset
3275
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3276 /* Display help if not echoing. */
28871
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3277 if (CONSP (c) && EQ (XCAR (c), Qhelp_echo))
519993861cdd (read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents: 28679
diff changeset
3278 {
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
3279 /* (help-echo FRAME HELP WINDOW OBJECT POS). */
40736
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3280 Lisp_Object help, object, position, window, tem;
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3281
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3282 tem = Fcdr (XCDR (c));
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3283 help = Fcar (tem);
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3284 tem = Fcdr (tem);
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3285 window = Fcar (tem);
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3286 tem = Fcdr (tem);
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3287 object = Fcar (tem);
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3288 tem = Fcdr (tem);
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3289 position = Fcar (tem);
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
3290
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
3291 show_help_echo (help, window, object, position, 0);
38195
7255d1f70b82 (read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents: 37742
diff changeset
3292
7255d1f70b82 (read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents: 37742
diff changeset
3293 /* We stopped being idle for this event; undo that. */
72402
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
3294 if (!end_time)
949ddf473439 * keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents: 72391
diff changeset
3295 timer_resume_idle ();
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3296 goto retry;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
3297 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3298
72845
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
3299 if ((! reread || this_command_key_count == 0
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
3300 || this_command_key_count_reset)
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
3301 && !end_time)
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3302 {
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3303
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3304 /* Don't echo mouse motion events. */
27769
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
3305 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes))
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
3306 && NILP (Fzerop (Vecho_keystrokes))
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3307 && ! (EVENT_HAS_PARAMETERS (c)
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3308 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement)))
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3309 {
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3310 echo_char (c);
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3311 if (! NILP (also_record))
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3312 echo_char (also_record);
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3313 /* Once we reread a character, echoing can happen
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3314 the next time we pause to read a new one. */
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
3315 ok_to_echo_at_next_pause = current_kboard;
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3316 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3317
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3318 /* Record this character as part of the current key. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3319 add_command_key (c);
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3320 if (! NILP (also_record))
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3321 add_command_key (also_record);
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3322 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
3323
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3324 last_input_char = c;
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
3325 num_input_events++;
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3326
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3327 /* Process the help character specially if enabled */
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3328 if (!NILP (Vhelp_form) && help_char_p (c))
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3329 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3330 Lisp_Object tem0;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
3331 count = SPECPDL_INDEX ();
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3332
76435
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3333 help_form_saved_window_configs
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3334 = Fcons (Fcurrent_window_configuration (Qnil),
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3335 help_form_saved_window_configs);
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3336 record_unwind_protect (read_char_help_form_unwind, Qnil);
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3337
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3338 tem0 = Feval (Vhelp_form);
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3339 if (STRINGP (tem0))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3340 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
3341
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3342 cancel_echoing ();
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3343 do
76435
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3344 {
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3345 c = read_char (0, 0, 0, Qnil, 0, NULL);
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3346 if (EVENT_HAS_PARAMETERS (c)
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3347 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_click))
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3348 XSETCAR (help_form_saved_window_configs, Qnil);
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
3349 }
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3350 while (BUFFERP (c));
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3351 /* Remove the help from the frame */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3352 unbind_to (count, Qnil);
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3353
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3354 redisplay ();
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3355 if (EQ (c, make_number (040)))
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3356 {
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3357 cancel_echoing ();
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3358 do
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
3359 c = read_char (0, 0, 0, Qnil, 0, NULL);
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3360 while (BUFFERP (c));
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3361 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3362 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3363
47643
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
3364 exit:
e6806bc4402e (STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 47392
diff changeset
3365 RESUME_POLLING;
18886
c24b5da01b1f (Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents: 18778
diff changeset
3366 RETURN_UNGCPRO (c);
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3367 }
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3368
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
3369 /* 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
3370 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
3371
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3372 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
3373 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
3374 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
3375 {
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3376 /* Wipe the echo area. */
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
3377 clear_message (1, 0);
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3378
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3379 record_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
3380
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
3381 #if 0
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3382 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
3383 before_command_echo_length = echo_length ();
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
3384 #endif
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3385
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3386 /* Don't echo mouse motion events. */
27769
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
3387 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes))
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
3388 && NILP (Fzerop (Vecho_keystrokes)))
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3389 {
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
3390 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
3391
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
3392 /* 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
3393 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
3394 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
3395 }
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
3396
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
3397 /* 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
3398 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
3399
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
3400 /* 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
3401 last_input_char = c;
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
3402 num_input_events++;
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
3403 }
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
3404
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3405 /* 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
3406
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3407 int
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3408 help_char_p (c)
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3409 Lisp_Object c;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3410 {
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3411 Lisp_Object tail;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3412
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3413 if (EQ (c, Vhelp_char))
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3414 return 1;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
3415 for (tail = Vhelp_event_list; CONSP (tail); tail = XCDR (tail))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
3416 if (EQ (c, XCAR (tail)))
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3417 return 1;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3418 return 0;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3419 }
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
3420
9689
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3421 /* Record the input event C in various ways. */
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3422
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3423 static void
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3424 record_char (c)
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3425 Lisp_Object c;
fb713e1560d1 (record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents: 9668
diff changeset
3426 {
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3427 int recorded = 0;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3428
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3429 if (CONSP (c) && (EQ (XCAR (c), Qhelp_echo) || EQ (XCAR (c), Qmouse_movement)))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3430 {
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3431 /* To avoid filling recent_keys with help-echo and mouse-movement
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3432 events, we filter out repeated help-echo events, only store the
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3433 first and last in a series of mouse-movement events, and don't
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3434 store repeated help-echo events which are only separated by
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3435 mouse-movement events. */
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3436
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3437 Lisp_Object ev1, ev2, ev3;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3438 int ix1, ix2, ix3;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3439
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3440 if ((ix1 = recent_keys_index - 1) < 0)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3441 ix1 = NUM_RECENT_KEYS - 1;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3442 ev1 = AREF (recent_keys, ix1);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3443
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3444 if ((ix2 = ix1 - 1) < 0)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3445 ix2 = NUM_RECENT_KEYS - 1;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3446 ev2 = AREF (recent_keys, ix2);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3447
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3448 if ((ix3 = ix2 - 1) < 0)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3449 ix3 = NUM_RECENT_KEYS - 1;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3450 ev3 = AREF (recent_keys, ix3);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3451
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3452 if (EQ (XCAR (c), Qhelp_echo))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3453 {
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3454 /* Don't record `help-echo' in recent_keys unless it shows some help
42928
f03a11bcb718 (record_char): Fix a typo in a comment.
Eli Zaretskii <eliz@gnu.org>
parents: 42707
diff changeset
3455 message, and a different help than the previously recorded
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3456 event. */
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3457 Lisp_Object help, last_help;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3458
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3459 help = Fcar_safe (Fcdr_safe (XCDR (c)));
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3460 if (!STRINGP (help))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3461 recorded = 1;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3462 else if (CONSP (ev1) && EQ (XCAR (ev1), Qhelp_echo)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3463 && (last_help = Fcar_safe (Fcdr_safe (XCDR (ev1))), EQ (last_help, help)))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3464 recorded = 1;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3465 else if (CONSP (ev1) && EQ (XCAR (ev1), Qmouse_movement)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3466 && CONSP (ev2) && EQ (XCAR (ev2), Qhelp_echo)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3467 && (last_help = Fcar_safe (Fcdr_safe (XCDR (ev2))), EQ (last_help, help)))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3468 recorded = -1;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3469 else if (CONSP (ev1) && EQ (XCAR (ev1), Qmouse_movement)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3470 && CONSP (ev2) && EQ (XCAR (ev2), Qmouse_movement)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3471 && CONSP (ev3) && EQ (XCAR (ev3), Qhelp_echo)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3472 && (last_help = Fcar_safe (Fcdr_safe (XCDR (ev3))), EQ (last_help, help)))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3473 recorded = -2;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3474 }
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3475 else if (EQ (XCAR (c), Qmouse_movement))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3476 {
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3477 /* Only record one pair of `mouse-movement' on a window in recent_keys.
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3478 So additional mouse movement events replace the last element. */
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3479 Lisp_Object last_window, window;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3480
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3481 window = Fcar_safe (Fcar_safe (XCDR (c)));
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3482 if (CONSP (ev1) && EQ (XCAR (ev1), Qmouse_movement)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3483 && (last_window = Fcar_safe (Fcar_safe (XCDR (ev1))), EQ (last_window, window))
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3484 && CONSP (ev2) && EQ (XCAR (ev2), Qmouse_movement)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3485 && (last_window = Fcar_safe (Fcar_safe (XCDR (ev2))), EQ (last_window, window)))
34217
9e2f85266e61 (record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents: 34174
diff changeset
3486 {
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3487 ASET (recent_keys, ix1, c);
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3488 recorded = 1;
34217
9e2f85266e61 (record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents: 34174
diff changeset
3489 }
9e2f85266e61 (record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents: 34174
diff changeset
3490 }
9e2f85266e61 (record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents: 34174
diff changeset
3491 }
9e2f85266e61 (record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents: 34174
diff changeset
3492 else
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3493 store_kbd_macro_char (c);
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3494
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3495 if (!recorded)
34164
cfbe6873d494 (record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents: 33908
diff changeset
3496 {
cfbe6873d494 (record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents: 33908
diff changeset
3497 total_keys++;
cfbe6873d494 (record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents: 33908
diff changeset
3498 ASET (recent_keys, recent_keys_index, c);
cfbe6873d494 (record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents: 33908
diff changeset
3499 if (++recent_keys_index >= NUM_RECENT_KEYS)
cfbe6873d494 (record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents: 33908
diff changeset
3500 recent_keys_index = 0;
cfbe6873d494 (record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents: 33908
diff changeset
3501 }
42337
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3502 else if (recorded < 0)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3503 {
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3504 /* We need to remove one or two events from recent_keys.
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3505 To do this, we simply put nil at those events and move the
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3506 recent_keys_index backwards over those events. Usually,
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3507 users will never see those nil events, as they will be
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3508 overwritten by the command keys entered to see recent_keys
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3509 (e.g. C-h l). */
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3510
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3511 while (recorded++ < 0 && total_keys > 0)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3512 {
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3513 if (total_keys < NUM_RECENT_KEYS)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3514 total_keys--;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3515 if (--recent_keys_index < 0)
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3516 recent_keys_index = NUM_RECENT_KEYS - 1;
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3517 ASET (recent_keys, recent_keys_index, Qnil);
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3518 }
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3519 }
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3520
aed4f1043eb8 (record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents: 42121
diff changeset
3521 num_nonmacro_input_events++;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3522
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3523 /* Write c to the dribble file. If c is a lispy event, write
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3524 the event's symbol to the dribble file, in <brackets>. Bleaugh.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3525 If you, dear reader, have a better idea, you've got the source. :-) */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3526 if (dribble)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3527 {
76623
27b51de2d1d7 (record_char): Add BLOCK_INPUT around fwrite.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76558
diff changeset
3528 BLOCK_INPUT;
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
3529 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
3530 {
3a9e9d3df590 (read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents: 8502
diff changeset
3531 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
3532 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
3533 else
12087
3bbf71f1cf30 (cmd_error): Use NULL, not 0, as arg to cmd_error_internal.
Karl Heuer <kwzh@gnu.org>
parents: 12007
diff changeset
3534 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
3535 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3536 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3537 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3538 Lisp_Object dribblee;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3539
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3540 /* 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
3541 dribblee = EVENT_HEAD (c);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3542
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
3543 if (SYMBOLP (dribblee))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3544 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3545 putc ('<', dribble);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
3546 fwrite (SDATA (SYMBOL_NAME (dribblee)), sizeof (char),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
3547 SBYTES (SYMBOL_NAME (dribblee)),
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3548 dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3549 putc ('>', dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3550 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3551 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3552
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3553 fflush (dribble);
76623
27b51de2d1d7 (record_char): Add BLOCK_INPUT around fwrite.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76558
diff changeset
3554 UNBLOCK_INPUT;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3555 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3556 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3557
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3558 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3559 print_help (object)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3560 Lisp_Object object;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3561 {
9864
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
3562 struct buffer *old = current_buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3563 Fprinc (object, Qnil);
9864
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
3564 set_buffer_internal (XBUFFER (Vstandard_output));
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
3565 call0 (intern ("help-mode"));
0299d64cdd07 (print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9840
diff changeset
3566 set_buffer_internal (old);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3567 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3568 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3569
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3570 /* Copy out or in the info on where C-g should throw to.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3571 This is used when running Lisp code from within get_char,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3572 in case get_char is called recursively.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3573 See read_process_output. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3574
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
3575 static void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3576 save_getcjmp (temp)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3577 jmp_buf temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3578 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3579 bcopy (getcjmp, temp, sizeof getcjmp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3580 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3581
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
3582 static void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3583 restore_getcjmp (temp)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3584 jmp_buf temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3585 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3586 bcopy (temp, getcjmp, sizeof getcjmp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3587 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3588
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3589 /* 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
3590 kbd_buffer_store_event places events in kbd_buffer, and
13324
cff657a37032 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13309
diff changeset
3591 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
3592
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3593 /* 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
3594 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
3595 static int
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3596 readable_events (flags)
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3597 int flags;
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3598 {
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3599 if (flags & READABLE_EVENTS_DO_TIMERS_NOW)
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3600 timer_check (1);
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3601
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3602 /* If the buffer contains only FOCUS_IN_EVENT events, and
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3603 READABLE_EVENTS_FILTER_EVENTS is set, report it as empty. */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3604 if (kbd_fetch_ptr != kbd_store_ptr)
45751
7318ee0c9772 (readable_events): Ignore any number of
Richard M. Stallman <rms@gnu.org>
parents: 45419
diff changeset
3605 {
62284
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3606 if (flags & (READABLE_EVENTS_FILTER_EVENTS
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3607 #ifdef USE_TOOLKIT_SCROLL_BARS
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3608 | READABLE_EVENTS_IGNORE_SQUEEZABLES
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3609 #endif
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3610 ))
46077
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3611 {
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3612 struct input_event *event;
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3613
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3614 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE)
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3615 ? kbd_fetch_ptr
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3616 : kbd_buffer);
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3617
62284
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3618 do
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3619 {
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3620 if (!(
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3621 #ifdef USE_TOOLKIT_SCROLL_BARS
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3622 (flags & READABLE_EVENTS_FILTER_EVENTS) &&
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3623 #endif
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3624 event->kind == FOCUS_IN_EVENT)
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3625 #ifdef USE_TOOLKIT_SCROLL_BARS
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3626 && !((flags & READABLE_EVENTS_IGNORE_SQUEEZABLES)
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3627 && event->kind == SCROLL_BAR_CLICK_EVENT
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3628 && event->part == scroll_bar_handle
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3629 && event->modifiers == 0)
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3630 #endif
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3631 )
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3632 return 1;
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3633 event++;
46077
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3634 if (event == kbd_buffer + KBD_BUFFER_SIZE)
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3635 event = kbd_buffer;
62284
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3636 }
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3637 while (event != kbd_store_ptr);
46077
afcc2cec9ba0 (readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 45881
diff changeset
3638 }
62284
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3639 else
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
3640 return 1;
45751
7318ee0c9772 (readable_events): Ignore any number of
Richard M. Stallman <rms@gnu.org>
parents: 45419
diff changeset
3641 }
7318ee0c9772 (readable_events): Ignore any number of
Richard M. Stallman <rms@gnu.org>
parents: 45419
diff changeset
3642
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3643 #ifdef HAVE_MOUSE
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3644 if (!(flags & READABLE_EVENTS_IGNORE_SQUEEZABLES)
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
3645 && !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
3646 return 1;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3647 #endif
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3648 if (single_kboard)
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3649 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3650 if (current_kboard->kbd_queue_has_data)
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3651 return 1;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3652 }
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3653 else
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3654 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3655 KBOARD *kb;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3656 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
3657 if (kb->kbd_queue_has_data)
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3658 return 1;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3659 }
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3660 return 0;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3661 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3662
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3663 /* 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
3664 int stop_character;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3665
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3666 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3667 static KBOARD *
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3668 event_to_kboard (event)
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3669 struct input_event *event;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3670 {
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3671 Lisp_Object frame;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3672 frame = event->frame_or_window;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3673 if (CONSP (frame))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
3674 frame = XCAR (frame);
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3675 else if (WINDOWP (frame))
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3676 frame = WINDOW_FRAME (XWINDOW (frame));
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3677
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3678 /* 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
3679 For now, just ignore the problem.
5ba84aee3999 (event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents: 11165
diff changeset
3680 Also ignore dead frames here. */
5ba84aee3999 (event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents: 11165
diff changeset
3681 if (!FRAMEP (frame) || !FRAME_LIVE_P (XFRAME (frame)))
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3682 return 0;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3683 else
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3684 return FRAME_KBOARD (XFRAME (frame));
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3685 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3686 #endif
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3687
58965
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
3688
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
3689 Lisp_Object Vthrow_on_input;
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
3690
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3691 /* Store an event obtained at interrupt level into kbd_buffer, fifo */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3692
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3693 void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3694 kbd_buffer_store_event (event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3695 register struct input_event *event;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3696 {
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3697 kbd_buffer_store_event_hold (event, 0);
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3698 }
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3699
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3700 /* Store EVENT obtained at interrupt level into kbd_buffer, fifo.
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3701
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3702 If HOLD_QUIT is 0, just stuff EVENT into the fifo.
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3703 Else, if HOLD_QUIT.kind != NO_EVENT, discard EVENT.
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3704 Else, if EVENT is a quit event, store the quit event
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3705 in HOLD_QUIT, and return (thus ignoring further events).
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3706
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3707 This is used in read_avail_input to postpone the processing
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3708 of the quit event until all subsequent input events have been
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3709 parsed (and discarded).
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3710 */
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3711
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3712 void
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3713 kbd_buffer_store_event_hold (event, hold_quit)
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3714 register struct input_event *event;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3715 struct input_event *hold_quit;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3716 {
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3717 if (event->kind == NO_EVENT)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3718 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3719
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3720 if (hold_quit && hold_quit->kind != NO_EVENT)
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3721 return;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3722
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3723 if (event->kind == ASCII_KEYSTROKE_EVENT)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3724 {
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
3725 register int c = event->code & 0377;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3726
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
3727 if (event->modifiers & ctrl_modifier)
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
3728 c = make_ctrl_char (c);
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
3729
4282
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
3730 c |= (event->modifiers
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
3731 & (meta_modifier | alt_modifier
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
3732 | hyper_modifier | super_modifier));
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
3733
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3734 if (c == quit_char)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3735 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3736 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3737 KBOARD *kb;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3738 struct input_event *sp;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3739
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
3740 if (single_kboard
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3741 && (kb = FRAME_KBOARD (XFRAME (event->frame_or_window)),
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3742 kb != current_kboard))
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3743 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3744 kb->kbd_queue
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3745 = Fcons (make_lispy_switch_frame (event->frame_or_window),
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3746 Fcons (make_number (c), Qnil));
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3747 kb->kbd_queue_has_data = 1;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3748 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
3749 {
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3750 if (sp == kbd_buffer + KBD_BUFFER_SIZE)
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3751 sp = kbd_buffer;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3752
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
3753 if (event_to_kboard (sp) == kb)
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3754 {
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3755 sp->kind = NO_EVENT;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3756 sp->frame_or_window = Qnil;
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
3757 sp->arg = Qnil;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3758 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3759 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3760 return;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3761 }
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
3762 #endif
985
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
3763
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3764 if (hold_quit)
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3765 {
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3766 bcopy (event, (char *) hold_quit, sizeof (*event));
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3767 return;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3768 }
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3769
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3770 /* 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
3771 input, set Vlast_event_frame properly. If this doesn't
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3772 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
3773 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
3774 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3775 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
3776
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
3777 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
3778 if (NILP (focus))
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3779 focus = event->frame_or_window;
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3780 internal_last_event_frame = focus;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
3781 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
3782 }
985
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
3783
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3784 last_event_timestamp = event->timestamp;
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
3785 interrupt_signal (0 /* dummy */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3786 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3787 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3788
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3789 if (c && c == stop_character)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3790 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3791 sys_suspend ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3792 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3793 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3794 }
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3795 /* Don't insert two BUFFER_SWITCH_EVENT's in a row.
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
3796 Just ignore the second one. */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3797 else if (event->kind == BUFFER_SWITCH_EVENT
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
3798 && kbd_fetch_ptr != kbd_store_ptr
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3799 && ((kbd_store_ptr == kbd_buffer
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3800 ? kbd_buffer + KBD_BUFFER_SIZE - 1
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3801 : kbd_store_ptr - 1)->kind) == BUFFER_SWITCH_EVENT)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
3802 return;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3803
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3804 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
3805 kbd_store_ptr = kbd_buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3806
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3807 /* Don't let the very last slot in the buffer become full,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3808 since that would make the two pointers equal,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3809 and that is indistinguishable from an empty buffer.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3810 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
3811 if (kbd_fetch_ptr - 1 != kbd_store_ptr)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3812 {
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
3813 *kbd_store_ptr = *event;
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
3814 ++kbd_store_ptr;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3815 }
58965
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
3816
59052
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3817 /* If we're inside while-no-input, and this event qualifies
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3818 as input, set quit-flag to cause an interrupt. */
58965
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
3819 if (!NILP (Vthrow_on_input)
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
3820 && event->kind != FOCUS_IN_EVENT
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
3821 && event->kind != HELP_EVENT
74748
8a37dd687f38 (kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents: 74621
diff changeset
3822 && event->kind != DEICONIFY_EVENT)
59052
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3823 {
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3824 Vquit_flag = Vthrow_on_input;
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3825 /* If we're inside a function that wants immediate quits,
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3826 do it now. */
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3827 if (immediate_quit && NILP (Vinhibit_quit))
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3828 {
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3829 immediate_quit = 0;
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3830 sigfree ();
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3831 QUIT;
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3832 }
e108ef5b9044 (kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
3833 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3834 }
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3835
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3836
57950
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3837 /* Put an input event back in the head of the event queue. */
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3838
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3839 void
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3840 kbd_buffer_unget_event (event)
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3841 register struct input_event *event;
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3842 {
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3843 if (kbd_fetch_ptr == kbd_buffer)
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3844 kbd_fetch_ptr = kbd_buffer + KBD_BUFFER_SIZE;
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3845
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3846 /* Don't let the very last slot in the buffer become full, */
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3847 if (kbd_fetch_ptr - 1 != kbd_store_ptr)
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3848 {
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3849 --kbd_fetch_ptr;
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3850 *kbd_fetch_ptr = *event;
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3851 }
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3852 }
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3853
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
3854
31201
86d1a169a3cc Fix a typo in a comment.
Eli Zaretskii <eliz@gnu.org>
parents: 31096
diff changeset
3855 /* Generate HELP_EVENT input_events in BUFP which has room for
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3856 SIZE events. If there's not enough room in BUFP, ignore this
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3857 event.
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3858
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3859 HELP is the help form.
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3860
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3861 FRAME is the frame on which the help is generated. OBJECT is the
30368
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
3862 Lisp object where the help was found (a buffer, a string, an
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
3863 overlay, or nil if neither from a string nor from a buffer. POS is
7867dcfece5f (show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents: 30300
diff changeset
3864 the position within OBJECT where the help was found.
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3865
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3866 Value is the number of input_events generated. */
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3867
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3868 void
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3869 gen_help_event (help, frame, window, object, pos)
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
3870 Lisp_Object help, frame, object, window;
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3871 int pos;
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3872 {
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3873 struct input_event event;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3874
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3875 EVENT_INIT (event);
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3876
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3877 event.kind = HELP_EVENT;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3878 event.frame_or_window = frame;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3879 event.arg = object;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3880 event.x = WINDOWP (window) ? window : frame;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3881 event.y = help;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3882 event.code = pos;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
3883 kbd_buffer_store_event (&event);
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3884 }
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3885
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3886
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3887 /* Store HELP_EVENTs for HELP on FRAME in the input queue. */
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3888
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3889 void
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3890 kbd_buffer_store_help_event (frame, help)
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3891 Lisp_Object frame, help;
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3892 {
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3893 struct input_event event;
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3894
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3895 event.kind = HELP_EVENT;
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3896 event.frame_or_window = frame;
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3897 event.arg = Qnil;
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
3898 event.x = Qnil;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
3899 event.y = help;
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3900 event.code = 0;
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3901 kbd_buffer_store_event (&event);
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3902 }
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
3903
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3904
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3905 /* Discard any mouse events in the event buffer by setting them to
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3906 NO_EVENT. */
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3907 void
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3908 discard_mouse_events ()
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3909 {
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3910 struct input_event *sp;
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3911 for (sp = kbd_fetch_ptr; sp != kbd_store_ptr; sp++)
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3912 {
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3913 if (sp == kbd_buffer + KBD_BUFFER_SIZE)
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3914 sp = kbd_buffer;
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3915
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3916 if (sp->kind == MOUSE_CLICK_EVENT
51384
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
3917 || sp->kind == WHEEL_EVENT
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3918 #ifdef WINDOWSNT
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3919 || sp->kind == W32_SCROLL_BAR_CLICK_EVENT
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3920 #endif
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3921 || sp->kind == SCROLL_BAR_CLICK_EVENT)
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3922 {
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3923 sp->kind = NO_EVENT;
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3924 }
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3925 }
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3926 }
30709
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3927
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3928
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3929 /* Return non-zero if there are any real events waiting in the event
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3930 buffer, not counting `NO_EVENT's.
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3931
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3932 If DISCARD is non-zero, discard NO_EVENT events at the front of
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3933 the input queue, possibly leaving the input queue empty if there
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3934 are no real input events. */
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3935
30709
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3936 int
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3937 kbd_buffer_events_waiting (discard)
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3938 int discard;
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3939 {
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3940 struct input_event *sp;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
3941
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3942 for (sp = kbd_fetch_ptr;
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3943 sp != kbd_store_ptr && sp->kind == NO_EVENT;
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3944 ++sp)
30709
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3945 {
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3946 if (sp == kbd_buffer + KBD_BUFFER_SIZE)
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3947 sp = kbd_buffer;
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3948 }
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3949
30709
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3950 if (discard)
71b0b4b5d334 (kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 30681
diff changeset
3951 kbd_fetch_ptr = sp;
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3952
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3953 return sp != kbd_store_ptr && sp->kind != NO_EVENT;
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3954 }
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3955
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
3956
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3957 /* Clear input event EVENT. */
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3958
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3959 static INLINE void
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3960 clear_event (event)
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3961 struct input_event *event;
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3962 {
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
3963 event->kind = NO_EVENT;
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3964 }
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3965
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
3966
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3967 /* 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
3968 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
3969 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
3970 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
3971 We always read and discard one event. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3972
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3973 static Lisp_Object
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
3974 kbd_buffer_get_event (kbp, used_mouse_menu, end_time)
11445
5146afa8e131 (kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents: 11366
diff changeset
3975 KBOARD **kbp;
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
3976 int *used_mouse_menu;
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
3977 EMACS_TIME *end_time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3978 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3979 register int c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3980 Lisp_Object obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3981
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3982 if (noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3983 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3984 c = getchar ();
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
3985 XSETINT (obj, c);
11167
5ba84aee3999 (event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents: 11165
diff changeset
3986 *kbp = current_kboard;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3987 return obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3988 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3989
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3990 /* Wait until there is input available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3991 for (;;)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3992 {
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3993 if (kbd_fetch_ptr != kbd_store_ptr)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3994 break;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3995 #ifdef HAVE_MOUSE
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
3996 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
3997 break;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
3998 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3999
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4000 /* If the quit flag is set, then read_char will return
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4001 quit_char, so that counts as "available input." */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4002 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4003 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4004
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4005 /* One way or another, wait until input is available; then, if
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4006 interrupt handlers have not read it, read it now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4007
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4008 #ifdef OLDVMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4009 wait_for_kbd_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4010 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4011 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4012 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4013 gobble_input (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4014 #endif /* SIGIO */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4015 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
4016 break;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4017 #ifdef HAVE_MOUSE
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
4018 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
4019 break;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4020 #endif
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4021 if (end_time)
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4022 {
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4023 EMACS_TIME duration;
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4024 EMACS_GET_TIME (duration);
72283
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4025 if (EMACS_TIME_GE (duration, *end_time))
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4026 return Qnil; /* finished waiting */
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4027 else
72283
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4028 {
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4029 EMACS_SUB_TIME (duration, *end_time, duration);
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4030 wait_reading_process_output (EMACS_SECS (duration),
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4031 EMACS_USECS (duration),
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4032 -1, 1, Qnil, NULL, 0);
a434e864f122 (kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents: 72276
diff changeset
4033 }
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4034 }
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4035 else
56729
e6e0caa7ec87 Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents: 56717
diff changeset
4036 wait_reading_process_output (0, 0, -1, 1, Qnil, NULL, 0);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4037
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4038 if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr)
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4039 /* Pass 1 for EXPECT since we just waited to have input. */
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
4040 read_avail_input (1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4041 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4042 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4043
18231
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
4044 if (CONSP (Vunread_command_events))
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
4045 {
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
4046 Lisp_Object first;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4047 first = XCAR (Vunread_command_events);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4048 Vunread_command_events = XCDR (Vunread_command_events);
18231
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
4049 *kbp = current_kboard;
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
4050 return first;
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
4051 }
7f3969697013 (kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents: 18118
diff changeset
4052
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4053 /* At this point, we know that there is a readable event available
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4054 somewhere. If the event queue is empty, then there must be a
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4055 mouse movement enabled and available. */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4056 if (kbd_fetch_ptr != kbd_store_ptr)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4057 {
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4058 struct input_event *event;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4059
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4060 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
4061 ? kbd_fetch_ptr
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4062 : kbd_buffer);
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4063
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4064 last_event_timestamp = event->timestamp;
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
4065
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
4066 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
4067 *kbp = event_to_kboard (event);
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
4068 if (*kbp == 0)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
4069 *kbp = current_kboard; /* Better than returning null ptr? */
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
4070 #else
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
4071 *kbp = &the_only_kboard;
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
4072 #endif
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4073
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4074 obj = Qnil;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4075
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
4076 /* 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
4077 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
4078 We return nil for them. */
57950
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
4079 if (event->kind == SELECTION_REQUEST_EVENT
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
4080 || 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
4081 {
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
4082 #ifdef HAVE_X11
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
4083 struct input_event copy;
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
4084
10635
c807d6c947de (kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents: 10626
diff changeset
4085 /* 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
4086 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
4087 and process it again. */
11350
2fc5320e4a99 (any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents: 11285
diff changeset
4088 copy = *event;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4089 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4090 input_pending = readable_events (0);
57950
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
4091 x_handle_selection_event (&copy);
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
4092 #else
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
4093 /* 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
4094 a window system. */
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
4095 abort ();
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
4096 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
4097 }
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
4098
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44561
diff changeset
4099 #if defined (HAVE_X11) || defined (HAVE_NTGUI) || defined (MAC_OS)
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4100 else if (event->kind == DELETE_WINDOW_EVENT)
5133
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
4101 {
9215
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
4102 /* Make an event (delete-frame (FRAME)). */
fa3883c219ea (head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents: 9124
diff changeset
4103 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
4104 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
4105 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
4106 }
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32476
diff changeset
4107 #endif
65109
2aed3dcccd0d (kbd_buffer_get_event) [MAC_OS]: Make events for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64770
diff changeset
4108 #if defined (HAVE_X11) || defined (HAVE_NTGUI) || defined (MAC_OS)
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4109 else if (event->kind == ICONIFY_EVENT)
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
4110 {
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
4111 /* 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
4112 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
4113 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
4114 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
4115 }
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4116 else if (event->kind == DEICONIFY_EVENT)
9729
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
4117 {
75b481d9773e (kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents: 9689
diff changeset
4118 /* 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
4119 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
4120 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
4121 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
4122 }
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
4123 #endif
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4124 else if (event->kind == BUFFER_SWITCH_EVENT)
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4125 {
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
4126 /* 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
4127 XSETBUFFER (obj, current_buffer);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4128 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
4129 }
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49193
diff changeset
4130 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined (MAC_OS) \
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49193
diff changeset
4131 || defined (USE_GTK)
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4132 else if (event->kind == MENU_BAR_ACTIVATE_EVENT)
12659
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
4133 {
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
4134 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4135 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
4136 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
4137 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
4138 }
1243af8addb5 (kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 12628
diff changeset
4139 #endif
61499
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
4140 #if defined (WINDOWSNT) || defined (MAC_OS)
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4141 else if (event->kind == LANGUAGE_CHANGE_EVENT)
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4142 {
61499
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
4143 #ifdef MAC_OS
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
4144 /* Make an event (language-change (KEY_SCRIPT)). */
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
4145 obj = Fcons (make_number (event->code), Qnil);
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
4146 #else
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4147 /* Make an event (language-change (FRAME CHARSET LCID)). */
55639
b5168ee835cb (kbd_buffer_get_event): Don't use event->code and
Jason Rumney <jasonr@gnu.org>
parents: 55597
diff changeset
4148 obj = Fcons (event->frame_or_window, Qnil);
61499
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
4149 #endif
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4150 obj = Fcons (Qlanguage_change, Fcons (obj, Qnil));
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4151 kbd_fetch_ptr = event + 1;
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4152 }
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4153 #endif
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4154 else if (event->kind == SAVE_SESSION_EVENT)
43814
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
4155 {
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
4156 obj = Fcons (Qsave_session, Qnil);
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
4157 kbd_fetch_ptr = event + 1;
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
4158 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4159 /* Just discard these, by returning nil.
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
4160 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
4161 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
4162 (They shouldn't otherwise be found in the buffer,
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
4163 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
4164 even without MULTI_KBOARD.) */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4165 /* On Windows NT/9X, NO_EVENT is used to delete extraneous
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
4166 mouse events during a popup-menu call. */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
4167 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
4168 kbd_fetch_ptr = event + 1;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
4169 else if (event->kind == HELP_EVENT)
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
4170 {
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
4171 Lisp_Object object, position, help, frame, window;
30936
29fae12cc834 (kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents: 30749
diff changeset
4172
30212
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
4173 frame = event->frame_or_window;
f45d26144129 (show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents: 30200
diff changeset
4174 object = event->arg;
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
4175 position = make_number (event->code);
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
4176 window = event->x;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
4177 help = event->y;
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
4178 clear_event (event);
30936
29fae12cc834 (kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents: 30749
diff changeset
4179
29fae12cc834 (kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents: 30749
diff changeset
4180 kbd_fetch_ptr = event + 1;
30300
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
4181 if (!WINDOWP (window))
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
4182 window = Qnil;
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
4183 obj = Fcons (Qhelp_echo,
8b24b6f17856 (show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents: 30212
diff changeset
4184 list5 (frame, help, window, object, position));
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
4185 }
29513
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4186 else if (event->kind == FOCUS_IN_EVENT)
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4187 {
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4188 /* Notification of a FocusIn event. The frame receiving the
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4189 focus is in event->frame_or_window. Generate a
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4190 switch-frame event if necessary. */
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4191 Lisp_Object frame, focus;
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4192
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4193 frame = event->frame_or_window;
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4194 focus = FRAME_FOCUS_FRAME (XFRAME (frame));
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4195 if (FRAMEP (focus))
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4196 frame = focus;
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4197
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4198 if (!EQ (frame, internal_last_event_frame)
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4199 && !EQ (frame, selected_frame))
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4200 obj = make_lispy_switch_frame (frame);
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4201 internal_last_event_frame = frame;
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4202 kbd_fetch_ptr = event + 1;
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4203 }
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4204 else
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4205 {
29513
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4206 /* If this event is on a different frame, return a switch-frame this
dfb72889ff52 (kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents: 29313
diff changeset
4207 time, and leave the event in the queue for next time. */
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4208 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
4209 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
4210
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4211 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
4212 if (CONSP (frame))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4213 frame = XCAR (frame);
11285
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
4214 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
4215 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
4216
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4217 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
4218 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
4219 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
4220
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
4221 if (! EQ (frame, internal_last_event_frame)
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
4222 && !EQ (frame, selected_frame))
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4223 obj = make_lispy_switch_frame (frame);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
4224 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
4225
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4226 /* 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
4227 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
4228
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4229 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
4230 {
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4231 obj = make_lispy_event (event);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4232
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49193
diff changeset
4233 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined(MAC_OS) \
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49193
diff changeset
4234 || defined (USE_GTK)
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
4235 /* 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
4236 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
4237 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
4238 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
4239 that as the `event with parameters' for this selection. */
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
4240 if (used_mouse_menu
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
4241 && !EQ (event->frame_or_window, event->arg)
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
4242 && (event->kind == MENU_BAR_EVENT
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
4243 || event->kind == TOOL_BAR_EVENT))
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
4244 *used_mouse_menu = 1;
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
4245 #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
4246
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4247 /* Wipe out this event, to catch bugs. */
31013
561b96d3bce3 (gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents: 30936
diff changeset
4248 clear_event (event);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4249 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
4250 }
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
4251 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4252 }
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
4253 #ifdef HAVE_MOUSE
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4254 /* Try generating a mouse motion event. */
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
4255 else if (!NILP (do_mouse_tracking) && some_mouse_moved ())
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4256 {
12571
c960e63751ec (mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12476
diff changeset
4257 FRAME_PTR f = some_mouse_moved ();
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4258 Lisp_Object bar_window;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
4259 enum scroll_bar_part part;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
4260 Lisp_Object x, y;
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
4261 unsigned long time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4262
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
4263 *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
4264 /* 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
4265 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
4266 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
4267 x = Qnil;
11127
53e4f014e31c (kbd_buffer_get_event): Pass 0 for `insist' arg.
Richard M. Stallman <rms@gnu.org>
parents: 11026
diff changeset
4268 (*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
4269
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4270 obj = Qnil;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4271
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4272 /* 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
4273 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
4274 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
4275 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
4276 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4277 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
4278
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
4279 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
4280 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
4281 XSETFRAME (frame, f);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4282
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
4283 if (! EQ (frame, internal_last_event_frame)
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
4284 && !EQ (frame, selected_frame))
3929
d620db2bc420 * keyboard.c (kbd_buffer_get_event): Correctly generate
Jim Blandy <jimb@redhat.com>
parents: 3920
diff changeset
4285 obj = make_lispy_switch_frame (frame);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
4286 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
4287 }
8247
26dbb6234efd (safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents: 8238
diff changeset
4288
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
4289 /* 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
4290 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
4291 if (!NILP (x) && NILP (obj))
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4292 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
4293 }
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
4294 #endif /* HAVE_MOUSE */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4295 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4296 /* We were promised by the above while loop that there was
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4297 something for us to read! */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4298 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4299
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4300 input_pending = readable_events (0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4301
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
4302 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
4303
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4304 return (obj);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4305 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4306
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4307 /* 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
4308 then return, without reading any user-visible events. */
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4309
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4310 void
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4311 swallow_events (do_display)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4312 int do_display;
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4313 {
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
4314 int old_timers_run;
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
4315
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4316 while (kbd_fetch_ptr != kbd_store_ptr)
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4317 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4318 struct input_event *event;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4319
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4320 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
4321 ? kbd_fetch_ptr
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4322 : kbd_buffer);
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4323
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4324 last_event_timestamp = event->timestamp;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4325
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4326 /* These two kinds of events get special handling
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4327 and don't actually appear to the command loop. */
57950
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
4328 if (event->kind == SELECTION_REQUEST_EVENT
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
4329 || event->kind == SELECTION_CLEAR_EVENT)
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4330 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4331 #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
4332 struct input_event copy;
12712
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
4333
33dc35e15fd2 (kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents: 12659
diff changeset
4334 /* 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
4335 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
4336 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
4337 copy = *event;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
4338 kbd_fetch_ptr = event + 1;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4339 input_pending = readable_events (0);
57950
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
4340 x_handle_selection_event (&copy);
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4341 #else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4342 /* 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
4343 a window system. */
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4344 abort ();
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4345 #endif
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4346 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4347 else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4348 break;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4349 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4350
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
4351 old_timers_run = timers_run;
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
4352 get_input_pending (&input_pending, READABLE_EVENTS_DO_TIMERS_NOW);
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
4353
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
4354 if (timers_run != old_timers_run && do_display)
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 35255
diff changeset
4355 redisplay_preserve_echo_area (7);
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
4356 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4357
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4358 /* Record the start of when Emacs is idle,
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4359 for the sake of running idle-time timers. */
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4360
57410
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4361 static void
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4362 timer_start_idle ()
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4363 {
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4364 Lisp_Object timers;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4365
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4366 /* 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
4367 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
4368 return;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4369
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4370 EMACS_GET_TIME (timer_idleness_start_time);
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4371
46109
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
4372 timer_last_idleness_start_time = timer_idleness_start_time;
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
4373
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4374 /* Mark all idle-time timers as once again candidates for running. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4375 for (timers = Vtimer_idle_list; CONSP (timers); timers = XCDR (timers))
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4376 {
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4377 Lisp_Object timer;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4378
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4379 timer = XCAR (timers);
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4380
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4381 if (!VECTORP (timer) || XVECTOR (timer)->size != 8)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4382 continue;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4383 XVECTOR (timer)->contents[0] = Qnil;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4384 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4385 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4386
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4387 /* 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
4388
57410
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4389 static void
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4390 timer_stop_idle ()
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4391 {
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4392 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
4393 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4394
57410
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4395 /* Resume idle timer from last idle start time. */
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4396
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4397 static void
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4398 timer_resume_idle ()
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4399 {
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4400 if (! EMACS_TIME_NEG_P (timer_idleness_start_time))
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4401 return;
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4402
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4403 timer_idleness_start_time = timer_last_idleness_start_time;
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4404 }
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
4405
14904
5025ab10c28c (last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 14773
diff changeset
4406 /* This is only for debugging. */
5025ab10c28c (last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 14773
diff changeset
4407 struct input_event last_timer_event;
5025ab10c28c (last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 14773
diff changeset
4408
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4409 /* 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
4410 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
4411 timer list for the time being.
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4412
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4413 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
4414 timer is triggering now, return zero seconds.
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4415 If no timer is active, return -1 seconds.
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4416
14997
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
4417 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
4418
51a773474d47 (read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents: 14904
diff changeset
4419 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
4420 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
4421 Now we always run timers directly. */
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4422
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4423 EMACS_TIME
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4424 timer_check (do_it_now)
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4425 int do_it_now;
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4426 {
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4427 EMACS_TIME nexttime;
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4428 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
4429 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
4430 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
4431
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4432 EMACS_SET_SECS (nexttime, -1);
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4433 EMACS_SET_USECS (nexttime, -1);
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4434
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4435 /* 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
4436 timers = Vtimer_list;
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4437 /* 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
4438 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
4439 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
4440 else
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4441 idle_timers = Qnil;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4442 chosen_timer = Qnil;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4443 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
4444
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4445 if (CONSP (timers) || CONSP (idle_timers))
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4446 {
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4447 EMACS_GET_TIME (now);
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4448 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
4449 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
4450 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4451
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4452 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
4453 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4454 Lisp_Object *vector;
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
4455 Lisp_Object timer = Qnil, idle_timer = Qnil;
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4456 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
4457 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
4458
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4459 /* 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
4460 if (!NILP (timers))
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4461 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4462 timer = XCAR (timers);
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4463 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
4464 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4465 timers = XCDR (timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4466 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4467 }
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4468 vector = XVECTOR (timer)->contents;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4469
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4470 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
4471 || !INTEGERP (vector[3])
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4472 || ! NILP (vector[0]))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4473 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4474 timers = XCDR (timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4475 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4476 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4477 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4478 if (!NILP (idle_timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4479 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4480 timer = XCAR (idle_timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4481 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
4482 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4483 idle_timers = XCDR (idle_timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4484 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4485 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4486 vector = XVECTOR (timer)->contents;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4487
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4488 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
4489 || !INTEGERP (vector[3])
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4490 || ! NILP (vector[0]))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4491 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4492 idle_timers = XCDR (idle_timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4493 continue;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4494 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4495 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4496
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4497 /* 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
4498 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
4499 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
4500 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
4501 if (!NILP (timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4502 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4503 timer = XCAR (timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4504 vector = XVECTOR (timer)->contents;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4505 EMACS_SET_SECS (timer_time,
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4506 (XINT (vector[1]) << 16) | (XINT (vector[2])));
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
4507 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
4508 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
4509 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4510
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4511 /* 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
4512 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
4513 if (!NILP (idle_timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4514 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4515 idle_timer = XCAR (idle_timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4516 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
4517 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
4518 (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
4519 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
4520 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
4521 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4522
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4523 /* 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
4524 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
4525 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
4526
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4527 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
4528 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4529 EMACS_TIME temp;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4530 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
4531 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
4532 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4533 chosen_timer = timer;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4534 timers = XCDR (timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4535 difference = timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4536 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4537 else
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4538 {
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4539 chosen_timer = idle_timer;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4540 idle_timers = XCDR (idle_timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4541 difference = idle_timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4542 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4543 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4544 else if (! NILP (timers))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4545 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4546 chosen_timer = timer;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4547 timers = XCDR (timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4548 difference = timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4549 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4550 else
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4551 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4552 chosen_timer = idle_timer;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
4553 idle_timers = XCDR (idle_timers);
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4554 difference = idle_timer_difference;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4555 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4556 vector = XVECTOR (chosen_timer)->contents;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4557
28679
ab98f4a8d7e1 (timer_check): Fix typo in comment.
Gerd Moellmann <gerd@gnu.org>
parents: 28672
diff changeset
4558 /* If timer is ripe, run it if it hasn't been run. */
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4559 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
4560 || (EMACS_SECS (difference) == 0
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4561 && EMACS_USECS (difference) == 0))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4562 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4563 if (NILP (vector[0]))
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4564 {
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4565 int was_locked = single_kboard;
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46181
diff changeset
4566 int count = SPECPDL_INDEX ();
36826
4eacbecdf0d8 (timer_check): Preserve the value of deactivate-mark.
Gerd Moellmann <gerd@gnu.org>
parents: 36808
diff changeset
4567 Lisp_Object old_deactivate_mark = Vdeactivate_mark;
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4568
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4569 /* 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
4570 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
4571 vector[0] = Qt;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4572
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4573 specbind (Qinhibit_quit, Qt);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4574
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4575 call1 (Qtimer_event_handler, chosen_timer);
36826
4eacbecdf0d8 (timer_check): Preserve the value of deactivate-mark.
Gerd Moellmann <gerd@gnu.org>
parents: 36808
diff changeset
4576 Vdeactivate_mark = old_deactivate_mark;
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4577 timers_run++;
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4578 unbind_to (count, Qnil);
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4579
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4580 /* 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
4581 if (!was_locked)
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4582 any_kboard_state ();
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4583
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4584 /* Since we have handled the event,
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
4585 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
4586 }
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4587 }
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4588 else
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4589 /* 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
4590 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
4591 {
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4592 UNGCPRO;
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4593 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
4594 }
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4595 }
14710
7eab2355ad9c (timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents: 14695
diff changeset
4596
14453
58afa829c736 (make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents: 14406
diff changeset
4597 /* 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
4598 /* 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
4599 UNGCPRO;
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4600 return nexttime;
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4601 }
72445
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4602
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4603 DEFUN ("current-idle-time", Fcurrent_idle_time, Scurrent_idle_time, 0, 0, 0,
72540
0798c7030130 (in_sighandler): Remove variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72515
diff changeset
4604 doc: /* Return the current length of Emacs idleness.
72445
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4605 The value is returned as a list of three integers. The first has the
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4606 most significant 16 bits of the seconds, while the second has the
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4607 least significant 16 bits. The third integer gives the microsecond
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4608 count.
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4609
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4610 The microsecond count is zero on systems that do not provide
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4611 resolution finer than a second. */)
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4612 ()
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4613 {
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4614 if (! EMACS_TIME_NEG_P (timer_idleness_start_time))
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4615 {
72515
ac466a3d6da6 (Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents: 72474
diff changeset
4616 EMACS_TIME now, idleness_now;
ac466a3d6da6 (Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents: 72474
diff changeset
4617
ac466a3d6da6 (Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents: 72474
diff changeset
4618 EMACS_GET_TIME (now);
72445
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4619 EMACS_SUB_TIME (idleness_now, now, timer_idleness_start_time);
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4620
72515
ac466a3d6da6 (Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents: 72474
diff changeset
4621 return list3 (make_number ((EMACS_SECS (idleness_now) >> 16) & 0xffff),
ac466a3d6da6 (Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents: 72474
diff changeset
4622 make_number ((EMACS_SECS (idleness_now) >> 0) & 0xffff),
ac466a3d6da6 (Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents: 72474
diff changeset
4623 make_number (EMACS_USECS (idleness_now)));
72445
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4624 }
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4625
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4626 return Qnil;
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
4627 }
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
4628
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4629 /* 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
4630 static Lisp_Object accent_key_syms;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4631 static Lisp_Object func_key_syms;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4632 static Lisp_Object mouse_syms;
51384
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
4633 static Lisp_Object wheel_syms;
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
4634 static Lisp_Object drag_n_drop_syms;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4635
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4636 /* 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
4637 It parallels lispy_accent_keys. */
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4638
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4639 static int lispy_accent_codes[] =
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4640 {
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4641 #ifdef XK_dead_circumflex
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4642 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
4643 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4644 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4645 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4646 #ifdef XK_dead_grave
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4647 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
4648 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4649 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4650 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4651 #ifdef XK_dead_tilde
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4652 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
4653 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4654 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4655 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4656 #ifdef XK_dead_diaeresis
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4657 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
4658 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4659 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4660 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4661 #ifdef XK_dead_macron
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4662 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
4663 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4664 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4665 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4666 #ifdef XK_dead_degree
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4667 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
4668 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4669 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4670 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4671 #ifdef XK_dead_acute
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4672 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
4673 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4674 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4675 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4676 #ifdef XK_dead_cedilla
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4677 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
4678 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4679 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4680 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4681 #ifdef XK_dead_breve
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4682 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
4683 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4684 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4685 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4686 #ifdef XK_dead_ogonek
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4687 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
4688 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4689 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4690 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4691 #ifdef XK_dead_caron
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4692 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
4693 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4694 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4695 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4696 #ifdef XK_dead_doubleacute
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4697 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
4698 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4699 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4700 #endif
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4701 #ifdef XK_dead_abovedot
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4702 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
4703 #else
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4704 0,
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
4705 #endif
48086
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4706 #ifdef XK_dead_abovering
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4707 XK_dead_abovering,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4708 #else
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4709 0,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4710 #endif
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4711 #ifdef XK_dead_iota
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4712 XK_dead_iota,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4713 #else
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4714 0,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4715 #endif
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4716 #ifdef XK_dead_belowdot
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4717 XK_dead_belowdot,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4718 #else
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4719 0,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4720 #endif
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4721 #ifdef XK_dead_voiced_sound
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4722 XK_dead_voiced_sound,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4723 #else
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4724 0,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4725 #endif
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4726 #ifdef XK_dead_semivoiced_sound
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4727 XK_dead_semivoiced_sound,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4728 #else
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4729 0,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4730 #endif
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4731 #ifdef XK_dead_hook
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4732 XK_dead_hook,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4733 #else
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4734 0,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4735 #endif
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4736 #ifdef XK_dead_horn
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4737 XK_dead_horn,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4738 #else
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4739 0,
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4740 #endif
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4741 };
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4742
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4743 /* 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
4744 It parallels lispy_accent_codes. */
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4745
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4746 static char *lispy_accent_keys[] =
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4747 {
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4748 "dead-circumflex",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4749 "dead-grave",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4750 "dead-tilde",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4751 "dead-diaeresis",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4752 "dead-macron",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4753 "dead-degree",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4754 "dead-acute",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4755 "dead-cedilla",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4756 "dead-breve",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4757 "dead-ogonek",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4758 "dead-caron",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4759 "dead-doubleacute",
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4760 "dead-abovedot",
48086
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4761 "dead-abovering",
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4762 "dead-iota",
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4763 "dead-belowdot",
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4764 "dead-voiced-sound",
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4765 "dead-semivoiced-sound",
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4766 "dead-hook",
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4767 "dead-horn",
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4768 };
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
4769
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4770 #ifdef HAVE_NTGUI
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4771 #define FUNCTION_KEY_OFFSET 0x0
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4772
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4773 char *lispy_function_keys[] =
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4774 {
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4775 0, /* 0 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4776
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4777 0, /* VK_LBUTTON 0x01 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4778 0, /* VK_RBUTTON 0x02 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4779 "cancel", /* VK_CANCEL 0x03 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4780 0, /* VK_MBUTTON 0x04 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4781
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4782 0, 0, 0, /* 0x05 .. 0x07 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4783
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4784 "backspace", /* VK_BACK 0x08 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4785 "tab", /* VK_TAB 0x09 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4786
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4787 0, 0, /* 0x0A .. 0x0B */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4788
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4789 "clear", /* VK_CLEAR 0x0C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4790 "return", /* VK_RETURN 0x0D */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4791
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4792 0, 0, /* 0x0E .. 0x0F */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4793
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4794 0, /* VK_SHIFT 0x10 */
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4795 0, /* VK_CONTROL 0x11 */
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4796 0, /* VK_MENU 0x12 */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4797 "pause", /* VK_PAUSE 0x13 */
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4798 "capslock", /* VK_CAPITAL 0x14 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4799
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4800 0, 0, 0, 0, 0, 0, /* 0x15 .. 0x1A */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4801
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4802 "escape", /* VK_ESCAPE 0x1B */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4803
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4804 0, 0, 0, 0, /* 0x1C .. 0x1F */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4805
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4806 0, /* VK_SPACE 0x20 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4807 "prior", /* VK_PRIOR 0x21 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4808 "next", /* VK_NEXT 0x22 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4809 "end", /* VK_END 0x23 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4810 "home", /* VK_HOME 0x24 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4811 "left", /* VK_LEFT 0x25 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4812 "up", /* VK_UP 0x26 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4813 "right", /* VK_RIGHT 0x27 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4814 "down", /* VK_DOWN 0x28 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4815 "select", /* VK_SELECT 0x29 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4816 "print", /* VK_PRINT 0x2A */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4817 "execute", /* VK_EXECUTE 0x2B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4818 "snapshot", /* VK_SNAPSHOT 0x2C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4819 "insert", /* VK_INSERT 0x2D */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4820 "delete", /* VK_DELETE 0x2E */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4821 "help", /* VK_HELP 0x2F */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4822
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4823 /* VK_0 thru VK_9 are the same as ASCII '0' thru '9' (0x30 - 0x39) */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4824
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4825 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4826
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4827 0, 0, 0, 0, 0, 0, 0, /* 0x3A .. 0x40 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4828
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4829 /* VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' (0x41 - 0x5A) */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4830
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4831 0, 0, 0, 0, 0, 0, 0, 0, 0,
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4832 0, 0, 0, 0, 0, 0, 0, 0, 0,
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4833 0, 0, 0, 0, 0, 0, 0, 0,
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4834
14550
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4835 "lwindow", /* VK_LWIN 0x5B */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4836 "rwindow", /* VK_RWIN 0x5C */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4837 "apps", /* VK_APPS 0x5D */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4838
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4839 0, 0, /* 0x5E .. 0x5F */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4840
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4841 "kp-0", /* VK_NUMPAD0 0x60 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4842 "kp-1", /* VK_NUMPAD1 0x61 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4843 "kp-2", /* VK_NUMPAD2 0x62 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4844 "kp-3", /* VK_NUMPAD3 0x63 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4845 "kp-4", /* VK_NUMPAD4 0x64 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4846 "kp-5", /* VK_NUMPAD5 0x65 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4847 "kp-6", /* VK_NUMPAD6 0x66 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4848 "kp-7", /* VK_NUMPAD7 0x67 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4849 "kp-8", /* VK_NUMPAD8 0x68 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4850 "kp-9", /* VK_NUMPAD9 0x69 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4851 "kp-multiply", /* VK_MULTIPLY 0x6A */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4852 "kp-add", /* VK_ADD 0x6B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4853 "kp-separator", /* VK_SEPARATOR 0x6C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4854 "kp-subtract", /* VK_SUBTRACT 0x6D */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4855 "kp-decimal", /* VK_DECIMAL 0x6E */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4856 "kp-divide", /* VK_DIVIDE 0x6F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4857 "f1", /* VK_F1 0x70 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4858 "f2", /* VK_F2 0x71 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4859 "f3", /* VK_F3 0x72 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4860 "f4", /* VK_F4 0x73 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4861 "f5", /* VK_F5 0x74 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4862 "f6", /* VK_F6 0x75 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4863 "f7", /* VK_F7 0x76 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4864 "f8", /* VK_F8 0x77 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4865 "f9", /* VK_F9 0x78 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4866 "f10", /* VK_F10 0x79 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4867 "f11", /* VK_F11 0x7A */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4868 "f12", /* VK_F12 0x7B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4869 "f13", /* VK_F13 0x7C */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4870 "f14", /* VK_F14 0x7D */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4871 "f15", /* VK_F15 0x7E */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4872 "f16", /* VK_F16 0x7F */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4873 "f17", /* VK_F17 0x80 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4874 "f18", /* VK_F18 0x81 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4875 "f19", /* VK_F19 0x82 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4876 "f20", /* VK_F20 0x83 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4877 "f21", /* VK_F21 0x84 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4878 "f22", /* VK_F22 0x85 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4879 "f23", /* VK_F23 0x86 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4880 "f24", /* VK_F24 0x87 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4881
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4882 0, 0, 0, 0, /* 0x88 .. 0x8B */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4883 0, 0, 0, 0, /* 0x8C .. 0x8F */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4884
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4885 "kp-numlock", /* VK_NUMLOCK 0x90 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4886 "scroll", /* VK_SCROLL 0x91 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4887
14550
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4888 "kp-space", /* VK_NUMPAD_CLEAR 0x92 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4889 "kp-enter", /* VK_NUMPAD_ENTER 0x93 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4890 "kp-prior", /* VK_NUMPAD_PRIOR 0x94 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4891 "kp-next", /* VK_NUMPAD_NEXT 0x95 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4892 "kp-end", /* VK_NUMPAD_END 0x96 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4893 "kp-home", /* VK_NUMPAD_HOME 0x97 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4894 "kp-left", /* VK_NUMPAD_LEFT 0x98 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4895 "kp-up", /* VK_NUMPAD_UP 0x99 */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4896 "kp-right", /* VK_NUMPAD_RIGHT 0x9A */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4897 "kp-down", /* VK_NUMPAD_DOWN 0x9B */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4898 "kp-insert", /* VK_NUMPAD_INSERT 0x9C */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4899 "kp-delete", /* VK_NUMPAD_DELETE 0x9D */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4900
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4901 0, 0, /* 0x9E .. 0x9F */
2c5fedd784b2 [HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents: 14537
diff changeset
4902
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4903 /*
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4904 * VK_L* & VK_R* - left and right Alt, Ctrl and Shift virtual keys.
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
4905 * Used only as parameters to GetAsyncKeyState and GetKeyState.
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4906 * 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
4907 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4908 /* 0xA0 .. 0xEF */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4909
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4910 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
4911 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
4912 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
4913 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
4914 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4915
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4916 /* 0xF0 .. 0xF5 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4917
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4918 0, 0, 0, 0, 0, 0,
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4919
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4920 "attn", /* VK_ATTN 0xF6 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4921 "crsel", /* VK_CRSEL 0xF7 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4922 "exsel", /* VK_EXSEL 0xF8 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4923 "ereof", /* VK_EREOF 0xF9 */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4924 "play", /* VK_PLAY 0xFA */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4925 "zoom", /* VK_ZOOM 0xFB */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4926 "noname", /* VK_NONAME 0xFC */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4927 "pa1", /* VK_PA1 0xFD */
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4928 "oem_clear", /* VK_OEM_CLEAR 0xFE */
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
4929 0 /* 0xFF */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4930 };
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4931
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
4932 #else /* not HAVE_NTGUI */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
4933
48086
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4934 /* This should be dealt with in XTread_socket now, and that doesn't
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4935 depend on the client system having the Kana syms defined. See also
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4936 the XK_kana_A case below. */
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4937 #if 0
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4938 #ifdef XK_kana_A
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4939 static char *lispy_kana_keys[] =
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4940 {
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4941 /* X Keysym value */
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4942 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
4943 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
4944 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
4945 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
4946 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
4947 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
4948 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
4949 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
4950 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
4951 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x490 .. 0x49f */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
4952 0, "kana-fullstop", "kana-openingbracket", "kana-closingbracket",
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4953 "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
4954 "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
4955 "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
4956 "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
4957 "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
4958 "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
4959 "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
4960 "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
4961 "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
4962 "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
4963 "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
4964 "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
4965 "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
4966 "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
4967 "kana-WA", "kana-N", "voicedsound", "semivoicedsound",
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4968 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
4969 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
4970 };
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4971 #endif /* XK_kana_A */
48086
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
4972 #endif /* 0 */
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
4973
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
4974 #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
4975
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4976 /* You'll notice that this table is arranged to be conveniently
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4977 indexed by X Windows keysym values. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4978 static char *lispy_function_keys[] =
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4979 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4980 /* X Keysym value */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4981
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4982 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff00...0f */
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4983 "backspace", "tab", "linefeed", "clear",
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4984 0, "return", 0, 0,
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4985 0, 0, 0, "pause", /* 0xff10...1f */
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4986 0, 0, 0, 0, 0, 0, 0, "escape",
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
4987 0, 0, 0, 0,
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4988 0, "kanji", "muhenkan", "henkan", /* 0xff20...2f */
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4989 "romaji", "hiragana", "katakana", "hiragana-katakana",
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4990 "zenkaku", "hankaku", "zenkaku-hankaku", "touroku",
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4991 "massyo", "kana-lock", "kana-shift", "eisu-shift",
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4992 "eisu-toggle", /* 0xff30...3f */
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4993 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
4994 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
4995
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4996 "home", "left", "up", "right", /* 0xff50 */ /* IsCursorKey */
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4997 "down", "prior", "next", "end",
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
4998 "begin", 0, 0, 0, 0, 0, 0, 0,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4999 "select", /* 0xff60 */ /* IsMiscFunctionKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5000 "print",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5001 "execute",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5002 "insert",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5003 0, /* 0xff64 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5004 "undo",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5005 "redo",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5006 "menu",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5007 "find",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5008 "cancel",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5009 "help",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5010 "break", /* 0xff6b */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5011
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
5012 0, 0, 0, 0,
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
5013 0, 0, 0, 0, "backtab", 0, 0, 0, /* 0xff70... */
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
5014 0, 0, 0, 0, 0, 0, 0, "kp-numlock", /* 0xff78... */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5015 "kp-space", /* 0xff80 */ /* IsKeypadKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5016 0, 0, 0, 0, 0, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5017 "kp-tab", /* 0xff89 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5018 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5019 "kp-enter", /* 0xff8d */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5020 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5021 "kp-f1", /* 0xff91 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5022 "kp-f2",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5023 "kp-f3",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5024 "kp-f4",
7547
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5025 "kp-home", /* 0xff95 */
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5026 "kp-left",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5027 "kp-up",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5028 "kp-right",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5029 "kp-down",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5030 "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
5031 "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
5032 "kp-end",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5033 "kp-begin",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5034 "kp-insert",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5035 "kp-delete",
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5036 0, /* 0xffa0 */
ca777847b11f (lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents: 7532
diff changeset
5037 0, 0, 0, 0, 0, 0, 0, 0, 0,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5038 "kp-multiply", /* 0xffaa */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5039 "kp-add",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5040 "kp-separator",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5041 "kp-subtract",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5042 "kp-decimal",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5043 "kp-divide", /* 0xffaf */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5044 "kp-0", /* 0xffb0 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5045 "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
5046 0, /* 0xffba */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5047 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5048 "kp-equal", /* 0xffbd */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5049 "f1", /* 0xffbe */ /* IsFunctionKey */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5050 "f2",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5051 "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
5052 "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
5053 "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
5054 "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
5055 "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
5056 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
5057 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
5058 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
5059 };
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5060
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5061 /* 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
5062 #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
5063
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5064 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
5065 {
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5066 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
5067 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
5068 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
5069 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
5070 "iso-lefttab", /* 0xfe20 */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5071 "iso-move-line-up", "iso-move-line-down",
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5072 "iso-partial-line-up", "iso-partial-line-down",
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5073 "iso-partial-space-left", "iso-partial-space-right",
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5074 "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
5075 "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
5076 "iso-release-both-margins",
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5077 "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
5078 "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
5079 "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
5080 "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
5081 };
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5082
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5083 #endif /* not HAVE_NTGUI */
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
5084
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5085 Lisp_Object Vlispy_mouse_stem;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5086
51384
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5087 static char *lispy_wheel_names[] =
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5088 {
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5089 "wheel-up", "wheel-down"
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5090 };
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5091
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5092 /* drag-n-drop events are generated when a set of selected files are
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5093 dragged from another application and dropped onto an Emacs window. */
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5094 static char *lispy_drag_n_drop_names[] =
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5095 {
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5096 "drag-n-drop"
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5097 };
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5098
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
5099 /* Scroll bar parts. */
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5100 Lisp_Object Qabove_handle, Qhandle, Qbelow_handle;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5101 Lisp_Object Qup, Qdown, Qbottom, Qend_scroll;
26788
5e97315b6f11 * keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26480
diff changeset
5102 Lisp_Object Qtop, Qratio;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5103
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
5104 /* 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
5105 Lisp_Object *scroll_bar_parts[] = {
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5106 &Qabove_handle, &Qhandle, &Qbelow_handle,
26788
5e97315b6f11 * keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26480
diff changeset
5107 &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5108 };
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5109
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5110 /* 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
5111 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
5112
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5113 The elements have the form
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5114 (BUTTON-NUMBER MODIFIER-MASK . REST)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5115 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
5116
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5117 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
5118 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
5119 location to be included in drag events. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5120
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5121 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
5122
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5123 /* 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
5124 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
5125
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5126 static int last_mouse_button;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5127 static int last_mouse_x;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5128 static int last_mouse_y;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5129 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
5130
38602
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
5131 /* The maximum time between clicks to make a double-click, or Qnil to
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
5132 disable double-click detection, or Qt for no time limit. */
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
5133
3993
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
5134 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
5135
38602
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
5136 /* Maximum number of pixels the mouse may be moved between clicks
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
5137 to make a double-click. */
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
5138
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43496
diff changeset
5139 EMACS_INT double_click_fuzz;
38602
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
5140
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5141 /* 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
5142
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5143 int double_click_count;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5144
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5145 /* Return position of a mouse click or wheel event */
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5146
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5147 static Lisp_Object
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5148 make_lispy_position (f, x, y, time)
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5149 struct frame *f;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5150 Lisp_Object *x, *y;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5151 unsigned long time;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5152 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5153 Lisp_Object window;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5154 enum window_part part;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5155 Lisp_Object posn = Qnil;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5156 Lisp_Object extra_info = Qnil;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5157 int wx, wy;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5158
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5159 /* Set `window' to the window under frame pixel coordinates (x,y) */
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5160 if (f)
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5161 window = window_from_coordinates (f, XINT (*x), XINT (*y),
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5162 &part, &wx, &wy, 0);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5163 else
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5164 window = Qnil;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5165
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5166 if (WINDOWP (window))
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5167 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5168 /* It's a click in window window at frame coordinates (x,y) */
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5169 struct window *w = XWINDOW (window);
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5170 Lisp_Object string_info = Qnil;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5171 int textpos = -1, rx = -1, ry = -1;
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5172 int dx = -1, dy = -1;
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5173 int width = -1, height = -1;
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5174 Lisp_Object object = Qnil;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5175
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5176 /* Set event coordinates to window-relative coordinates
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5177 for constructing the Lisp event below. */
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5178 XSETINT (*x, wx);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5179 XSETINT (*y, wy);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5180
66076
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
5181 if (part == ON_TEXT)
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
5182 {
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
5183 wx += WINDOW_LEFT_MARGIN_WIDTH (w);
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
5184 }
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
5185 else if (part == ON_MODE_LINE || part == ON_HEADER_LINE)
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5186 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5187 /* Mode line or header line. Look for a string under
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5188 the mouse that may have a `local-map' property. */
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5189 Lisp_Object string;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5190 int charpos;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5191
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5192 posn = part == ON_MODE_LINE ? Qmode_line : Qheader_line;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5193 rx = wx, ry = wy;
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5194 string = mode_line_string (w, part, &rx, &ry, &charpos,
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5195 &object, &dx, &dy, &width, &height);
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5196 if (STRINGP (string))
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5197 string_info = Fcons (string, make_number (charpos));
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5198 if (w == XWINDOW (selected_window))
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5199 textpos = PT;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5200 else
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5201 textpos = XMARKER (w->pointm)->charpos;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5202 }
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5203 else if (part == ON_VERTICAL_BORDER)
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5204 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5205 posn = Qvertical_line;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5206 wx = -1;
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5207 dx = 0;
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5208 width = 1;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5209 }
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5210 else if (part == ON_LEFT_MARGIN || part == ON_RIGHT_MARGIN)
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5211 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5212 Lisp_Object string;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5213 int charpos;
54087
5a946bc3433a Fix whitespace.
Kim F. Storm <storm@cua.dk>
parents: 54086
diff changeset
5214
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5215 posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5216 rx = wx, ry = wy;
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5217 string = marginal_area_string (w, part, &rx, &ry, &charpos,
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5218 &object, &dx, &dy, &width, &height);
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5219 if (STRINGP (string))
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5220 string_info = Fcons (string, make_number (charpos));
66019
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5221 if (part == ON_LEFT_MARGIN)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5222 wx = 0;
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5223 else
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5224 wx = window_box_right_offset (w, TEXT_AREA) - 1;
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5225 }
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5226 else if (part == ON_LEFT_FRINGE)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5227 {
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5228 posn = Qleft_fringe;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5229 rx = 0;
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5230 dx = wx;
66019
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5231 wx = (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5232 ? 0
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5233 : window_box_width (w, LEFT_MARGIN_AREA));
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5234 dx -= wx;
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5235 }
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5236 else if (part == ON_RIGHT_FRINGE)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5237 {
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5238 posn = Qright_fringe;
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5239 rx = 0;
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5240 dx = wx;
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5241 wx = (window_box_width (w, LEFT_MARGIN_AREA)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5242 + window_box_width (w, TEXT_AREA)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5243 + (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5244 ? window_box_width (w, RIGHT_MARGIN_AREA)
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5245 : 0));
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5246 dx -= wx;
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5247 }
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5248 else
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5249 {
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5250 /* Note: We have no special posn for part == ON_SCROLL_BAR. */
26e41053c306 (make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents: 66001
diff changeset
5251 wx = max (WINDOW_LEFT_MARGIN_WIDTH (w), wx);
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5252 }
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5253
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5254 if (textpos < 0)
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5255 {
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5256 Lisp_Object string2, object2 = Qnil;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5257 struct display_pos p;
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5258 int dx2, dy2;
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5259 int width2, height2;
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5260 string2 = buffer_posn_from_coords (w, &wx, &wy, &p,
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5261 &object2, &dx2, &dy2,
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5262 &width2, &height2);
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5263 textpos = CHARPOS (p.pos);
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5264 if (rx < 0) rx = wx;
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5265 if (ry < 0) ry = wy;
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5266 if (dx < 0) dx = dx2;
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
5267 if (dy < 0) dy = dy2;
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5268 if (width < 0) width = width2;
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5269 if (height < 0) height = height2;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5270
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5271 if (NILP (posn))
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5272 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5273 posn = make_number (textpos);
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5274 if (STRINGP (string2))
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5275 string_info = Fcons (string2,
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5276 make_number (CHARPOS (p.string_pos)));
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5277 }
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5278 if (NILP (object))
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5279 object = object2;
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5280 }
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5281
53330
2dfa97148836 (Qimage): Remove extern (now in lisp.h).
Kim F. Storm <storm@cua.dk>
parents: 53178
diff changeset
5282 #ifdef HAVE_WINDOW_SYSTEM
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5283 if (IMAGEP (object))
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5284 {
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5285 Lisp_Object image_map, hotspot;
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5286 if ((image_map = Fplist_get (XCDR (object), QCmap),
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5287 !NILP (image_map))
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5288 && (hotspot = find_hot_spot (image_map, dx, dy),
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5289 CONSP (hotspot))
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5290 && (hotspot = XCDR (hotspot), CONSP (hotspot)))
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5291 posn = XCAR (hotspot);
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5292 }
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5293 #endif
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5294
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5295 /* Object info */
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5296 extra_info = Fcons (object,
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5297 Fcons (Fcons (make_number (dx),
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5298 make_number (dy)),
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5299 Fcons (Fcons (make_number (width),
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5300 make_number (height)),
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5301 Qnil)));
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5302
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5303 /* String info */
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5304 extra_info = Fcons (string_info,
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5305 Fcons (make_number (textpos),
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5306 Fcons (Fcons (make_number (rx),
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5307 make_number (ry)),
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
5308 extra_info)));
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5309 }
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5310 else if (f != 0)
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5311 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5312 XSETFRAME (window, f);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5313 }
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5314 else
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5315 {
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5316 window = Qnil;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5317 XSETFASTINT (*x, 0);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5318 XSETFASTINT (*y, 0);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5319 }
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5320
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5321 return Fcons (window,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5322 Fcons (posn,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5323 Fcons (Fcons (*x, *y),
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5324 Fcons (make_number (time),
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5325 extra_info))));
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5326 }
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5327
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5328 /* Given a struct input_event, build the lisp event which represents
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5329 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
5330 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
5331
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5332 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
5333 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
5334 in order to build drag events when the button is released. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5335
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5336 static Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5337 make_lispy_event (event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5338 struct input_event *event;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5339 {
5394
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
5340 int i;
ca6521958577 (lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents: 5371
diff changeset
5341
10457
2ab3bd0288a9 Change all occurences of SWITCH_ENUM_BUG to use SWITCH_ENUM_CAST instead.
Karl Heuer <kwzh@gnu.org>
parents: 10433
diff changeset
5342 switch (SWITCH_ENUM_CAST (event->kind))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5343 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5344 /* A simple keystroke. */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5345 case ASCII_KEYSTROKE_EVENT:
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5346 {
8938
16c1ca187613 (kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents: 8936
diff changeset
5347 Lisp_Object lispy_c;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5348 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
5349 /* 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
5350 when proper. */
5b72eb2483e7 * xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents: 2789
diff changeset
5351 if (event->modifiers & ctrl_modifier)
2954
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
5352 c = make_ctrl_char (c);
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
5353
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
5354 /* 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
5355 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
5356 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
5357 c |= (event->modifiers
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5358 & (meta_modifier | alt_modifier
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5359 | hyper_modifier | super_modifier));
18778
7626e0d30719 (make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents: 18777
diff changeset
5360 /* Distinguish Shift-SPC from SPC. */
7626e0d30719 (make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents: 18777
diff changeset
5361 if ((event->code & 0377) == 040
7626e0d30719 (make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents: 18777
diff changeset
5362 && event->modifiers & shift_modifier)
7626e0d30719 (make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents: 18777
diff changeset
5363 c |= shift_modifier;
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5364 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
5365 XSETFASTINT (lispy_c, c);
8938
16c1ca187613 (kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents: 8936
diff changeset
5366 return lispy_c;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5367 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5368
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5369 case MULTIBYTE_CHAR_KEYSTROKE_EVENT:
30749
7a0d5d24269e (make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents: 30709
diff changeset
5370 {
7a0d5d24269e (make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents: 30709
diff changeset
5371 Lisp_Object lispy_c;
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5372 int c = event->code;
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5373
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5374 /* Add in the other modifier bits. We took care of ctrl_modifier
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5375 just above, and the shift key was taken care of by the X code,
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5376 and applied to control characters by make_ctrl_char. */
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5377 c |= (event->modifiers
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5378 & (meta_modifier | alt_modifier
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5379 | hyper_modifier | super_modifier | ctrl_modifier));
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5380 /* What about the `shift' modifier ? */
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5381 button_down_time = 0;
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
5382 XSETFASTINT (lispy_c, c);
30749
7a0d5d24269e (make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents: 30709
diff changeset
5383 return lispy_c;
7a0d5d24269e (make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents: 30709
diff changeset
5384 }
7a0d5d24269e (make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents: 30709
diff changeset
5385
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5386 /* A function key. The symbol may need to have modifier prefixes
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5387 tacked onto it. */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5388 case NON_ASCII_KEYSTROKE_EVENT:
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5389 button_down_time = 0;
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5390
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5391 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
5392 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
5393 return modify_event_symbol (i,
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5394 event->modifiers,
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
5395 Qfunction_key, Qnil,
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5396 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
5397 (sizeof (lispy_accent_keys)
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5398 / sizeof (lispy_accent_keys[0])));
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5399
48086
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
5400 #if 0
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5401 #ifdef XK_kana_A
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5402 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
5403 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
5404 event->modifiers & ~shift_modifier,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5405 Qfunction_key, Qnil,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5406 lispy_kana_keys, &func_key_syms,
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5407 (sizeof (lispy_kana_keys)
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5408 / sizeof (lispy_kana_keys[0])));
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5409 #endif /* XK_kana_A */
48086
b61109579f17 (lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents: 47759
diff changeset
5410 #endif /* 0 */
17035
275c20d27886 (command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents: 16873
diff changeset
5411
18513
948557b5aa7c (make_lispy_event): Check that ISO_FUNCTION_KEY_OFFSET is defined.
Richard M. Stallman <rms@gnu.org>
parents: 18501
diff changeset
5412 #ifdef ISO_FUNCTION_KEY_OFFSET
17231
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5413 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
5414 && 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
5415 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
5416 event->modifiers,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5417 Qfunction_key, Qnil,
0bd89f686cb6 (make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents: 17035
diff changeset
5418 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
5419 (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
5420 / sizeof (iso_lispy_function_keys[0])));
44353
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5421 #endif
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5422
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5423 /* Handle system-specific or unknown keysyms. */
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5424 if (event->code & (1 << 28)
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5425 || event->code - FUNCTION_KEY_OFFSET < 0
39578
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5426 || (event->code - FUNCTION_KEY_OFFSET
44353
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5427 >= sizeof lispy_function_keys / sizeof *lispy_function_keys)
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5428 || !lispy_function_keys[event->code - FUNCTION_KEY_OFFSET])
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5429 {
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5430 /* We need to use an alist rather than a vector as the cache
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5431 since we can't make a vector long enuf. */
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5432 if (NILP (current_kboard->system_key_syms))
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5433 current_kboard->system_key_syms = Fcons (Qnil, Qnil);
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5434 return modify_event_symbol (event->code,
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5435 event->modifiers,
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5436 Qfunction_key,
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5437 current_kboard->Vsystem_key_alist,
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5438 0, &current_kboard->system_key_syms,
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5439 (unsigned) -1);
4c66bc116ca9 (make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44338
diff changeset
5440 }
39578
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5441
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5442 return modify_event_symbol (event->code - FUNCTION_KEY_OFFSET,
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5443 event->modifiers,
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5444 Qfunction_key, Qnil,
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5445 lispy_function_keys, &func_key_syms,
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5446 (sizeof (lispy_function_keys)
1d808e902c17 (make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents: 39452
diff changeset
5447 / sizeof (lispy_function_keys[0])));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5448
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
5449 #ifdef HAVE_MOUSE
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
5450 /* 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
5451 a press, click or drag, and build the appropriate structure. */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5452 case MOUSE_CLICK_EVENT:
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5453 #ifndef USE_TOOLKIT_SCROLL_BARS
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5454 case SCROLL_BAR_CLICK_EVENT:
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5455 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5456 {
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
5457 int button = event->code;
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5458 int is_double;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5459 Lisp_Object position;
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5460 Lisp_Object *start_pos_ptr;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5461 Lisp_Object start_pos;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5462
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
5463 position = Qnil;
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
5464
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5465 /* Build the position as appropriate for this mouse click. */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5466 if (event->kind == MOUSE_CLICK_EVENT)
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5467 {
38792
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5468 struct frame *f = XFRAME (event->frame_or_window);
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5469 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5470 int row, column;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5471 #endif
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5472
7351
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
5473 /* 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
5474 have been deleted. */
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
5475 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
5476 return Qnil;
f5cf08a3a645 (make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents: 7345
diff changeset
5477
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5478 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5479 /* EVENT->x and EVENT->y are frame-relative pixel
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5480 coordinates at this place. Under old redisplay, COLUMN
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5481 and ROW are set to frame relative glyph coordinates
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5482 which are then used to determine whether this click is
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5483 in a menu (non-toolkit version). */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5484 pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y),
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5485 &column, &row, NULL, 1);
10275
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
5486
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
5487 /* 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
5488 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
5489 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
5490
0231c0d38918 (make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents: 10233
diff changeset
5491 (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
5492 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
5493 makes a selection.) */
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
5494 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
5495 && (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
5496 {
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5497 Lisp_Object items, item;
8169
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
5498 int hpos;
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
5499 int i;
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
5500
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
5501 #if 0
8169
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
5502 /* 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
5503 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
5504 just ignore it. */
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
5505 if (! (event->modifiers & down_modifier))
09a8da4ffadf (make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents: 8089
diff changeset
5506 return Qnil;
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
5507 #endif
6024
0aa565fdb1b9 (make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents: 6020
diff changeset
5508
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5509 /* Find the menu bar item under `column'. */
6812
ba2176fd811c (make_lispy_event): Initialize item.
Karl Heuer <kwzh@gnu.org>
parents: 6805
diff changeset
5510 item = Qnil;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5511 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
5512 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
5513 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5514 Lisp_Object pos, string;
36663
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5515 string = AREF (items, i + 1);
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5516 pos = AREF (items, i + 3);
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5517 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
5518 break;
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5519 if (column >= XINT (pos)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
5520 && column < XINT (pos) + SCHARS (string))
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5521 {
36663
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5522 item = AREF (items, i);
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5523 break;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5524 }
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5525 }
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5526
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5527 /* ELisp manual 2.4b says (x y) are window relative but
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5528 code says they are frame-relative. */
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5529 position
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5530 = Fcons (event->frame_or_window,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5531 Fcons (Qmenu_bar,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5532 Fcons (Fcons (event->x, event->y),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5533 Fcons (make_number (event->timestamp),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5534 Qnil))));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5535
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
5536 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
5537 }
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49193
diff changeset
5538 #endif /* not USE_X_TOOLKIT && not USE_GTK */
6024
0aa565fdb1b9 (make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents: 6020
diff changeset
5539
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5540 position = make_lispy_position (f, &event->x, &event->y,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5541 event->timestamp);
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5542 }
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5543 #ifndef USE_TOOLKIT_SCROLL_BARS
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5544 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5545 {
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5546 /* It's a scrollbar click. */
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5547 Lisp_Object window;
6053
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5548 Lisp_Object portion_whole;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5549 Lisp_Object part;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5550
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5551 window = event->frame_or_window;
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5552 portion_whole = Fcons (event->x, event->y);
19d123e039fa (make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents: 6024
diff changeset
5553 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
5554
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5555 position
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5556 = Fcons (window,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5557 Fcons (Qvertical_scroll_bar,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5558 Fcons (portion_whole,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5559 Fcons (make_number (event->timestamp),
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5560 Fcons (part, Qnil)))));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5561 }
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5562 #endif /* not USE_TOOLKIT_SCROLL_BARS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5563
36663
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5564 if (button >= ASIZE (button_down_location))
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5565 {
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5566 button_down_location = larger_vector (button_down_location,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5567 button + 1, Qnil);
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5568 mouse_syms = larger_vector (mouse_syms, button + 1, Qnil);
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5569 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5570
36663
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5571 start_pos_ptr = &AREF (button_down_location, button);
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5572 start_pos = *start_pos_ptr;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5573 *start_pos_ptr = Qnil;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5574
38792
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5575 {
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5576 /* On window-system frames, use the value of
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5577 double-click-fuzz as is. On other frames, interpret it
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5578 as a multiple of 1/8 characters. */
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5579 struct frame *f;
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5580 int fuzz;
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5581
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5582 if (WINDOWP (event->frame_or_window))
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5583 f = XFRAME (XWINDOW (event->frame_or_window)->frame);
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5584 else if (FRAMEP (event->frame_or_window))
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5585 f = XFRAME (event->frame_or_window);
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5586 else
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5587 abort ();
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5588
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5589 if (FRAME_WINDOW_P (f))
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5590 fuzz = double_click_fuzz;
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5591 else
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5592 fuzz = double_click_fuzz / 8;
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5593
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5594 is_double = (button == last_mouse_button
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5595 && (abs (XINT (event->x) - last_mouse_x) <= fuzz)
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5596 && (abs (XINT (event->y) - last_mouse_y) <= fuzz)
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5597 && button_down_time != 0
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5598 && (EQ (Vdouble_click_time, Qt)
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5599 || (INTEGERP (Vdouble_click_time)
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5600 && ((int)(event->timestamp - button_down_time)
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5601 < XINT (Vdouble_click_time)))));
c9b9238088f3 (make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents: 38772
diff changeset
5602 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5603
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5604 last_mouse_button = button;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5605 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
5606 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
5607
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5608 /* 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
5609 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
5610 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
5611 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5612 if (is_double)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5613 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5614 double_click_count++;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5615 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
5616 ? triple_modifier
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5617 : double_modifier);
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5618 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5619 else
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5620 double_click_count = 1;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5621 button_down_time = event->timestamp;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5622 *start_pos_ptr = Fcopy_alist (position);
74621
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5623 ignore_mouse_drag_p = 0;
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
5624 }
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5625
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5626 /* 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
5627 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
5628 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
5629 {
36663
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5630 /* If we did not see a down before this up, ignore the up.
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5631 Probably this happened because the down event chose a
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5632 menu item. It would be an annoyance to treat the
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5633 release of the button that chose the menu item as a
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5634 separate event. */
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5635
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
5636 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
5637 return Qnil;
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5638
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5639 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
5640 #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
5641 if (!CONSP (start_pos))
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5642 event->modifiers |= click_modifier;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5643 else
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5644 #endif
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5645 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
5646 Lisp_Object down;
40736
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5647 EMACS_INT xdiff = double_click_fuzz, ydiff = double_click_fuzz;
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5648
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5649 /* The third element of every position
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5650 should be the (x,y) pair. */
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5651 down = Fcar (Fcdr (Fcdr (start_pos)));
40775
2b25276add88 (make_lispy_event): Check integerness and fix Lisp_Object/int mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40736
diff changeset
5652 if (CONSP (down)
2b25276add88 (make_lispy_event): Check integerness and fix Lisp_Object/int mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40736
diff changeset
5653 && INTEGERP (XCAR (down)) && INTEGERP (XCDR (down)))
40736
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5654 {
65816
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5655 xdiff = XINT (event->x) - XINT (XCAR (down));
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5656 ydiff = XINT (event->y) - XINT (XCDR (down));
40736
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5657 }
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5658
74621
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5659 if (ignore_mouse_drag_p)
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5660 {
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5661 event->modifiers |= click_modifier;
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5662 ignore_mouse_drag_p = 0;
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5663 }
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5664 else if (xdiff < double_click_fuzz && xdiff > - double_click_fuzz
130738a27be7 (ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents: 74611
diff changeset
5665 && ydiff < double_click_fuzz && ydiff > - double_click_fuzz
65816
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5666 /* Maybe the mouse has moved a lot, caused scrolling, and
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5667 eventually ended up at the same screen position (but
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5668 not buffer position) in which case it is a drag, not
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5669 a click. */
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5670 /* FIXME: OTOH if the buffer position has changed
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5671 because of a timer or process filter rather than
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5672 because of mouse movement, it should be considered as
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5673 a click. But mouse-drag-region completely ignores
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5674 this case and it hasn't caused any real problem, so
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5675 it's probably OK to ignore it as well. */
95baa5a5fb95 (make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65769
diff changeset
5676 && EQ (Fcar (Fcdr (start_pos)), Fcar (Fcdr (position))))
40736
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5677 /* Mouse hasn't moved (much). */
36663
604d7fae62d1 (make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents: 36255
diff changeset
5678 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
5679 else
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5680 {
40736
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5681 button_down_time = 0;
d6395595f8ac (read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents: 40733
diff changeset
5682 event->modifiers |= drag_modifier;
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5683 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5684
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
5685 /* 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
5686 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
5687 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
5688 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
5689 ? triple_modifier
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
5690 : double_modifier);
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5691 }
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5692 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5693 else
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5694 /* 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
5695 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
5696 abort ();
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5697
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5698 {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5699 /* 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
5700 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
5701
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
5702 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
5703 event->modifiers,
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5704 Qmouse_click, Vlispy_mouse_stem,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5705 NULL,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5706 &mouse_syms,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5707 XVECTOR (mouse_syms)->size);
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5708 if (event->modifiers & drag_modifier)
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5709 return Fcons (head,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5710 Fcons (start_pos,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5711 Fcons (position,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5712 Qnil)));
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5713 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
5714 return Fcons (head,
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5715 Fcons (position,
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5716 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
5717 Qnil)));
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5718 else
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5719 return Fcons (head,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5720 Fcons (position,
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5721 Qnil));
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5722 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5723 }
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5724
51384
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5725 case WHEEL_EVENT:
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5726 {
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5727 Lisp_Object position;
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5728 Lisp_Object head;
54087
5a946bc3433a Fix whitespace.
Kim F. Storm <storm@cua.dk>
parents: 54086
diff changeset
5729
51385
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5730 /* Build the position as appropriate for this mouse click. */
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5731 struct frame *f = XFRAME (event->frame_or_window);
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5732
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5733 /* Ignore wheel events that were made on frame that have been
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5734 deleted. */
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5735 if (! FRAME_LIVE_P (f))
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5736 return Qnil;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5737
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5738 position = make_lispy_position (f, &event->x, &event->y,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5739 event->timestamp);
51385
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5740
74145
8eceefbbcde7 Space/tab mixup.
Juanma Barranquero <lekktu@gmail.com>
parents: 73463
diff changeset
5741 /* Set double or triple modifiers to indicate the wheel speed. */
51385
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5742 {
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5743 /* On window-system frames, use the value of
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5744 double-click-fuzz as is. On other frames, interpret it
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5745 as a multiple of 1/8 characters. */
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5746 struct frame *f;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5747 int fuzz;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5748 int is_double;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5749
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5750 if (WINDOWP (event->frame_or_window))
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5751 f = XFRAME (XWINDOW (event->frame_or_window)->frame);
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5752 else if (FRAMEP (event->frame_or_window))
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5753 f = XFRAME (event->frame_or_window);
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5754 else
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5755 abort ();
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5756
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5757 if (FRAME_WINDOW_P (f))
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5758 fuzz = double_click_fuzz;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5759 else
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5760 fuzz = double_click_fuzz / 8;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5761
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5762 is_double = (last_mouse_button < 0
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5763 && (abs (XINT (event->x) - last_mouse_x) <= fuzz)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5764 && (abs (XINT (event->y) - last_mouse_y) <= fuzz)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5765 && button_down_time != 0
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5766 && (EQ (Vdouble_click_time, Qt)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5767 || (INTEGERP (Vdouble_click_time)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5768 && ((int)(event->timestamp - button_down_time)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5769 < XINT (Vdouble_click_time)))));
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5770 if (is_double)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5771 {
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5772 double_click_count++;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5773 event->modifiers |= ((double_click_count > 2)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5774 ? triple_modifier
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5775 : double_modifier);
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5776 }
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5777 else
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5778 {
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5779 double_click_count = 1;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5780 event->modifiers |= click_modifier;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5781 }
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5782
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5783 button_down_time = event->timestamp;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5784 /* Use a negative value to distinguish wheel from mouse button. */
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5785 last_mouse_button = -1;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5786 last_mouse_x = XINT (event->x);
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5787 last_mouse_y = XINT (event->y);
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5788 }
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5789
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5790 {
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5791 int symbol_num;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5792
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5793 if (event->modifiers & up_modifier)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5794 {
74145
8eceefbbcde7 Space/tab mixup.
Juanma Barranquero <lekktu@gmail.com>
parents: 73463
diff changeset
5795 /* Emit a wheel-up event. */
51385
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5796 event->modifiers &= ~up_modifier;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5797 symbol_num = 0;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5798 }
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5799 else if (event->modifiers & down_modifier)
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5800 {
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5801 /* Emit a wheel-down event. */
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5802 event->modifiers &= ~down_modifier;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5803 symbol_num = 1;
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5804 }
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5805 else
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5806 /* Every wheel event should either have the down_modifier or
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5807 the up_modifier set. */
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5808 abort ();
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5809
74145
8eceefbbcde7 Space/tab mixup.
Juanma Barranquero <lekktu@gmail.com>
parents: 73463
diff changeset
5810 /* Get the symbol we should use for the wheel event. */
51385
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5811 head = modify_event_symbol (symbol_num,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5812 event->modifiers,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5813 Qmouse_click,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5814 Qnil,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5815 lispy_wheel_names,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5816 &wheel_syms,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5817 ASIZE (wheel_syms));
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5818 }
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5819
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5820 if (event->modifiers & (double_modifier | triple_modifier))
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5821 return Fcons (head,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5822 Fcons (position,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5823 Fcons (make_number (double_click_count),
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5824 Qnil)));
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5825 else
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5826 return Fcons (head,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5827 Fcons (position,
a838a46a67a6 Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents: 51384
diff changeset
5828 Qnil));
51384
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5829 }
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5830
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
5831
46718
175cd09f34d2 (make_lispy_event): Use #ifdef to test USE_TOOLKIT_SCROLL_BARS.
Richard M. Stallman <rms@gnu.org>
parents: 46572
diff changeset
5832 #ifdef USE_TOOLKIT_SCROLL_BARS
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5833
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5834 /* We don't have down and up events if using toolkit scroll bars,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5835 so make this always a click event. Store in the `part' of
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5836 the Lisp event a symbol which maps to the following actions:
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5837
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5838 `above_handle' page up
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5839 `below_handle' page down
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5840 `up' line up
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5841 `down' line down
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5842 `top' top of buffer
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5843 `bottom' bottom of buffer
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5844 `handle' thumb has been dragged.
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5845 `end-scroll' end of interaction with scroll bar
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5846
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5847 The incoming input_event contains in its `part' member an
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5848 index of type `enum scroll_bar_part' which we can use as an
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5849 index in scroll_bar_parts to get the appropriate symbol. */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5850
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5851 case SCROLL_BAR_CLICK_EVENT:
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5852 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5853 Lisp_Object position, head, window, portion_whole, part;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5854
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5855 window = event->frame_or_window;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5856 portion_whole = Fcons (event->x, event->y);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5857 part = *scroll_bar_parts[(int) event->part];
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5858
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5859 position
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5860 = Fcons (window,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5861 Fcons (Qvertical_scroll_bar,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5862 Fcons (portion_whole,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5863 Fcons (make_number (event->timestamp),
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5864 Fcons (part, Qnil)))));
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5865
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5866 /* Always treat scroll bar events as clicks. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5867 event->modifiers |= click_modifier;
46718
175cd09f34d2 (make_lispy_event): Use #ifdef to test USE_TOOLKIT_SCROLL_BARS.
Richard M. Stallman <rms@gnu.org>
parents: 46572
diff changeset
5868 event->modifiers &= ~up_modifier;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5869
50064
40170697bff1 Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents: 49976
diff changeset
5870 if (event->code >= ASIZE (mouse_syms))
40170697bff1 Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents: 49976
diff changeset
5871 mouse_syms = larger_vector (mouse_syms, event->code + 1, Qnil);
40170697bff1 Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents: 49976
diff changeset
5872
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5873 /* Get the symbol we should use for the mouse click. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5874 head = modify_event_symbol (event->code,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5875 event->modifiers,
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
5876 Qmouse_click,
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5877 Vlispy_mouse_stem,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5878 NULL, &mouse_syms,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5879 XVECTOR (mouse_syms)->size);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5880 return Fcons (head, Fcons (position, Qnil));
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5881 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5882
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5883 #endif /* USE_TOOLKIT_SCROLL_BARS */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
5884
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5885 #ifdef WINDOWSNT
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5886 case W32_SCROLL_BAR_CLICK_EVENT:
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5887 {
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5888 int button = event->code;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5889 int is_double;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5890 Lisp_Object position;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5891 Lisp_Object *start_pos_ptr;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5892 Lisp_Object start_pos;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5893
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5894 {
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5895 Lisp_Object window;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5896 Lisp_Object portion_whole;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5897 Lisp_Object part;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5898
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5899 window = event->frame_or_window;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5900 portion_whole = Fcons (event->x, event->y);
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5901 part = *scroll_bar_parts[(int) event->part];
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5902
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
5903 position
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
5904 = Fcons (window,
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
5905 Fcons (Qvertical_scroll_bar,
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
5906 Fcons (portion_whole,
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
5907 Fcons (make_number (event->timestamp),
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
5908 Fcons (part, Qnil)))));
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5909 }
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5910
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16504
diff changeset
5911 /* Always treat W32 scroll bar events as clicks. */
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5912 event->modifiers |= click_modifier;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5913
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5914 {
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5915 /* 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
5916 Lisp_Object head;
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5917
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5918 head = modify_event_symbol (button,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5919 event->modifiers,
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5920 Qmouse_click,
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5921 Vlispy_mouse_stem,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5922 NULL, &mouse_syms,
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
5923 XVECTOR (mouse_syms)->size);
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5924 return Fcons (head,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5925 Fcons (position,
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5926 Qnil));
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5927 }
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
5928 }
46854
28b72b441940 (make_lispy_event): Test WINDOWSNT, not WINDOWS_NT.
Richard M. Stallman <rms@gnu.org>
parents: 46798
diff changeset
5929 #endif /* WINDOWSNT */
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5930
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5931 case DRAG_N_DROP_EVENT:
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5932 {
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5933 FRAME_PTR f;
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5934 Lisp_Object head, position;
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5935 Lisp_Object files;
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5936
67664
61bd8643b908 (make_lispy_event): Drag-and-drop items are now
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67455
diff changeset
5937 f = XFRAME (event->frame_or_window);
61bd8643b908 (make_lispy_event): Drag-and-drop items are now
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 67455
diff changeset
5938 files = event->arg;
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5939
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5940 /* Ignore mouse events that were made on frames that
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5941 have been deleted. */
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5942 if (! FRAME_LIVE_P (f))
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5943 return Qnil;
33882
778426d92d7b (make_lispy_event) [mouse_wheel, drag_n_drop]: Args to
Jason Rumney <jasonr@gnu.org>
parents: 33724
diff changeset
5944
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5945 position = make_lispy_position (f, &event->x, &event->y,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5946 event->timestamp);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5947
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5948 head = modify_event_symbol (0, event->modifiers,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5949 Qdrag_n_drop, Qnil,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5950 lispy_drag_n_drop_names,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5951 &drag_n_drop_syms, 1);
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5952 return Fcons (head,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5953 Fcons (position,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5954 Fcons (files,
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
5955 Qnil)));
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
5956 }
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
5957 #endif /* HAVE_MOUSE */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5958
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49193
diff changeset
5959 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined (MAC_OS) \
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49193
diff changeset
5960 || defined (USE_GTK)
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5961 case MENU_BAR_EVENT:
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5962 if (EQ (event->arg, event->frame_or_window))
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5963 /* This is the prefix key. We translate this to
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5964 `(menu_bar)' because the code in keyboard.c for menu
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5965 events, which we use, relies on this. */
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5966 return Fcons (Qmenu_bar, Qnil);
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5967 return event->arg;
11285
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
5968 #endif
7b90c1076881 (kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents: 11260
diff changeset
5969
50556
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
5970 case SELECT_WINDOW_EVENT:
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
5971 /* Make an event (select-window (WINDOW)). */
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
5972 return Fcons (Qselect_window,
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
5973 Fcons (Fcons (event->frame_or_window, Qnil),
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
5974 Qnil));
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
5975
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
5976 case TOOL_BAR_EVENT:
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5977 if (EQ (event->arg, event->frame_or_window))
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5978 /* This is the prefix key. We translate this to
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
5979 `(tool_bar)' because the code in keyboard.c for tool bar
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5980 events, which we use, relies on this. */
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5981 return Fcons (Qtool_bar, Qnil);
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5982 else if (SYMBOLP (event->arg))
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5983 return apply_modifiers (event->modifiers, event->arg);
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5984 return event->arg;
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5985
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
5986 case USER_SIGNAL_EVENT:
24375
2b4cdb028ea9 (Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents: 24165
diff changeset
5987 /* A user signal. */
74748
8a37dd687f38 (kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents: 74621
diff changeset
5988 {
8a37dd687f38 (kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents: 74621
diff changeset
5989 char *name = find_user_signal_name (event->code);
8a37dd687f38 (kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents: 74621
diff changeset
5990 if (!name)
8a37dd687f38 (kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents: 74621
diff changeset
5991 abort ();
8a37dd687f38 (kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents: 74621
diff changeset
5992 return intern (name);
8a37dd687f38 (kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents: 74621
diff changeset
5993 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5994
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
5995 case SAVE_SESSION_EVENT:
43814
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
5996 return Qsave_session;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
5997
67455
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
5998 #ifdef MAC_OS
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
5999 case MAC_APPLE_EVENT:
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6000 {
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6001 Lisp_Object spec[2];
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6002
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6003 spec[0] = event->x;
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6004 spec[1] = event->y;
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6005 return Fcons (Qmac_apple_event,
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6006 Fcons (Fvector (2, spec),
70380
85887be0a943 (make_lispy_event) [MAC_OS]: Get Apple event info from event->arg.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69985
diff changeset
6007 Fcons (event->arg, Qnil)));
67455
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6008 }
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6009 #endif
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
6010
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6011 /* The 'kind' field of the event is something we don't recognize. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6012 default:
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
6013 abort ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6014 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6015 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6016
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
6017 #ifdef HAVE_MOUSE
6805
8310b2eb6b06 (make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents: 6749
diff changeset
6018
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6019 static Lisp_Object
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6020 make_lispy_movement (frame, bar_window, part, x, y, time)
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
6021 FRAME_PTR frame;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6022 Lisp_Object bar_window;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
6023 enum scroll_bar_part part;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6024 Lisp_Object x, y;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
6025 unsigned long time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6026 {
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
6027 /* Is it a scroll bar movement? */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6028 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
6029 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6030 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
6031
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6032 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
6033 return Fcons (Qscroll_bar_movement,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6034 (Fcons (Fcons (bar_window,
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
6035 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
6036 Fcons (Fcons (x, y),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6037 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
6038 Fcons (part_sym,
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6039 Qnil))))),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6040 Qnil)));
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6041 }
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6042
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6043 /* Or is it an ordinary mouse movement? */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6044 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6045 {
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
6046 Lisp_Object position;
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
6047
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
6048 position = make_lispy_position (frame, &x, &y, time);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6049
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6050 return Fcons (Qmouse_movement,
53128
c9aeaeb38318 (make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents: 53089
diff changeset
6051 Fcons (position,
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
6052 Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6053 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6054 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6055
11026
682ae4a3d465 (make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents: 11016
diff changeset
6056 #endif /* HAVE_MOUSE */
6805
8310b2eb6b06 (make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents: 6749
diff changeset
6057
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6058 /* 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
6059 static Lisp_Object
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6060 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
6061 Lisp_Object frame;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6062 {
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6063 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
6064 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6065
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6066 /* Manipulating modifiers. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6067
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6068 /* 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
6069
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6070 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
6071 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
6072 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
6073
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6074 This doesn't use any caches. */
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6075
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6076 static int
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6077 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
6078 Lisp_Object symbol;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6079 int *modifier_end;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6080 {
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6081 Lisp_Object name;
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6082 int i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6083 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6084
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40548
diff changeset
6085 CHECK_SYMBOL (symbol);
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6086
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6087 modifiers = 0;
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6088 name = SYMBOL_NAME (symbol);
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6089
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6090 for (i = 0; i+2 <= SBYTES (name); )
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6091 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6092 int this_mod_end = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6093 int this_mod = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6094
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6095 /* 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
6096 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
6097 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
6098
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6099 switch (SREF (name, i))
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6100 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6101 #define SINGLE_LETTER_MOD(BIT) \
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6102 (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
6103
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6104 case 'A':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6105 SINGLE_LETTER_MOD (alt_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6106 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6107
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6108 case 'C':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6109 SINGLE_LETTER_MOD (ctrl_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6110 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6111
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6112 case 'H':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6113 SINGLE_LETTER_MOD (hyper_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6114 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6115
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6116 case 'M':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6117 SINGLE_LETTER_MOD (meta_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6118 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6119
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6120 case 'S':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6121 SINGLE_LETTER_MOD (shift_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6122 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6123
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6124 case 's':
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6125 SINGLE_LETTER_MOD (super_modifier);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6126 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6127
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6128 #undef SINGLE_LETTER_MOD
50758
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6129
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6130 #define MULTI_LETTER_MOD(BIT, NAME, LEN) \
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6131 if (i + LEN + 1 <= SBYTES (name) \
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6132 && ! strncmp (SDATA (name) + i, NAME, LEN)) \
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6133 { \
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6134 this_mod_end = i + LEN; \
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6135 this_mod = BIT; \
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6136 }
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6137
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6138 case 'd':
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6139 MULTI_LETTER_MOD (drag_modifier, "drag", 4);
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6140 MULTI_LETTER_MOD (down_modifier, "down", 4);
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6141 MULTI_LETTER_MOD (double_modifier, "double", 6);
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6142 break;
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6143
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6144 case 't':
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6145 MULTI_LETTER_MOD (triple_modifier, "triple", 6);
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6146 break;
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6147 #undef MULTI_LETTER_MOD
ee55f23e4fbc (parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50749
diff changeset
6148
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6149 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6150
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6151 /* 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
6152 if (this_mod_end == 0)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6153 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6154
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6155 /* 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
6156 really is a modifier. */
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6157 if (this_mod_end >= SBYTES (name)
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6158 || SREF (name, this_mod_end) != '-')
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6159 break;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6160
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6161 /* This modifier is real; look for another. */
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6162 modifiers |= this_mod;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6163 i = this_mod_end + 1;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6164 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6165
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6166 /* 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
6167 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
6168 | double_modifier | triple_modifier))
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6169 && i + 7 == SBYTES (name)
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6170 && strncmp (SDATA (name) + i, "mouse-", 6) == 0
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6171 && ('0' <= SREF (name, i + 6) && SREF (name, i + 6) <= '9'))
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6172 modifiers |= click_modifier;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6173
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6174 if (modifier_end)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6175 *modifier_end = i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6176
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6177 return modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6178 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6179
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6180 /* 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
6181 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
6182 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
6183 static Lisp_Object
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
6184 apply_modifiers_uncached (modifiers, base, base_len, base_len_byte)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6185 int modifiers;
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6186 char *base;
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
6187 int base_len, base_len_byte;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6188 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6189 /* 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
6190 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
6191 reference to it. */
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
6192 char *new_mods
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
6193 = (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
6194 int mod_len;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6195
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6196 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6197 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
6198
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6199 /* 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
6200 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
6201 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
6202 abort ();
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6203
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6204 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
6205 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
6206 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
6207 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
6208 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
6209 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
6210 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
6211 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
6212 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
6213 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
6214 /* 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
6215
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6216 *p = '\0';
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6217
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6218 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
6219 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6220
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6221 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6222 Lisp_Object new_name;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6223
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
6224 new_name = make_uninit_multibyte_string (mod_len + base_len,
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
6225 mod_len + base_len_byte);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6226 bcopy (new_mods, SDATA (new_name), mod_len);
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6227 bcopy (base, SDATA (new_name) + mod_len, base_len_byte);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6228
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6229 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
6230 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6231 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6232
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6233
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6234 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
6235 {
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
6236 "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
6237 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
6238 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
6239 };
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
6240 #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
6241
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6242 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
6243
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6244 /* 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
6245 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6246 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
6247 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6248 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6249 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
6250 int i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6251
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6252 modifier_list = Qnil;
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
6253 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
6254 if (modifiers & (1<<i))
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
6255 modifier_list = Fcons (XVECTOR (modifier_symbols)->contents[i],
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
6256 modifier_list);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6257
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6258 return modifier_list;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6259 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6260
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6261
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6262 /* 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
6263 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
6264 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
6265 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
6266 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
6267 Qevent_symbol_elements property. */
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6268
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
6269 Lisp_Object
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6270 parse_modifiers (symbol)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6271 Lisp_Object symbol;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6272 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6273 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
6274
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6275 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
6276 if (CONSP (elements))
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6277 return elements;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6278 else
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6279 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6280 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
6281 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
6282 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
6283 Lisp_Object mask;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6284
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6285 unmodified = Fintern (make_string (SDATA (SYMBOL_NAME (symbol)) + end,
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6286 SBYTES (SYMBOL_NAME (symbol)) - end),
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6287 Qnil);
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6288
53089
4ccaea0e450c (parse_modifiers, apply_modifiers): Use INTMASK instead of VALMASK.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
6289 if (modifiers & ~INTMASK)
2436
80aafda1127b * keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents: 2434
diff changeset
6290 abort ();
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6291 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
6292 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
6293
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6294 /* 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
6295 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
6296 elements);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6297 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
6298 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
6299
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6300 /* 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
6301 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
6302 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
6303 canonical. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6304
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6305 return elements;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6306 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6307 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6308
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6309 /* 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
6310 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
6311
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6312 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
6313 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
6314 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
6315
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
6316 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
6317 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
6318 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6319 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
6320 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6321 Lisp_Object base;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6322 {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6323 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
6324
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
6325 /* Mask out upper bits. We don't know where this value's been. */
53089
4ccaea0e450c (parse_modifiers, apply_modifiers): Use INTMASK instead of VALMASK.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
6326 modifiers &= INTMASK;
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
6327
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6328 /* 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
6329 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
6330 XSETFASTINT (index, (modifiers & ~click_modifier));
7999
f1837249c67f (apply_modifiers): Use assq_no_quit.
Richard M. Stallman <rms@gnu.org>
parents: 7957
diff changeset
6331 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
6332
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6333 if (CONSP (entry))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
6334 new_symbol = XCDR (entry);
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6335 else
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6336 {
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6337 /* 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
6338 new_symbol = apply_modifiers_uncached (modifiers,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6339 SDATA (SYMBOL_NAME (base)),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6340 SCHARS (SYMBOL_NAME (base)),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6341 SBYTES (SYMBOL_NAME (base)));
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6342
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6343 /* 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
6344 entry = Fcons (index, new_symbol);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6345 Fput (base, Qmodifier_cache, Fcons (entry, cache));
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6346
51014
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6347 /* We have the parsing info now for free, so we could add it to
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6348 the caches:
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6349 XSETFASTINT (index, modifiers);
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6350 Fput (new_symbol, Qevent_symbol_element_mask,
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6351 Fcons (base, Fcons (index, Qnil)));
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6352 Fput (new_symbol, Qevent_symbol_elements,
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6353 Fcons (base, lispy_modifier_list (modifiers)));
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6354 Sadly, this is only correct if `base' is indeed a base event,
7dde1bfbb922 (apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50994
diff changeset
6355 which is not necessarily the case. -stef */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6356 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6357
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6358 /* 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
6359
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6360 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
6361 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
6362 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
6363 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
6364 Qevent_kind set right as well. */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6365 if (NILP (Fget (new_symbol, Qevent_kind)))
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
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 kind;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6368
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6369 kind = Fget (base, Qevent_kind);
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6370 if (! NILP (kind))
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6371 Fput (new_symbol, Qevent_kind, kind);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6372 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6373
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
6374 return new_symbol;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6375 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6376
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6377
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6378 /* Given a symbol whose name begins with modifiers ("C-", "M-", etc),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6379 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
6380 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
6381 always come last. The 'click' modifier is never written out.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6382
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6383 Fdefine_key calls this to make sure that (for example) C-M-foo
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6384 and M-C-foo end up being equivalent in the keymap. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6385
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6386 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6387 reorder_modifiers (symbol)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6388 Lisp_Object symbol;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6389 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6390 /* 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
6391 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
6392 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
6393
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
6394 parsed = parse_modifiers (symbol);
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
6395 return apply_modifiers ((int) XINT (XCAR (XCDR (parsed))),
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
6396 XCAR (parsed));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6397 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6398
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6399
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6400 /* For handling events, we often want to produce a symbol whose name
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6401 is a series of modifier key prefixes ("M-", "C-", etcetera) attached
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6402 to some base, like the name of a function key or mouse button.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6403 modify_event_symbol produces symbols of this sort.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6404
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6405 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
6406 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
6407 in the table.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6408
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6409 Alternatively, NAME_ALIST_OR_STEM is either an alist mapping codes
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6410 into symbol names, or a string specifying a name stem used to
30749
7a0d5d24269e (make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents: 30709
diff changeset
6411 construct a symbol name or the form `STEM-N', where N is the decimal
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6412 representation of SYMBOL_NUM. NAME_ALIST_OR_STEM is used if it is
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6413 non-nil; otherwise NAME_TABLE is used.
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6414
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6415 SYMBOL_TABLE should be a pointer to a Lisp_Object whose value will
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6416 persist between calls to modify_event_symbol that it can use to
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6417 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
6418 before. The object stored there may be a vector or an alist.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6419
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6420 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
6421
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6422 MODIFIERS is a set of modifier bits (as given in struct input_events)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6423 whose prefixes should be applied to the symbol name.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6424
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6425 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
6426 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
6427
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
6428 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
6429 `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
6430 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
6431
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6432 static Lisp_Object
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6433 modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist_or_stem,
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6434 name_table, symbol_table, table_size)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6435 int symbol_num;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6436 unsigned modifiers;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6437 Lisp_Object symbol_kind;
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6438 Lisp_Object name_alist_or_stem;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6439 char **name_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6440 Lisp_Object *symbol_table;
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6441 unsigned int table_size;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6442 {
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6443 Lisp_Object value;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6444 Lisp_Object symbol_int;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6445
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6446 /* 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
6447 XSETINT (symbol_int, symbol_num & 0xffffff);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6448
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6449 /* 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
6450 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
6451 return Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6452
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6453 if (CONSP (*symbol_table))
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6454 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
6455
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6456 /* 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
6457 *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
6458 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
6459 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
6460 else
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6461 {
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6462 if (! VECTORP (*symbol_table)
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6463 || XVECTOR (*symbol_table)->size != table_size)
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6464 {
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6465 Lisp_Object size;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6466
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
6467 XSETFASTINT (size, table_size);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6468 *symbol_table = Fmake_vector (size, Qnil);
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6469 }
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6470
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6471 value = XVECTOR (*symbol_table)->contents[symbol_num];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6472 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6473
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6474 /* 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
6475 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
6476 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6477 /* No; let's create it. */
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6478 if (CONSP (name_alist_or_stem))
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6479 value = Fcdr_safe (Fassq (symbol_int, name_alist_or_stem));
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6480 else if (STRINGP (name_alist_or_stem))
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6481 {
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6482 int len = SBYTES (name_alist_or_stem);
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6483 char *buf = (char *) alloca (len + 50);
56070
343ad07ce78b (cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents: 56023
diff changeset
6484 sprintf (buf, "%s-%ld", SDATA (name_alist_or_stem),
343ad07ce78b (cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents: 56023
diff changeset
6485 (long) XINT (symbol_int) + 1);
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6486 value = intern (buf);
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
6487 }
16734
798ab643cba2 (modify_event_symbol):
Richard M. Stallman <rms@gnu.org>
parents: 16610
diff changeset
6488 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
6489 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
6490
13413
12b63cc21bdb [HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13329
diff changeset
6491 #ifdef HAVE_WINDOW_SYSTEM
12173
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6492 if (NILP (value))
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6493 {
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6494 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
6495 if (name)
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6496 value = intern (name);
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6497 }
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6498 #endif
f31fca0fcdb0 (modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents: 12160
diff changeset
6499
6894
34435700529d (modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents: 6893
diff changeset
6500 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
6501 {
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
6502 char buf[20];
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
6503 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
6504 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
6505 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6506
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6507 if (CONSP (*symbol_table))
15524
4a92710b931c (modify_event_symbol): Add properly to *symbol_table.
Richard M. Stallman <rms@gnu.org>
parents: 15474
diff changeset
6508 *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
6509 else
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6510 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
6511
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
6512 /* 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
6513 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
6514 cares about. */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6515 apply_modifiers (modifiers & click_modifier, value);
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6516 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
6517 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
6518
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
6519 /* Apply modifiers to that symbol. */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6520 return apply_modifiers (modifiers, value);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6521 }
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6522
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6523 /* 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
6524 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
6525 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
6526
12150
64b16f71a15c (Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents: 12144
diff changeset
6527 DEFUN ("event-convert-list", Fevent_convert_list, Sevent_convert_list, 1, 1, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
6528 doc: /* Convert the event description list EVENT-DESC to an event type.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
6529 EVENT-DESC should contain one base event type (a character or symbol)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
6530 and zero or more modifier names (control, meta, hyper, super, shift, alt,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
6531 drag, down, double or triple). The base must be last.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
6532 The return value is an event type (a character or symbol) which
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
6533 has the same base event type and all the specified modifiers. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
6534 (event_desc)
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
6535 Lisp_Object event_desc;
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6536 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6537 Lisp_Object base;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6538 int modifiers = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6539 Lisp_Object rest;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6540
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6541 base = Qnil;
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
6542 rest = event_desc;
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6543 while (CONSP (rest))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6544 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6545 Lisp_Object elt;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6546 int this = 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6547
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
6548 elt = XCAR (rest);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
6549 rest = XCDR (rest);
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6550
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6551 /* 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
6552 if (SYMBOLP (elt) && CONSP (rest))
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6553 this = parse_solitary_modifier (elt);
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6554
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6555 if (this != 0)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6556 modifiers |= this;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6557 else if (!NILP (base))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6558 error ("Two bases given in one event");
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6559 else
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6560 base = elt;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6561
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6562 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6563
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6564 /* Let the symbol A refer to the character A. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
6565 if (SYMBOLP (base) && SCHARS (SYMBOL_NAME (base)) == 1)
46427
5360a8d2f694 * keyboard.c (Fevent_convert_list): Use SREF.
Ken Raeburn <raeburn@raeburn.org>
parents: 46412
diff changeset
6566 XSETINT (base, SREF (SYMBOL_NAME (base), 0));
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6567
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6568 if (INTEGERP (base))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6569 {
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6570 /* Turn (shift a) into A. */
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6571 if ((modifiers & shift_modifier) != 0
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6572 && (XINT (base) >= 'a' && XINT (base) <= 'z'))
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6573 {
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6574 XSETINT (base, XINT (base) - ('a' - 'A'));
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6575 modifiers &= ~shift_modifier;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6576 }
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6577
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6578 /* Turn (control a) into C-a. */
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6579 if (modifiers & ctrl_modifier)
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6580 return make_number ((modifiers & ~ctrl_modifier)
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6581 | make_ctrl_char (XINT (base)));
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6582 else
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6583 return make_number (modifiers | XINT (base));
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6584 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6585 else if (SYMBOLP (base))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6586 return apply_modifiers (modifiers, base);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6587 else
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
6588 {
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
6589 error ("Invalid base event");
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
6590 return Qnil;
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
6591 }
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6592 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6593
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6594 /* 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
6595 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
6596
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6597 static int
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6598 parse_solitary_modifier (symbol)
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6599 Lisp_Object symbol;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6600 {
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6601 Lisp_Object name = SYMBOL_NAME (symbol);
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6602
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6603 switch (SREF (name, 0))
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6604 {
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6605 #define SINGLE_LETTER_MOD(BIT) \
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6606 if (SBYTES (name) == 1) \
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6607 return BIT;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6608
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6609 #define MULTI_LETTER_MOD(BIT, NAME, LEN) \
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6610 if (LEN == SBYTES (name) \
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
6611 && ! strncmp (SDATA (name), NAME, LEN)) \
10984
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6612 return BIT;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6613
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6614 case 'A':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6615 SINGLE_LETTER_MOD (alt_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6616 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6617
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6618 case 'a':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6619 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
6620 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6621
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6622 case 'C':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6623 SINGLE_LETTER_MOD (ctrl_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6624 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6625
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6626 case 'c':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6627 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
6628 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
6629 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6630
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6631 case 'H':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6632 SINGLE_LETTER_MOD (hyper_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6633 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6634
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6635 case 'h':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6636 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
6637 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6638
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6639 case 'M':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6640 SINGLE_LETTER_MOD (meta_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6641 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6642
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6643 case 'm':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6644 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
6645 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6646
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6647 case 'S':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6648 SINGLE_LETTER_MOD (shift_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6649 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6650
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6651 case 's':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6652 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
6653 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
6654 SINGLE_LETTER_MOD (super_modifier);
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6655 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6656
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6657 case 'd':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6658 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
6659 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
6660 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
6661 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6662
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6663 case 't':
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6664 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
6665 break;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6666
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6667 #undef SINGLE_LETTER_MOD
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6668 #undef MULTI_LETTER_MOD
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6669 }
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6670
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6671 return 0;
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6672 }
0409e4548077 (parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents: 10945
diff changeset
6673
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6674 /* 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
6675 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
6676 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
6677
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6678 int
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6679 lucid_event_type_list_p (object)
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6680 Lisp_Object object;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6681 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6682 Lisp_Object tail;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6683
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6684 if (! CONSP (object))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6685 return 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6686
33908
d42bd79a1778 (lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents: 33882
diff changeset
6687 if (EQ (XCAR (object), Qhelp_echo)
d42bd79a1778 (lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents: 33882
diff changeset
6688 || EQ (XCAR (object), Qvertical_line)
d42bd79a1778 (lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents: 33882
diff changeset
6689 || EQ (XCAR (object), Qmode_line)
d42bd79a1778 (lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents: 33882
diff changeset
6690 || EQ (XCAR (object), Qheader_line))
d42bd79a1778 (lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents: 33882
diff changeset
6691 return 0;
d42bd79a1778 (lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents: 33882
diff changeset
6692
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
6693 for (tail = object; CONSP (tail); tail = XCDR (tail))
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6694 {
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6695 Lisp_Object elt;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
6696 elt = XCAR (tail);
10844
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6697 if (! (INTEGERP (elt) || SYMBOLP (elt)))
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6698 return 0;
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6699 }
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6700
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6701 return NILP (tail);
06d6b2e17987 (convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 10827
diff changeset
6702 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6703
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6704 /* Store into *addr a value nonzero if terminal input chars are available.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6705 Serves the purpose of ioctl (0, FIONREAD, addr)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6706 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
6707 (In fact, this may actually read some input.)
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
6708
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6709 If READABLE_EVENTS_DO_TIMERS_NOW is set in FLAGS, actually run
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6710 timer events that are ripe.
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6711 If READABLE_EVENTS_FILTER_EVENTS is set in FLAGS, ignore internal
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6712 events (FOCUS_IN_EVENT).
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6713 If READABLE_EVENTS_IGNORE_SQUEEZABLES is set in FLAGS, ignore mouse
62284
9715f859c614 (readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 62024
diff changeset
6714 movements and toolkit scroll bar thumb drags. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6715
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6716 static void
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6717 get_input_pending (addr, flags)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6718 int *addr;
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6719 int flags;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6720 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6721 /* First of all, have we already counted some input? */
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6722 *addr = (!NILP (Vquit_flag) || readable_events (flags));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6723
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6724 /* 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
6725 if (*addr > 0 || (interrupt_input && ! interrupts_deferred))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6726 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6727
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6728 /* Try to read some input and see how much we get. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6729 gobble_input (0);
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
6730 *addr = (!NILP (Vquit_flag) || readable_events (flags));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6731 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6732
8727
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6733 /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6734
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
6735 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6736 gobble_input (expected)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6737 int expected;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6738 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6739 #ifndef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6740 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6741 if (interrupt_input)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6742 {
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 586
diff changeset
6743 SIGMASKTYPE mask;
16055
b69d8517497a (record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
6744 mask = sigblock (sigmask (SIGIO));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6745 read_avail_input (expected);
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 624
diff changeset
6746 sigsetmask (mask);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6747 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6748 else
8727
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6749 #ifdef POLL_FOR_INPUT
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6750 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
6751 {
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6752 SIGMASKTYPE mask;
16055
b69d8517497a (record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
6753 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
6754 read_avail_input (expected);
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6755 sigsetmask (mask);
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6756 }
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6757 else
592bbf02e29d (gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents: 8718
diff changeset
6758 #endif
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9445
diff changeset
6759 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6760 read_avail_input (expected);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6761 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6762 }
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
6763
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
6764 /* Put a BUFFER_SWITCH_EVENT in the buffer
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6765 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
6766
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
6767 void
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
6768 record_asynch_buffer_change ()
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
6769 {
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
6770 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
6771 Lisp_Object tem;
51577
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
6772 EVENT_INIT (event);
8502
0d7af9e98916 (record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents: 8432
diff changeset
6773
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
6774 event.kind = BUFFER_SWITCH_EVENT;
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
6775 event.frame_or_window = Qnil;
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
6776 event.arg = Qnil;
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6777
8718
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
6778 #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
6779 /* 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
6780 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
6781 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
6782 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
6783 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
6784 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
6785 return;
8718
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
6786 #else
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
6787 /* 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
6788 return;
44a433fa6e8f (record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents: 8673
diff changeset
6789 #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
6790
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6791 /* 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
6792 #ifdef SIGIO
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6793 if (interrupt_input)
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6794 {
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6795 SIGMASKTYPE mask;
16055
b69d8517497a (record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
6796 mask = sigblock (sigmask (SIGIO));
7225
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6797 kbd_buffer_store_event (&event);
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6798 sigsetmask (mask);
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6799 }
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6800 else
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6801 #endif
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6802 {
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6803 stop_polling ();
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6804 kbd_buffer_store_event (&event);
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6805 start_polling ();
420c92074bd6 (record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 7224
diff changeset
6806 }
6749
c409eb264509 (kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents: 6461
diff changeset
6807 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6808
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6809 #ifndef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6810
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6811 /* Read any terminal input already buffered up by the system
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6812 into the kbd_buffer, but do not wait.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6813
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6814 EXPECTED should be nonzero if the caller knows there is some input.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6815
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6816 Except on VMS, all input is read by this function.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6817 If interrupt_input is nonzero, this function MUST be called
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6818 only when SIGIO is blocked.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6819
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6820 Returns the number of keyboard chars read, or -1 meaning
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6821 this is a bad time to try to read input. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6822
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6823 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6824 read_avail_input (expected)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6825 int expected;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6826 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6827 register int i;
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6828 int nread = 0;
51577
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
6829
74611
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
6830 /* Store pending user signal events, if any. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
6831 if (store_user_signal_events ())
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
6832 expected = 0;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
6833
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6834 if (read_socket_hook)
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6835 {
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6836 int nr;
54163
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6837 struct input_event hold_quit;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6838
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6839 EVENT_INIT (hold_quit);
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6840 hold_quit.kind = NO_EVENT;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6841
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6842 /* No need for FIONREAD or fcntl; just say don't wait. */
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6843 while (nr = (*read_socket_hook) (input_fd, expected, &hold_quit), nr > 0)
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6844 {
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6845 nread += nr;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6846 expected = 0;
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6847 }
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6848 if (hold_quit.kind != NO_EVENT)
09b6da7723eb (kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents: 54147
diff changeset
6849 kbd_buffer_store_event (&hold_quit);
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6850 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6851 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6852 {
5032
2802aff49c77 (read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents: 4996
diff changeset
6853 /* 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
6854 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
6855 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
6856 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
6857 int n_to_read;
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6858
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6859 /* 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
6860 #ifdef WINDOWSNT
54029
812301ea706a (in_read_avail_input): New static variable to handle re-entrancy.
Kim F. Storm <storm@cua.dk>
parents: 54027
diff changeset
6861 return 0;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6862 #else /* not WINDOWSNT */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6863 #ifdef MSDOS
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6864 n_to_read = dos_keysns ();
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6865 if (n_to_read == 0)
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6866 return 0;
6891
065060f1f9b8 (read_avail_input): Fix comment delimiter.
Karl Heuer <kwzh@gnu.org>
parents: 6875
diff changeset
6867 #else /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6868 #ifdef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6869 /* 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
6870 if (ioctl (input_fd, FIONREAD, &n_to_read) < 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6871 /* Formerly simply reported no input, but that sometimes led to
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6872 a failure of Emacs to terminate.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6873 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
6874 /* ??? 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
6875 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
6876 Perhaps on systems with FIONREAD Emacs is alone in its group. */
51635
dec942028211 (read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents: 51577
diff changeset
6877 {
dec942028211 (read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents: 51577
diff changeset
6878 if (! noninteractive)
dec942028211 (read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents: 51577
diff changeset
6879 kill (getpid (), SIGHUP);
dec942028211 (read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents: 51577
diff changeset
6880 else
dec942028211 (read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents: 51577
diff changeset
6881 n_to_read = 0;
dec942028211 (read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents: 51577
diff changeset
6882 }
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6883 if (n_to_read == 0)
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6884 return 0;
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6885 if (n_to_read > sizeof cbuf)
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6886 n_to_read = sizeof cbuf;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6887 #else /* no FIONREAD */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
6888 #if defined (USG) || defined (DGUX) || defined(CYGWIN)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6889 /* 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
6890 n_to_read = sizeof cbuf;
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
6891 fcntl (input_fd, F_SETFL, O_NDELAY);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6892 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6893 you lose;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6894 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6895 #endif
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6896 #endif /* not MSDOS */
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
6897 #endif /* not WINDOWSNT */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6898
6875
1862df471cac (make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents: 6812
diff changeset
6899 /* 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
6900 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
6901 do
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6902 {
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6903 #ifdef MSDOS
13290
4caecb87e4ec (ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents: 13267
diff changeset
6904 cbuf[0] = dos_keyread ();
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6905 nread = 1;
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6906 #else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25973
diff changeset
6907 nread = emacs_read (input_fd, cbuf, n_to_read);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6908 #endif
18405
4eaaff49a24e (read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents: 18231
diff changeset
6909 /* POSIX infers that processes which are not in the session leader's
4eaaff49a24e (read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents: 18231
diff changeset
6910 process group won't get SIGHUP's at logout time. BSDI adheres to
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
6911 this part standard and returns -1 from read (0) with errno==EIO
18405
4eaaff49a24e (read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents: 18231
diff changeset
6912 when the control tty is taken away.
4eaaff49a24e (read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents: 18231
diff changeset
6913 Jeffrey Honig <jch@bsdi.com> says this is generally safe. */
4eaaff49a24e (read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents: 18231
diff changeset
6914 if (nread == -1 && errno == EIO)
4eaaff49a24e (read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents: 18231
diff changeset
6915 kill (0, SIGHUP);
6936
5538df04e96a (read_avail_input): Test both aix386 and _BSD.
Richard M. Stallman <rms@gnu.org>
parents: 6932
diff changeset
6916 #if defined (AIX) && (! defined (aix386) && defined (_BSD))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6917 /* The kernel sometimes fails to deliver SIGHUP for ptys.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6918 This looks incorrect, but it isn't, because _BSD causes
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6919 O_NDELAY to be defined in fcntl.h as O_NONBLOCK,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6920 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
6921 if (nread == 0)
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6922 kill (0, SIGHUP);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6923 #endif
6963
67b16a9f7e5d (read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents: 6936
diff changeset
6924 }
6972
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6925 while (
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6926 /* 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
6927 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
6928 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
6929 where a retry is actually needed? */
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6930 #if 0
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6931 nread < 0 && (errno == EAGAIN
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6932 #ifdef EFAULT
6963
67b16a9f7e5d (read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents: 6936
diff changeset
6933 || errno == EFAULT
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
6934 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6935 #ifdef EBADSLT
6963
67b16a9f7e5d (read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents: 6936
diff changeset
6936 || errno == EBADSLT
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6937 #endif
6972
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6938 )
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6939 #else
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6940 0
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6941 #endif
2238e97bc571 (read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents: 6968
diff changeset
6942 );
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6943
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6944 #ifndef FIONREAD
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
6945 #if defined (USG) || defined (DGUX) || defined (CYGWIN)
9652
13a13988685a (read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents: 9618
diff changeset
6946 fcntl (input_fd, F_SETFL, 0);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
6947 #endif /* USG or DGUX or CYGWIN */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6948 #endif /* no FIONREAD */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6949 for (i = 0; i < nread; i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6950 {
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6951 struct input_event buf;
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6952 EVENT_INIT (buf);
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6953 buf.kind = ASCII_KEYSTROKE_EVENT;
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6954 buf.modifiers = 0;
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
6955 if (meta_key == 1 && (cbuf[i] & 0x80))
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6956 buf.modifiers = meta_modifier;
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
6957 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
6958 cbuf[i] &= ~0x80;
9745
129ec4acc4ff (read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents: 9729
diff changeset
6959
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6960 buf.code = cbuf[i];
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6961 buf.frame_or_window = selected_frame;
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6962 buf.arg = Qnil;
54087
5a946bc3433a Fix whitespace.
Kim F. Storm <storm@cua.dk>
parents: 54086
diff changeset
6963
54086
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6964 kbd_buffer_store_event (&buf);
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6965 /* Don't look at input that follows a C-g too closely.
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6966 This reduces lossage due to autorepeat on C-g. */
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6967 if (buf.kind == ASCII_KEYSTROKE_EVENT
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6968 && buf.code == quit_char)
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6969 break;
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6970 }
86e93d3ccc6e Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents: 54029
diff changeset
6971 }
54029
812301ea706a (in_read_avail_input): New static variable to handle re-entrancy.
Kim F. Storm <storm@cua.dk>
parents: 54027
diff changeset
6972
54027
32c7f0e32819 Rework previous change; it didn't consider that the
Kim F. Storm <storm@cua.dk>
parents: 53991
diff changeset
6973 return nread;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6974 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6975 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6976
53657
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6977 void
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6978 handle_async_input ()
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6979 {
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6980 #ifdef BSD4_1
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6981 extern int select_alarmed;
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6982 #endif
58818
f8cddae7d959 * gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58634
diff changeset
6983
53657
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6984 interrupt_input_pending = 0;
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6985
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6986 while (1)
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6987 {
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6988 int nread;
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6989 nread = read_avail_input (1);
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6990 /* -1 means it's not ok to read the input now.
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6991 UNBLOCK_INPUT will read it later; now, avoid infinite loop.
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6992 0 means there was no keyboard input available. */
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6993 if (nread <= 0)
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6994 break;
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6995
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6996 #ifdef BSD4_1
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6997 select_alarmed = 1; /* Force the select emulator back to life */
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6998 #endif
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
6999 }
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7000 }
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7001
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7002 #ifdef SIGIO /* for entire page */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7003 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7004
50804
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7005 static SIGTYPE
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7006 input_available_signal (signo)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7007 int signo;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7008 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7009 /* Must preserve main program's value of errno. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7010 int old_errno = errno;
16115
cc8c3e2cc6ed (input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16111
diff changeset
7011 #if defined (USG) && !defined (POSIX_SIGNALS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7012 /* USG systems forget handlers when they are used;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7013 must reestablish each time */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7014 signal (signo, input_available_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7015 #endif /* USG */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7016
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7017 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7018 sigisheld (SIGIO);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7019 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7020
53657
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7021 #ifdef SYNC_INPUT
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7022 interrupt_input_pending = 1;
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7023 #else
58986
59945307b86b * syssignal.h: Declare main_thread.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58967
diff changeset
7024 SIGNAL_THREAD_CHECK (signo);
59078
867a7d5055b2 * keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents: 59052
diff changeset
7025 #endif
59543
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
7026
59078
867a7d5055b2 * keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents: 59052
diff changeset
7027 if (input_available_clear_time)
867a7d5055b2 * keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents: 59052
diff changeset
7028 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
867a7d5055b2 * keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents: 59052
diff changeset
7029
867a7d5055b2 * keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents: 59052
diff changeset
7030 #ifndef SYNC_INPUT
53657
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7031 handle_async_input ();
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7032 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7033
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7034 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7035 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7036 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7037 errno = old_errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7038 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7039 #endif /* SIGIO */
2726
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7040
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7041 /* Send ourselves a SIGIO.
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7042
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7043 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
7044 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
7045 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
7046 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
7047 void
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7048 reinvoke_input_signal ()
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7049 {
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
7050 #ifdef SIGIO
53657
4d786e2695ba (handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53515
diff changeset
7051 handle_async_input ();
2726
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7052 #endif
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7053 }
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7054
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
7055
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7056
74611
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7057 /* User signal events. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7058
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7059 struct user_signal_info
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7060 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7061 /* Signal number. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7062 int sig;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7063
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7064 /* Name of the signal. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7065 char *name;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7066
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7067 /* Number of pending signals. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7068 int npending;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7069
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7070 struct user_signal_info *next;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7071 };
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7072
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7073 /* List of user signals. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7074 static struct user_signal_info *user_signals = NULL;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7075
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7076 void
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7077 add_user_signal (sig, name)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7078 int sig;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7079 const char *name;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7080 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7081 struct user_signal_info *p;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7082
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7083 for (p = user_signals; p; p = p->next)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7084 if (p->sig == sig)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7085 /* Already added. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7086 return;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7087
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7088 p = xmalloc (sizeof (struct user_signal_info));
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7089 p->sig = sig;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7090 p->name = xstrdup (name);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7091 p->npending = 0;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7092 p->next = user_signals;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7093 user_signals = p;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7094
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7095 signal (sig, handle_user_signal);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7096 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7097
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7098 static SIGTYPE
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7099 handle_user_signal (sig)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7100 int sig;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7101 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7102 int old_errno = errno;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7103 struct user_signal_info *p;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7104
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7105 #if defined (USG) && !defined (POSIX_SIGNALS)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7106 /* USG systems forget handlers when they are used;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7107 must reestablish each time */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7108 signal (sig, handle_user_signal);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7109 #endif
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7110
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7111 SIGNAL_THREAD_CHECK (sig);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7112
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7113 for (p = user_signals; p; p = p->next)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7114 if (p->sig == sig)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7115 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7116 p->npending++;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7117 #ifdef SIGIO
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7118 if (interrupt_input)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7119 kill (getpid (), SIGIO);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7120 else
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7121 #endif
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7122 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7123 /* Tell wait_reading_process_output that it needs to wake
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7124 up and look around. */
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7125 if (input_available_clear_time)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7126 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7127 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7128 break;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7129 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7130
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7131 errno = old_errno;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7132 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7133
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7134 static char *
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7135 find_user_signal_name (sig)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7136 int sig;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7137 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7138 struct user_signal_info *p;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7139
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7140 for (p = user_signals; p; p = p->next)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7141 if (p->sig == sig)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7142 return p->name;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7143
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7144 return NULL;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7145 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7146
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7147 static int
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7148 store_user_signal_events ()
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7149 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7150 struct user_signal_info *p;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7151 struct input_event buf;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7152 int nstored = 0;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7153
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7154 for (p = user_signals; p; p = p->next)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7155 if (p->npending > 0)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7156 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7157 SIGMASKTYPE mask;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7158
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7159 if (nstored == 0)
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7160 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7161 bzero (&buf, sizeof buf);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7162 buf.kind = USER_SIGNAL_EVENT;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7163 buf.frame_or_window = selected_frame;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7164 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7165 nstored += p->npending;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7166
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7167 mask = sigblock (sigmask (p->sig));
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7168 do
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7169 {
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7170 buf.code = p->sig;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7171 kbd_buffer_store_event (&buf);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7172 p->npending--;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7173 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7174 while (p->npending > 0);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7175 sigsetmask (mask);
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7176 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7177
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7178 return nstored;
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7179 }
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7180
4d547fe4a938 (make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 74412
diff changeset
7181
50805
5323eb52475f (menu_bar_item): Adjust declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50804
diff changeset
7182 static void menu_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*));
5323eb52475f (menu_bar_item): Adjust declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50804
diff changeset
7183 static Lisp_Object menu_bar_one_keymap_changed_items;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7184
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7185 /* 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
7186 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
7187 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
7188 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
7189 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
7190
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7191 /* 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
7192 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
7193 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
7194
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7195 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
7196
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7197 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
7198 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
7199 Lisp_Object old;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7200 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7201 /* 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
7202 keymaps we have allocated space for. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7203 int nmaps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7204
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7205 /* 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
7206 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
7207 Lisp_Object *maps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7208
34973
ef18b363abe3 (record_char): Remove unused function-scope variable
Eli Zaretskii <eliz@gnu.org>
parents: 34905
diff changeset
7209 Lisp_Object def, tail;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7210
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7211 Lisp_Object result;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7212
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7213 int mapno;
3255
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
7214 Lisp_Object oquit;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7215
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7216 int i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7217
3209
1166db56c752 * keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents: 3174
diff changeset
7218 /* 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
7219 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
7220 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
7221 quitting while building the menus.
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
7222 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
7223 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
7224 oquit = Vinhibit_quit;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
7225 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
7226
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7227 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
7228 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
7229 else
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7230 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
7231 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
7232
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7233 /* Build our list of keymaps.
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7234 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
7235 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
7236 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
7237 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
7238 {
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7239 Lisp_Object *tmaps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7240
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7241 /* 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
7242 if (!NILP (Voverriding_local_map_menu_flag))
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
7243 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7244 /* 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
7245 maps = (Lisp_Object *) alloca (3 * sizeof (maps[0]));
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7246 nmaps = 0;
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7247 if (!NILP (current_kboard->Voverriding_terminal_local_map))
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7248 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map;
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7249 if (!NILP (Voverriding_local_map))
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7250 maps[nmaps++] = Voverriding_local_map;
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
7251 }
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
7252 else
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
7253 {
44078
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7254 /* No, so use major and minor mode keymaps and keymap property.
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7255 Note that menu-bar bindings in the local-map and keymap
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7256 properties may not work reliable, as they are only
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7257 recognized when the menu-bar (or mode-line) is updated,
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7258 which does not normally happen after every command. */
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7259 Lisp_Object tem;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7260 int nminor;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7261 nminor = current_minor_maps (NULL, &tmaps);
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7262 maps = (Lisp_Object *) alloca ((nminor + 3) * sizeof (maps[0]));
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7263 nmaps = 0;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7264 if (tem = get_local_map (PT, current_buffer, Qkeymap), !NILP (tem))
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7265 maps[nmaps++] = tem;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7266 bcopy (tmaps, (void *) (maps + nmaps), nminor * sizeof (maps[0]));
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7267 nmaps += nminor;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7268 maps[nmaps++] = get_local_map (PT, current_buffer, Qlocal_map);
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
7269 }
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
7270 maps[nmaps++] = current_global_map;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7271 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7272
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7273 /* 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
7274
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7275 result = Qnil;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7276
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
7277 for (mapno = nmaps - 1; mapno >= 0; mapno--)
31995
6a45a15137b0 (menu_bar_one_keymap): If KEYMAP is a symbol,
Gerd Moellmann <gerd@gnu.org>
parents: 31877
diff changeset
7278 if (!NILP (maps[mapno]))
6a45a15137b0 (menu_bar_one_keymap): If KEYMAP is a symbol,
Gerd Moellmann <gerd@gnu.org>
parents: 31877
diff changeset
7279 {
34514
cd02b61654e4 (menu_bar_items, tool_bar_items):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34217
diff changeset
7280 def = get_keymap (access_keymap (maps[mapno], Qmenu_bar, 1, 0, 1),
cd02b61654e4 (menu_bar_items, tool_bar_items):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34217
diff changeset
7281 0, 1);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32752
diff changeset
7282 if (CONSP (def))
50804
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7283 {
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7284 menu_bar_one_keymap_changed_items = Qnil;
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7285 map_keymap (def, menu_bar_item, Qnil, NULL, 1);
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7286 }
31995
6a45a15137b0 (menu_bar_one_keymap): If KEYMAP is a symbol,
Gerd Moellmann <gerd@gnu.org>
parents: 31877
diff changeset
7287 }
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7288
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7289 /* 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
7290
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7291 for (tail = Vmenu_bar_final_items; CONSP (tail); tail = XCDR (tail))
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
7292 {
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7293 int i;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7294 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
7295
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
7296 for (i = 0; i < end; i += 4)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7297 if (EQ (XCAR (tail), XVECTOR (menu_bar_items_vector)->contents[i]))
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7298 {
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
7299 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
7300 /* 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
7301 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
7302 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
7303 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
7304 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
7305 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
7306 if (end > i + 4)
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
7307 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
7308 &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
7309 (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
7310 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
7311 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
7312 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
7313 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
7314 break;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7315 }
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
7316 }
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
7317
15284
546fea3a3d3d Comment fix.
Karl Heuer <kwzh@gnu.org>
parents: 15272
diff changeset
7318 /* 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
7319 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
7320 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
7321 {
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7322 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
7323 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
7324 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
7325 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
7326 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
7327 }
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7328 /* 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
7329 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
7330 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
7331 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
7332 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
7333 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
7334
3255
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
7335 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
7336 return menu_bar_items_vector;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7337 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7338
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
7339 /* 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
7340 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
7341
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7342 Lisp_Object item_properties;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7343
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7344 static void
50804
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7345 menu_bar_item (key, item, dummy1, dummy2)
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7346 Lisp_Object key, item, dummy1;
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7347 void *dummy2;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7348 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7349 struct gcpro gcpro1;
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7350 int i;
23975
b0040d620df9 In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents: 23935
diff changeset
7351 Lisp_Object tem;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7352
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7353 if (EQ (item, Qundefined))
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
7354 {
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
7355 /* If a map has an explicit `undefined' as definition,
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
7356 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
7357
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
7358 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
7359 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
7360 {
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
7361 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
7362 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
7363 &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
7364 (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
7365 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
7366 }
31206
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7367 }
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7368
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7369 /* If this keymap has already contributed to this KEY,
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7370 don't contribute to it a second time. */
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7371 tem = Fmemq (key, menu_bar_one_keymap_changed_items);
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7372 if (!NILP (tem) || NILP (item))
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7373 return;
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7374
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7375 menu_bar_one_keymap_changed_items
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7376 = Fcons (key, menu_bar_one_keymap_changed_items);
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7377
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7378 /* We add to menu_bar_one_keymap_changed_items before doing the
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7379 parse_menu_item, so that if it turns out it wasn't a menu item,
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7380 it still correctly hides any further menu item. */
fd9ff59434ff (menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31201
diff changeset
7381 GCPRO1 (key);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7382 i = parse_menu_item (item, 0, 1);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7383 UNGCPRO;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7384 if (!i)
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7385 return;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7386
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7387 item = XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF];
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7388
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
7389 /* 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
7390 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
7391 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
7392 break;
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7393
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
7394 /* 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
7395 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
7396 {
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7397 /* 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
7398 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
7399 {
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7400 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
7401 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
7402 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
7403 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
7404 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
7405 }
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7406
6135
bfe9f873bd64 (menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents: 6101
diff changeset
7407 /* 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
7408 XVECTOR (menu_bar_items_vector)->contents[i++] = key;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7409 XVECTOR (menu_bar_items_vector)->contents[i++]
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7410 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME];
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7411 XVECTOR (menu_bar_items_vector)->contents[i++] = Fcons (item, Qnil);
15112
e850ebd317e6 (make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents: 15049
diff changeset
7412 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
7413 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
7414 }
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7415 /* We did find an item for this KEY. Add ITEM to its list of maps. */
7098
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
7416 else
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
7417 {
9e9d5db094b5 (menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents: 6972
diff changeset
7418 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
7419 old = XVECTOR (menu_bar_items_vector)->contents[i + 2];
50804
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7420 /* If the new and the old items are not both keymaps,
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7421 the lookup will only find `item'. */
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7422 item = Fcons (item, KEYMAPP (item) && KEYMAPP (XCAR (old)) ? old : Qnil);
6e0a15287761 (input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50758
diff changeset
7423 XVECTOR (menu_bar_items_vector)->contents[i + 2] = item;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7424 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7425 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7426
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7427 /* This is used as the handler when calling menu_item_eval_property. */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7428 static Lisp_Object
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7429 menu_item_eval_property_1 (arg)
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7430 Lisp_Object arg;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7431 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7432 /* If we got a quit from within the menu computation,
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7433 quit all the way out of it. This takes care of C-] in the debugger. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7434 if (CONSP (arg) && EQ (XCAR (arg), Qquit))
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7435 Fsignal (Qquit, Qnil);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7436
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7437 return Qnil;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7438 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7439
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7440 /* Evaluate an expression and return the result (or nil if something
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7441 went wrong). Used to evaluate dynamic parts of menu items. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7442 Lisp_Object
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7443 menu_item_eval_property (sexpr)
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7444 Lisp_Object sexpr;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7445 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
7446 int count = SPECPDL_INDEX ();
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7447 Lisp_Object val;
22542
ca46e1a32856 (menu_item_eval_property): Bind Qinhibit_redisplay.
Karl Heuer <kwzh@gnu.org>
parents: 22469
diff changeset
7448 specbind (Qinhibit_redisplay, Qt);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7449 val = internal_condition_case_1 (Feval, sexpr, Qerror,
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7450 menu_item_eval_property_1);
22542
ca46e1a32856 (menu_item_eval_property): Bind Qinhibit_redisplay.
Karl Heuer <kwzh@gnu.org>
parents: 22469
diff changeset
7451 return unbind_to (count, val);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7452 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7453
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7454 /* This function parses a menu item and leaves the result in the
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7455 vector item_properties.
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7456 ITEM is a key binding, a possible menu item.
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7457 If NOTREAL is nonzero, only check for equivalent key bindings, don't
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7458 evaluate dynamic expressions in the menu item.
22040
ec5ce3eb24f3 (parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents: 21888
diff changeset
7459 INMENUBAR is > 0 when this is considered for an entry in a menu bar
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7460 top level.
22040
ec5ce3eb24f3 (parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents: 21888
diff changeset
7461 INMENUBAR is < 0 when this is considered for an entry in a keyboard menu.
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7462 parse_menu_item returns true if the item is a menu item and false
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7463 otherwise. */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7464
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7465 int
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7466 parse_menu_item (item, notreal, inmenubar)
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7467 Lisp_Object item;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7468 int notreal, inmenubar;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7469 {
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7470 Lisp_Object def, tem, item_string, start;
23459
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
7471 Lisp_Object cachelist;
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
7472 Lisp_Object filter;
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
7473 Lisp_Object keyhint;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7474 int i;
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7475 int newcache = 0;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7476
23459
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
7477 cachelist = Qnil;
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
7478 filter = Qnil;
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
7479 keyhint = Qnil;
bab640501294 (parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 23439
diff changeset
7480
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7481 if (!CONSP (item))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7482 return 0;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7483
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7484 /* Create item_properties vector if necessary. */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7485 if (NILP (item_properties))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7486 item_properties
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7487 = Fmake_vector (make_number (ITEM_PROPERTY_ENABLE + 1), Qnil);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7488
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7489 /* Initialize optional entries. */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7490 for (i = ITEM_PROPERTY_DEF; i < ITEM_PROPERTY_ENABLE; i++)
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7491 AREF (item_properties, i) = Qnil;
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7492 AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7493
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7494 /* Save the item here to protect it from GC. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7495 AREF (item_properties, ITEM_PROPERTY_ITEM) = item;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7496
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7497 item_string = XCAR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7498
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7499 start = item;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7500 item = XCDR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7501 if (STRINGP (item_string))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7502 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7503 /* Old format menu item. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7504 AREF (item_properties, ITEM_PROPERTY_NAME) = item_string;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7505
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7506 /* Maybe help string. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7507 if (CONSP (item) && STRINGP (XCAR (item)))
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7508 {
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7509 AREF (item_properties, ITEM_PROPERTY_HELP) = XCAR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7510 start = item;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7511 item = XCDR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7512 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7513
30051
70d9d51a864c (show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29816
diff changeset
7514 /* Maybe key binding cache. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7515 if (CONSP (item) && CONSP (XCAR (item))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7516 && (NILP (XCAR (XCAR (item)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7517 || VECTORP (XCAR (XCAR (item)))))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7518 {
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7519 cachelist = XCAR (item);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7520 item = XCDR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7521 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7522
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7523 /* This is the real definition--the function to run. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7524 AREF (item_properties, ITEM_PROPERTY_DEF) = item;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7525
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7526 /* Get enable property, if any. */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7527 if (SYMBOLP (item))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7528 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7529 tem = Fget (item, Qmenu_enable);
68792
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7530 if (!NILP (Venable_disabled_menus_and_buttons))
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7531 AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt;
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7532 else if (!NILP (tem))
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7533 AREF (item_properties, ITEM_PROPERTY_ENABLE) = tem;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7534 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7535 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7536 else if (EQ (item_string, Qmenu_item) && CONSP (item))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7537 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7538 /* New format menu item. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7539 AREF (item_properties, ITEM_PROPERTY_NAME) = XCAR (item);
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7540 start = XCDR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7541 if (CONSP (start))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7542 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7543 /* We have a real binding. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7544 AREF (item_properties, ITEM_PROPERTY_DEF) = XCAR (start);
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7545
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7546 item = XCDR (start);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7547 /* Is there a cache list with key equivalences. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7548 if (CONSP (item) && CONSP (XCAR (item)))
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7549 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7550 cachelist = XCAR (item);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7551 item = XCDR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7552 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7553
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7554 /* Parse properties. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7555 while (CONSP (item) && CONSP (XCDR (item)))
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7556 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7557 tem = XCAR (item);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7558 item = XCDR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7559
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7560 if (EQ (tem, QCenable))
68792
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7561 {
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7562 if (!NILP (Venable_disabled_menus_and_buttons))
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7563 AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt;
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7564 else
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7565 AREF (item_properties, ITEM_PROPERTY_ENABLE) = XCAR (item);
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
7566 }
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7567 else if (EQ (tem, QCvisible) && !notreal)
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7568 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7569 /* If got a visible property and that evaluates to nil
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7570 then ignore this item. */
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7571 tem = menu_item_eval_property (XCAR (item));
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7572 if (NILP (tem))
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7573 return 0;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7574 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7575 else if (EQ (tem, QChelp))
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7576 AREF (item_properties, ITEM_PROPERTY_HELP) = XCAR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7577 else if (EQ (tem, QCfilter))
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7578 filter = item;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7579 else if (EQ (tem, QCkey_sequence))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7580 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7581 tem = XCAR (item);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7582 if (NILP (cachelist)
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7583 && (SYMBOLP (tem) || STRINGP (tem) || VECTORP (tem)))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7584 /* Be GC protected. Set keyhint to item instead of tem. */
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7585 keyhint = item;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7586 }
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7587 else if (EQ (tem, QCkeys))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7588 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7589 tem = XCAR (item);
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
7590 if (CONSP (tem) || (STRINGP (tem) && NILP (cachelist)))
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7591 AREF (item_properties, ITEM_PROPERTY_KEYEQ) = tem;
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7592 }
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7593 else if (EQ (tem, QCbutton) && CONSP (XCAR (item)))
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7594 {
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7595 Lisp_Object type;
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7596 tem = XCAR (item);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7597 type = XCAR (tem);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7598 if (EQ (type, QCtoggle) || EQ (type, QCradio))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7599 {
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7600 AREF (item_properties, ITEM_PROPERTY_SELECTED)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7601 = XCDR (tem);
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7602 AREF (item_properties, ITEM_PROPERTY_TYPE)
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7603 = type;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7604 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7605 }
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7606 item = XCDR (item);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7607 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7608 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7609 else if (inmenubar || !NILP (start))
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7610 return 0;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7611 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7612 else
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7613 return 0; /* not a menu item */
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7614
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7615 /* If item string is not a string, evaluate it to get string.
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7616 If we don't get a string, skip this item. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7617 item_string = AREF (item_properties, ITEM_PROPERTY_NAME);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7618 if (!(STRINGP (item_string) || notreal))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7619 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7620 item_string = menu_item_eval_property (item_string);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7621 if (!STRINGP (item_string))
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7622 return 0;
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7623 AREF (item_properties, ITEM_PROPERTY_NAME) = item_string;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7624 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7625
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7626 /* If got a filter apply it on definition. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7627 def = AREF (item_properties, ITEM_PROPERTY_DEF);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7628 if (!NILP (filter))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7629 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7630 def = menu_item_eval_property (list2 (XCAR (filter),
22469
516ef6b2ceb9 (parse_menu_item): Put a quote around DEF
Richard M. Stallman <rms@gnu.org>
parents: 22384
diff changeset
7631 list2 (Qquote, def)));
516ef6b2ceb9 (parse_menu_item): Put a quote around DEF
Richard M. Stallman <rms@gnu.org>
parents: 22384
diff changeset
7632
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7633 AREF (item_properties, ITEM_PROPERTY_DEF) = def;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7634 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7635
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7636 /* Enable or disable selection of item. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7637 tem = AREF (item_properties, ITEM_PROPERTY_ENABLE);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7638 if (!EQ (tem, Qt))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7639 {
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7640 if (notreal)
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7641 tem = Qt;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7642 else
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7643 tem = menu_item_eval_property (tem);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7644 if (inmenubar && NILP (tem))
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7645 return 0; /* Ignore disabled items in menu bar. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7646 AREF (item_properties, ITEM_PROPERTY_ENABLE) = tem;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7647 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7648
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
7649 /* If we got no definition, this item is just unselectable text which
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
7650 is OK in a submenu but not in the menubar. */
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
7651 if (NILP (def))
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
7652 return (inmenubar ? 0 : 1);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7653
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7654 /* See if this is a separate pane or a submenu. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7655 def = AREF (item_properties, ITEM_PROPERTY_DEF);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32752
diff changeset
7656 tem = get_keymap (def, 0, 1);
23418
13e4ce88374d (parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents: 23226
diff changeset
7657 /* For a subkeymap, just record its details and exit. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32752
diff changeset
7658 if (CONSP (tem))
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7659 {
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7660 AREF (item_properties, ITEM_PROPERTY_MAP) = tem;
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7661 AREF (item_properties, ITEM_PROPERTY_DEF) = tem;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7662 return 1;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7663 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7664
23418
13e4ce88374d (parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents: 23226
diff changeset
7665 /* At the top level in the menu bar, do likewise for commands also.
13e4ce88374d (parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents: 23226
diff changeset
7666 The menu bar does not display equivalent key bindings anyway.
13e4ce88374d (parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents: 23226
diff changeset
7667 ITEM_PROPERTY_DEF is already set up properly. */
13e4ce88374d (parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents: 23226
diff changeset
7668 if (inmenubar > 0)
13e4ce88374d (parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents: 23226
diff changeset
7669 return 1;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7670
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7671 /* This is a command. See if there is an equivalent key binding. */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7672 if (NILP (cachelist))
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7673 {
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7674 /* We have to create a cachelist. */
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7675 CHECK_IMPURE (start);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7676 XSETCDR (start, Fcons (Fcons (Qnil, Qnil), XCDR (start)));
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7677 cachelist = XCAR (XCDR (start));
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7678 newcache = 1;
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7679 tem = AREF (item_properties, ITEM_PROPERTY_KEYEQ);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7680 if (!NILP (keyhint))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7681 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7682 XSETCAR (cachelist, XCAR (keyhint));
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7683 newcache = 0;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7684 }
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7685 else if (STRINGP (tem))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7686 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7687 XSETCDR (cachelist, Fsubstitute_command_keys (tem));
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7688 XSETCAR (cachelist, Qt);
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7689 }
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7690 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7691
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7692 tem = XCAR (cachelist);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7693 if (!EQ (tem, Qt))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7694 {
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7695 int chkcache = 0;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7696 Lisp_Object prefix;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7697
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7698 if (!NILP (tem))
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
7699 tem = Fkey_binding (tem, Qnil, Qnil, Qnil);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7700
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7701 prefix = AREF (item_properties, ITEM_PROPERTY_KEYEQ);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7702 if (CONSP (prefix))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7703 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7704 def = XCAR (prefix);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7705 prefix = XCDR (prefix);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7706 }
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7707 else
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7708 def = AREF (item_properties, ITEM_PROPERTY_DEF);
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7709
65692
b4317398b284 (update_menu_bindings): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 65109
diff changeset
7710 if (NILP (XCAR (cachelist))) /* Have no saved key. */
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7711 {
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7712 if (newcache /* Always check first time. */
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7713 /* Should we check everything when precomputing key
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7714 bindings? */
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7715 /* If something had no key binding before, don't recheck it
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7716 because that is too slow--except if we have a list of
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7717 rebound commands in Vdefine_key_rebound_commands, do
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7718 recheck any command that appears in that list. */
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7719 || (CONSP (Vdefine_key_rebound_commands)
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7720 && !NILP (Fmemq (def, Vdefine_key_rebound_commands))))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7721 chkcache = 1;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7722 }
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7723 /* We had a saved key. Is it still bound to the command? */
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7724 else if (NILP (tem)
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
7725 || (!EQ (tem, def)
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
7726 /* If the command is an alias for another
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
7727 (such as lmenu.el set it up), check if the
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
7728 original command matches the cached command. */
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
7729 && !(SYMBOLP (def) && EQ (tem, XSYMBOL (def)->function))))
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7730 chkcache = 1; /* Need to recompute key binding. */
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7731
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7732 if (chkcache)
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7733 {
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7734 /* Recompute equivalent key binding. If the command is an alias
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7735 for another (such as lmenu.el set it up), see if the original
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7736 command name has equivalent keys. Otherwise look up the
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7737 specified command itself. We don't try both, because that
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7738 makes lmenu menus slow. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7739 if (SYMBOLP (def)
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7740 && SYMBOLP (XSYMBOL (def)->function)
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7741 && ! NILP (Fget (def, Qmenu_alias)))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7742 def = XSYMBOL (def)->function;
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
7743 tem = Fwhere_is_internal (def, Qnil, Qt, Qnil, Qt);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7744 XSETCAR (cachelist, tem);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7745 if (NILP (tem))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7746 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7747 XSETCDR (cachelist, Qnil);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7748 chkcache = 0;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7749 }
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7750 }
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7751 else if (!NILP (keyhint) && !NILP (XCAR (cachelist)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7752 {
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7753 tem = XCAR (cachelist);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7754 chkcache = 1;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7755 }
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7756
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7757 newcache = chkcache;
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7758 if (chkcache)
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7759 {
54927
7b6b4d9ae726 (Fkey_description): Change callers.
Kim F. Storm <storm@cua.dk>
parents: 54181
diff changeset
7760 tem = Fkey_description (tem, Qnil);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7761 if (CONSP (prefix))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7762 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7763 if (STRINGP (XCAR (prefix)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7764 tem = concat2 (XCAR (prefix), tem);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7765 if (STRINGP (XCDR (prefix)))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7766 tem = concat2 (tem, XCDR (prefix));
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7767 }
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7768 XSETCDR (cachelist, tem);
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7769 }
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7770 }
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7771
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
7772 tem = XCDR (cachelist);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7773 if (newcache && !NILP (tem))
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7774 {
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
7775 tem = concat3 (build_string (" ("), tem, build_string (")"));
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
7776 XSETCDR (cachelist, tem);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7777 }
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7778
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7779 /* If we only want to precompute equivalent key bindings, stop here. */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7780 if (notreal)
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7781 return 1;
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7782
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7783 /* If we have an equivalent key binding, use that. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7784 AREF (item_properties, ITEM_PROPERTY_KEYEQ) = tem;
22104
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7785
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7786 /* Include this when menu help is implemented.
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7787 tem = XVECTOR (item_properties)->contents[ITEM_PROPERTY_HELP];
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7788 if (!(NILP (tem) || STRINGP (tem)))
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7789 {
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7790 tem = menu_item_eval_property (tem);
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7791 if (!STRINGP (tem))
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7792 tem = Qnil;
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7793 XVECTOR (item_properties)->contents[ITEM_PROPERTY_HELP] = tem;
ce3f89a932d1 (read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents: 22040
diff changeset
7794 }
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7795 */
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7796
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7797 /* Handle radio buttons or toggle boxes. */
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7798 tem = AREF (item_properties, ITEM_PROPERTY_SELECTED);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7799 if (!NILP (tem))
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
7800 AREF (item_properties, ITEM_PROPERTY_SELECTED)
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7801 = menu_item_eval_property (tem);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7802
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
7803 return 1;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
7804 }
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7805
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7806
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7807
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7808 /***********************************************************************
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7809 Tool-bars
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7810 ***********************************************************************/
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7811
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7812 /* A vector holding tool bar items while they are parsed in function
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
7813 tool_bar_items. Each item occupies TOOL_BAR_ITEM_NSCLOTS elements
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7814 in the vector. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7815
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7816 static Lisp_Object tool_bar_items_vector;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7817
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7818 /* A vector holding the result of parse_tool_bar_item. Layout is like
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7819 the one for a single item in tool_bar_items_vector. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7820
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7821 static Lisp_Object tool_bar_item_properties;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7822
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7823 /* Next free index in tool_bar_items_vector. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7824
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7825 static int ntool_bar_items;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7826
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7827 /* The symbols `tool-bar', and `:image'. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7828
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7829 extern Lisp_Object Qtool_bar;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7830 Lisp_Object QCimage;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7831
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7832 /* Function prototypes. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7833
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7834 static void init_tool_bar_items P_ ((Lisp_Object));
69718
7f48146dd4d2 (process_tool_bar_item): Reorganize dummy args.
Juanma Barranquero <lekktu@gmail.com>
parents: 69717
diff changeset
7835 static void process_tool_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*));
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7836 static int parse_tool_bar_item P_ ((Lisp_Object, Lisp_Object));
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7837 static void append_tool_bar_item P_ ((void));
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7838
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7839
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7840 /* Return a vector of tool bar items for keymaps currently in effect.
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7841 Reuse vector REUSE if non-nil. Return in *NITEMS the number of
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7842 tool bar items found. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7843
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7844 Lisp_Object
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7845 tool_bar_items (reuse, nitems)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7846 Lisp_Object reuse;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7847 int *nitems;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7848 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7849 Lisp_Object *maps;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7850 int nmaps, i;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7851 Lisp_Object oquit;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7852 Lisp_Object *tmaps;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7853
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7854 *nitems = 0;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7855
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7856 /* In order to build the menus, we need to call the keymap
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7857 accessors. They all call QUIT. But this function is called
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7858 during redisplay, during which a quit is fatal. So inhibit
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7859 quitting while building the menus. We do this instead of
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7860 specbind because (1) errors will clear it anyway and (2) this
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7861 avoids risk of specpdl overflow. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7862 oquit = Vinhibit_quit;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7863 Vinhibit_quit = Qt;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7864
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7865 /* Initialize tool_bar_items_vector and protect it from GC. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7866 init_tool_bar_items (reuse);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7867
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7868 /* Build list of keymaps in maps. Set nmaps to the number of maps
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7869 to process. */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7870
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7871 /* Should overriding-terminal-local-map and overriding-local-map apply? */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7872 if (!NILP (Voverriding_local_map_menu_flag))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7873 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7874 /* Yes, use them (if non-nil) as well as the global map. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7875 maps = (Lisp_Object *) alloca (3 * sizeof (maps[0]));
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7876 nmaps = 0;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7877 if (!NILP (current_kboard->Voverriding_terminal_local_map))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7878 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7879 if (!NILP (Voverriding_local_map))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7880 maps[nmaps++] = Voverriding_local_map;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7881 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7882 else
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7883 {
44078
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7884 /* No, so use major and minor mode keymaps and keymap property.
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7885 Note that tool-bar bindings in the local-map and keymap
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7886 properties may not work reliable, as they are only
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7887 recognized when the tool-bar (or mode-line) is updated,
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7888 which does not normally happen after every command. */
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7889 Lisp_Object tem;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7890 int nminor;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7891 nminor = current_minor_maps (NULL, &tmaps);
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7892 maps = (Lisp_Object *) alloca ((nminor + 3) * sizeof (maps[0]));
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7893 nmaps = 0;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7894 if (tem = get_local_map (PT, current_buffer, Qkeymap), !NILP (tem))
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7895 maps[nmaps++] = tem;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7896 bcopy (tmaps, (void *) (maps + nmaps), nminor * sizeof (maps[0]));
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7897 nmaps += nminor;
92101c2bc6bf (menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents: 43814
diff changeset
7898 maps[nmaps++] = get_local_map (PT, current_buffer, Qlocal_map);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7899 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7900
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7901 /* Add global keymap at the end. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7902 maps[nmaps++] = current_global_map;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7903
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7904 /* Process maps in reverse order and look up in each map the prefix
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7905 key `tool-bar'. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7906 for (i = nmaps - 1; i >= 0; --i)
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7907 if (!NILP (maps[i]))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7908 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7909 Lisp_Object keymap;
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32174
diff changeset
7910
34514
cd02b61654e4 (menu_bar_items, tool_bar_items):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34217
diff changeset
7911 keymap = get_keymap (access_keymap (maps[i], Qtool_bar, 1, 0, 1), 0, 1);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32752
diff changeset
7912 if (CONSP (keymap))
69717
8f7fe45e9fe8 (tool_bar_items): Use map_keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68792
diff changeset
7913 map_keymap (keymap, process_tool_bar_item, Qnil, NULL, 1);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7914 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7915
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7916 Vinhibit_quit = oquit;
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7917 *nitems = ntool_bar_items / TOOL_BAR_ITEM_NSLOTS;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7918 return tool_bar_items_vector;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7919 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7920
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7921
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7922 /* Process the definition of KEY which is DEF. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7923
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7924 static void
69718
7f48146dd4d2 (process_tool_bar_item): Reorganize dummy args.
Juanma Barranquero <lekktu@gmail.com>
parents: 69717
diff changeset
7925 process_tool_bar_item (key, def, data, args)
69717
8f7fe45e9fe8 (tool_bar_items): Use map_keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68792
diff changeset
7926 Lisp_Object key, def, data;
8f7fe45e9fe8 (tool_bar_items): Use map_keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68792
diff changeset
7927 void *args;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7928 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7929 int i;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7930 extern Lisp_Object Qundefined;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7931 struct gcpro gcpro1, gcpro2;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7932
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7933 /* Protect KEY and DEF from GC because parse_tool_bar_item may call
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7934 eval. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7935 GCPRO2 (key, def);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7936
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7937 if (EQ (def, Qundefined))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7938 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7939 /* If a map has an explicit `undefined' as definition,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7940 discard any previously made item. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7941 for (i = 0; i < ntool_bar_items; i += TOOL_BAR_ITEM_NSLOTS)
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7942 {
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7943 Lisp_Object *v = XVECTOR (tool_bar_items_vector)->contents + i;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7944
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7945 if (EQ (key, v[TOOL_BAR_ITEM_KEY]))
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7946 {
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7947 if (ntool_bar_items > i + TOOL_BAR_ITEM_NSLOTS)
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7948 bcopy (v + TOOL_BAR_ITEM_NSLOTS, v,
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7949 ((ntool_bar_items - i - TOOL_BAR_ITEM_NSLOTS)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7950 * sizeof (Lisp_Object)));
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7951 ntool_bar_items -= TOOL_BAR_ITEM_NSLOTS;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7952 break;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7953 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7954 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7955 }
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7956 else if (parse_tool_bar_item (key, def))
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7957 /* Append a new tool bar item to tool_bar_items_vector. Accept
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7958 more than one definition for the same key. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7959 append_tool_bar_item ();
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7960
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7961 UNGCPRO;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7962 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7963
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7964
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7965 /* Parse a tool bar item specification ITEM for key KEY and return the
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7966 result in tool_bar_item_properties. Value is zero if ITEM is
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7967 invalid.
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7968
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7969 ITEM is a list `(menu-item CAPTION BINDING PROPS...)'.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7970
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7971 CAPTION is the caption of the item, If it's not a string, it is
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7972 evaluated to get a string.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7973
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7974 BINDING is the tool bar item's binding. Tool-bar items with keymaps
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7975 as binding are currently ignored.
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7976
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7977 The following properties are recognized:
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7978
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7979 - `:enable FORM'.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7980
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7981 FORM is evaluated and specifies whether the tool bar item is
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7982 enabled or disabled.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7983
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7984 - `:visible FORM'
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7985
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
7986 FORM is evaluated and specifies whether the tool bar item is visible.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7987
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7988 - `:filter FUNCTION'
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7989
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7990 FUNCTION is invoked with one parameter `(quote BINDING)'. Its
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7991 result is stored as the new binding.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7992
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7993 - `:button (TYPE SELECTED)'
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7994
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7995 TYPE must be one of `:radio' or `:toggle'. SELECTED is evaluated
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7996 and specifies whether the button is selected (pressed) or not.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
7997
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7998 - `:image IMAGES'
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
7999
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8000 IMAGES is either a single image specification or a vector of four
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8001 image specifications. See enum tool_bar_item_images.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8002
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8003 - `:help HELP-STRING'.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8004
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8005 Gives a help string to display for the tool bar item. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8006
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8007 static int
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8008 parse_tool_bar_item (key, item)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8009 Lisp_Object key, item;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8010 {
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8011 /* Access slot with index IDX of vector tool_bar_item_properties. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8012 #define PROP(IDX) XVECTOR (tool_bar_item_properties)->contents[IDX]
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8013
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8014 Lisp_Object filter = Qnil;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8015 Lisp_Object caption;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8016 int i;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8017
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8018 /* Defininition looks like `(menu-item CAPTION BINDING PROPS...)'.
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8019 Rule out items that aren't lists, don't start with
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8020 `menu-item' or whose rest following `tool-bar-item' is not a
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8021 list. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8022 if (!CONSP (item)
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8023 || !EQ (XCAR (item), Qmenu_item)
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8024 || (item = XCDR (item),
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8025 !CONSP (item)))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8026 return 0;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8027
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8028 /* Create tool_bar_item_properties vector if necessary. Reset it to
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8029 defaults. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8030 if (VECTORP (tool_bar_item_properties))
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8031 {
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8032 for (i = 0; i < TOOL_BAR_ITEM_NSLOTS; ++i)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8033 PROP (i) = Qnil;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8034 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8035 else
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8036 tool_bar_item_properties
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8037 = Fmake_vector (make_number (TOOL_BAR_ITEM_NSLOTS), Qnil);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8038
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8039 /* Set defaults. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8040 PROP (TOOL_BAR_ITEM_KEY) = key;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8041 PROP (TOOL_BAR_ITEM_ENABLED_P) = Qt;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8042
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8043 /* Get the caption of the item. If the caption is not a string,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8044 evaluate it to get a string. If we don't get a string, skip this
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8045 item. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8046 caption = XCAR (item);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8047 if (!STRINGP (caption))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8048 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8049 caption = menu_item_eval_property (caption);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8050 if (!STRINGP (caption))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8051 return 0;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8052 }
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8053 PROP (TOOL_BAR_ITEM_CAPTION) = caption;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8054
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8055 /* Give up if rest following the caption is not a list. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8056 item = XCDR (item);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8057 if (!CONSP (item))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8058 return 0;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8059
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8060 /* Store the binding. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8061 PROP (TOOL_BAR_ITEM_BINDING) = XCAR (item);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8062 item = XCDR (item);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8063
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8064 /* Ignore cached key binding, if any. */
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8065 if (CONSP (item) && CONSP (XCAR (item)))
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8066 item = XCDR (item);
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8067
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8068 /* Process the rest of the properties. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8069 for (; CONSP (item) && CONSP (XCDR (item)); item = XCDR (XCDR (item)))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8070 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8071 Lisp_Object key, value;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8072
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8073 key = XCAR (item);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8074 value = XCAR (XCDR (item));
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8075
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8076 if (EQ (key, QCenable))
68792
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
8077 {
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
8078 /* `:enable FORM'. */
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
8079 if (!NILP (Venable_disabled_menus_and_buttons))
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
8080 PROP (TOOL_BAR_ITEM_ENABLED_P) = Qt;
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
8081 else
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
8082 PROP (TOOL_BAR_ITEM_ENABLED_P) = value;
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
8083 }
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8084 else if (EQ (key, QCvisible))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8085 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8086 /* `:visible FORM'. If got a visible property and that
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8087 evaluates to nil then ignore this item. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8088 if (NILP (menu_item_eval_property (value)))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8089 return 0;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8090 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8091 else if (EQ (key, QChelp))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8092 /* `:help HELP-STRING'. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8093 PROP (TOOL_BAR_ITEM_HELP) = value;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8094 else if (EQ (key, QCfilter))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8095 /* ':filter FORM'. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8096 filter = value;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8097 else if (EQ (key, QCbutton) && CONSP (value))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8098 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8099 /* `:button (TYPE . SELECTED)'. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8100 Lisp_Object type, selected;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8101
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8102 type = XCAR (value);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8103 selected = XCDR (value);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8104 if (EQ (type, QCtoggle) || EQ (type, QCradio))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8105 {
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8106 PROP (TOOL_BAR_ITEM_SELECTED_P) = selected;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8107 PROP (TOOL_BAR_ITEM_TYPE) = type;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8108 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8109 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8110 else if (EQ (key, QCimage)
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8111 && (CONSP (value)
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8112 || (VECTORP (value) && XVECTOR (value)->size == 4)))
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8113 /* Value is either a single image specification or a vector
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
8114 of 4 such specifications for the different button states. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8115 PROP (TOOL_BAR_ITEM_IMAGES) = value;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8116 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8117
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8118 /* If got a filter apply it on binding. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8119 if (!NILP (filter))
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8120 PROP (TOOL_BAR_ITEM_BINDING)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8121 = menu_item_eval_property (list2 (filter,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8122 list2 (Qquote,
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8123 PROP (TOOL_BAR_ITEM_BINDING))));
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8124
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8125 /* See if the binding is a keymap. Give up if it is. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32752
diff changeset
8126 if (CONSP (get_keymap (PROP (TOOL_BAR_ITEM_BINDING), 0, 1)))
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8127 return 0;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8128
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8129 /* Enable or disable selection of item. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8130 if (!EQ (PROP (TOOL_BAR_ITEM_ENABLED_P), Qt))
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8131 PROP (TOOL_BAR_ITEM_ENABLED_P)
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8132 = menu_item_eval_property (PROP (TOOL_BAR_ITEM_ENABLED_P));
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8133
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8134 /* Handle radio buttons or toggle boxes. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8135 if (!NILP (PROP (TOOL_BAR_ITEM_SELECTED_P)))
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8136 PROP (TOOL_BAR_ITEM_SELECTED_P)
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8137 = menu_item_eval_property (PROP (TOOL_BAR_ITEM_SELECTED_P));
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8138
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8139 return 1;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8140
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8141 #undef PROP
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8142 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8143
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8144
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8145 /* Initialize tool_bar_items_vector. REUSE, if non-nil, is a vector
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8146 that can be reused. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8147
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8148 static void
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8149 init_tool_bar_items (reuse)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8150 Lisp_Object reuse;
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8151 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8152 if (VECTORP (reuse))
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8153 tool_bar_items_vector = reuse;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8154 else
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8155 tool_bar_items_vector = Fmake_vector (make_number (64), Qnil);
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8156 ntool_bar_items = 0;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8157 }
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8158
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8159
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8160 /* Append parsed tool bar item properties from
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8161 tool_bar_item_properties */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8162
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8163 static void
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8164 append_tool_bar_item ()
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8165 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8166 Lisp_Object *to, *from;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8167
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8168 /* Enlarge tool_bar_items_vector if necessary. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8169 if (ntool_bar_items + TOOL_BAR_ITEM_NSLOTS
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8170 >= XVECTOR (tool_bar_items_vector)->size)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8171 {
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8172 Lisp_Object new_vector;
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8173 int old_size = XVECTOR (tool_bar_items_vector)->size;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8174
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8175 new_vector = Fmake_vector (make_number (2 * old_size), Qnil);
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8176 bcopy (XVECTOR (tool_bar_items_vector)->contents,
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8177 XVECTOR (new_vector)->contents,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8178 old_size * sizeof (Lisp_Object));
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8179 tool_bar_items_vector = new_vector;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8180 }
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8181
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8182 /* Append entries from tool_bar_item_properties to the end of
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8183 tool_bar_items_vector. */
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8184 to = XVECTOR (tool_bar_items_vector)->contents + ntool_bar_items;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8185 from = XVECTOR (tool_bar_item_properties)->contents;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8186 bcopy (from, to, TOOL_BAR_ITEM_NSLOTS * sizeof *to);
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
8187 ntool_bar_items += TOOL_BAR_ITEM_NSLOTS;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8188 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8189
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8190
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8191
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
8192
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
8193
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
8194 /* 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
8195 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
8196 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
8197
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8198 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
8199 the first event of a key sequence.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8200
11654
47ceabade5b2 (kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents: 11613
diff changeset
8201 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
8202 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
8203 USED_MOUSE_MENU is null, we don't dereference it.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8204
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8205 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
8206 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
8207
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8208 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
8209 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
8210 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
8211 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
8212 and do auto-saving in the inner call of read_char. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8213
3453
1fd89e975a78 (read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 3452
diff changeset
8214 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
8215 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
8216 int nmaps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8217 Lisp_Object *maps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8218 Lisp_Object prev_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8219 int *used_mouse_menu;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8220 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8221 int mapno;
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
8222 register Lisp_Object name = Qnil;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8223
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
8224 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
8225 *used_mouse_menu = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8226
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8227 /* Use local over global Menu maps */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8228
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8229 if (! menu_prompting)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8230 return Qnil;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8231
9396
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8232 /* 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
8233 if (inhibit_local_menu_bar_menus)
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8234 {
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8235 maps += (nmaps - 1);
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8236 nmaps = 1;
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8237 }
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
8238
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8239 /* 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
8240 for (mapno = 0; mapno < nmaps; mapno++)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8241 {
39692
e479fa559f2e (map_prompt): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39684
diff changeset
8242 name = Fkeymap_prompt (maps[mapno]);
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8243 if (!NILP (name))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8244 break;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8245 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8246
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8247 /* If we don't have any menus, just read a character normally. */
45310
472f06c53d46 (read_char_x_menu_prompt): Use an equivalent but more meaningful test.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45122
diff changeset
8248 if (!STRINGP (name))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8249 return Qnil;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8250
13864
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
8251 #ifdef HAVE_MENUS
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8252 /* 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
8253 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
8254 if (EVENT_HAS_PARAMETERS (prev_event)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8255 && !EQ (XCAR (prev_event), Qmenu_bar)
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8256 && !EQ (XCAR (prev_event), Qtool_bar))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8257 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8258 /* Display the menu and get the selection. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8259 Lisp_Object *realmaps
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8260 = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object));
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8261 Lisp_Object value;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8262 int nmaps1 = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8263
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8264 /* Use the maps that are not nil. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8265 for (mapno = 0; mapno < nmaps; mapno++)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8266 if (!NILP (maps[mapno]))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8267 realmaps[nmaps1++] = maps[mapno];
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8268
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8269 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
8270 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
8271 {
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
8272 Lisp_Object tem;
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
8273
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8274 record_menu_key (XCAR (value));
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
8275
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
8276 /* 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
8277 the first.
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
8278 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
8279 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
8280 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
8281 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
8282 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
8283 they won't confuse things. */
38674
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
8284 for (tem = XCDR (value); !NILP (tem); tem = XCDR (tem))
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
8285 {
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8286 record_menu_key (XCAR (tem));
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8287 if (SYMBOLP (XCAR (tem))
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8288 || INTEGERP (XCAR (tem)))
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
8289 XSETCAR (tem, Fcons (XCAR (tem), Qdisabled));
16750
06001fb1a820 (read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents: 16734
diff changeset
8290 }
13082
909b5a8414ee (safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 13014
diff changeset
8291
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
8292 /* 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
8293 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
8294 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
8295 Vunread_command_events
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8296 = nconc2 (XCDR (value), Vunread_command_events);
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
8297 value = XCAR (value);
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
8298 }
6932
bde97688f58b (read_char_x_menu_prompt): Don't check for value = nil
Richard M. Stallman <rms@gnu.org>
parents: 6925
diff changeset
8299 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
8300 value = Qt;
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
8301 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
8302 *used_mouse_menu = 1;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8303 return value;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8304 }
13864
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
8305 #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
8306 return Qnil ;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8307 }
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8308
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8309 /* Buffer in use so far for the minibuf prompts for menu keymaps.
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8310 We make this bigger when necessary, and never free it. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8311 static char *read_char_minibuf_menu_text;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8312 /* Size of that buffer. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8313 static int read_char_minibuf_menu_width;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8314
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8315 static Lisp_Object
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
8316 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
8317 int commandflag ;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8318 int nmaps;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8319 Lisp_Object *maps;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8320 {
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8321 int mapno;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8322 register Lisp_Object name;
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8323 int nlength;
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
8324 /* FIXME: Use the minibuffer's frame width. */
51196
3fec44aca3cc Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51179
diff changeset
8325 int width = FRAME_COLS (SELECTED_FRAME ()) - 4;
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8326 int idx = -1;
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8327 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
8328 Lisp_Object rest, vector;
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8329 char *menu;
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8330
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8331 vector = Qnil;
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
8332 name = Qnil;
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8333
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8334 if (! menu_prompting)
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8335 return Qnil;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8336
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8337 /* Make sure we have a big enough buffer for the menu text. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8338 if (read_char_minibuf_menu_text == 0)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8339 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8340 read_char_minibuf_menu_width = width + 4;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8341 read_char_minibuf_menu_text = (char *) xmalloc (width + 4);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8342 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8343 else if (width + 4 > read_char_minibuf_menu_width)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8344 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8345 read_char_minibuf_menu_width = width + 4;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8346 read_char_minibuf_menu_text
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8347 = (char *) xrealloc (read_char_minibuf_menu_text, width + 4);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8348 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8349 menu = read_char_minibuf_menu_text;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8350
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8351 /* 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
8352 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
8353 {
39692
e479fa559f2e (map_prompt): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39684
diff changeset
8354 name = Fkeymap_prompt (maps[mapno]);
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8355 if (!NILP (name))
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8356 break;
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8357 }
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8358
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8359 /* If we don't have any menus, just read a character normally. */
45310
472f06c53d46 (read_char_x_menu_prompt): Use an equivalent but more meaningful test.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45122
diff changeset
8360 if (!STRINGP (name))
5565
8b688d642fc1 (read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents: 5513
diff changeset
8361 return Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8362
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8363 /* Prompt string always starts with map's prompt, and a space. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8364 strcpy (menu, SDATA (name));
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8365 nlength = SBYTES (name);
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8366 menu[nlength++] = ':';
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8367 menu[nlength++] = ' ';
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8368 menu[nlength] = 0;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8369
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8370 /* Start prompting at start of first map. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8371 mapno = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
8372 rest = maps[mapno];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8373
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8374 /* Present the documented bindings, a line at a time. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8375 while (1)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8376 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8377 int notfirst = 0;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8378 int i = nlength;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8379 Lisp_Object obj;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8380 int ch;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8381 Lisp_Object orig_defn_macro;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8382
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8383 /* Loop over elements of map. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8384 while (i < width)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8385 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8386 Lisp_Object elt;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8387
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8388 /* If reached end of map, start at beginning of next map. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8389 if (NILP (rest))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8390 {
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8391 mapno++;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8392 /* At end of last map, wrap around to first map if just starting,
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8393 or end this line if already have something on it. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8394 if (mapno == nmaps)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8395 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8396 mapno = 0;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8397 if (notfirst || nobindings) break;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8398 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8399 rest = maps[mapno];
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8400 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8401
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8402 /* Look at the next element of the map. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8403 if (idx >= 0)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8404 elt = XVECTOR (vector)->contents[idx];
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8405 else
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8406 elt = Fcar_safe (rest);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8407
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8408 if (idx < 0 && VECTORP (elt))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8409 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8410 /* If we found a dense table in the keymap,
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8411 advanced past it, but start scanning its contents. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8412 rest = Fcdr_safe (rest);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8413 vector = elt;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8414 idx = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8415 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8416 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8417 {
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8418 /* An ordinary element. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8419 Lisp_Object event, tem;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8420
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8421 if (idx < 0)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8422 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8423 event = Fcar_safe (elt); /* alist */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8424 elt = Fcdr_safe (elt);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8425 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8426 else
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8427 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8428 XSETINT (event, idx); /* vector */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8429 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8430
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8431 /* Ignore the element if it has no prompt string. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8432 if (INTEGERP (event) && parse_menu_item (elt, 0, -1))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8433 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8434 /* 1 if the char to type matches the string. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8435 int char_matches;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8436 Lisp_Object upcased_event, downcased_event;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8437 Lisp_Object desc = Qnil;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8438 Lisp_Object s
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8439 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME];
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8440
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8441 upcased_event = Fupcase (event);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8442 downcased_event = Fdowncase (event);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8443 char_matches = (XINT (upcased_event) == SREF (s, 0)
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8444 || XINT (downcased_event) == SREF (s, 0));
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8445 if (! char_matches)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8446 desc = Fsingle_key_description (event, Qnil);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8447
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8448 #if 0 /* It is redundant to list the equivalent key bindings because
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8449 the prefix is what the user has already typed. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8450 tem
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8451 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ];
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8452 if (!NILP (tem))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8453 /* Insert equivalent keybinding. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8454 s = concat2 (s, tem);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8455 #endif
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8456 tem
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8457 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE];
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8458 if (EQ (tem, QCradio) || EQ (tem, QCtoggle))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8459 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8460 /* Insert button prefix. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8461 Lisp_Object selected
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8462 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED];
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8463 if (EQ (tem, QCradio))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8464 tem = build_string (NILP (selected) ? "(*) " : "( ) ");
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8465 else
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8466 tem = build_string (NILP (selected) ? "[X] " : "[ ] ");
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8467 s = concat2 (tem, s);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8468 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8469
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8470
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8471 /* If we have room for the prompt string, add it to this line.
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8472 If this is the first on the line, always add it. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8473 if ((SCHARS (s) + i + 2
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8474 + (char_matches ? 0 : SCHARS (desc) + 3))
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8475 < width
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8476 || !notfirst)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8477 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8478 int thiswidth;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8479
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8480 /* Punctuate between strings. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8481 if (notfirst)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8482 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8483 strcpy (menu + i, ", ");
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8484 i += 2;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8485 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8486 notfirst = 1;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8487 nobindings = 0 ;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8488
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8489 /* If the char to type doesn't match the string's
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8490 first char, explicitly show what char to type. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8491 if (! char_matches)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8492 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8493 /* Add as much of string as fits. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8494 thiswidth = SCHARS (desc);
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8495 if (thiswidth + i > width)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8496 thiswidth = width - i;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8497 bcopy (SDATA (desc), menu + i, thiswidth);
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8498 i += thiswidth;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8499 strcpy (menu + i, " = ");
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8500 i += 3;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8501 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8502
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8503 /* Add as much of string as fits. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8504 thiswidth = SCHARS (s);
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8505 if (thiswidth + i > width)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8506 thiswidth = width - i;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
8507 bcopy (SDATA (s), menu + i, thiswidth);
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8508 i += thiswidth;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8509 menu[i] = 0;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8510 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8511 else
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8512 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8513 /* If this element does not fit, end the line now,
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8514 and save the element for the next line. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8515 strcpy (menu + i, "...");
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8516 break;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8517 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8518 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8519
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8520 /* Move past this element. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8521 if (idx >= 0 && idx + 1 >= XVECTOR (vector)->size)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8522 /* Handle reaching end of dense table. */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8523 idx = -1;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8524 if (idx >= 0)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8525 idx++;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8526 else
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8527 rest = Fcdr_safe (rest);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8528 }
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8529 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8530
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8531 /* Prompt with that and read response. */
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
8532 message2_nolog (menu, strlen (menu),
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8533 ! NILP (current_buffer->enable_multibyte_characters));
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8534
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8535 /* Make believe its not a keyboard macro in case the help char
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8536 is pressed. Help characters are not recorded because menu prompting
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8537 is not used on replay.
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8538 */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8539 orig_defn_macro = current_kboard->defining_kbd_macro;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8540 current_kboard->defining_kbd_macro = Qnil;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8541 do
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
8542 obj = read_char (commandflag, 0, 0, Qt, 0, NULL);
46368
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8543 while (BUFFERP (obj));
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8544 current_kboard->defining_kbd_macro = orig_defn_macro;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8545
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8546 if (!INTEGERP (obj))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8547 return obj;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8548 else
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8549 ch = XINT (obj);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8550
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8551 if (! EQ (obj, menu_prompt_more_char)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8552 && (!INTEGERP (menu_prompt_more_char)
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8553 || ! EQ (obj, make_number (Ctl (XINT (menu_prompt_more_char))))))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8554 {
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8555 if (!NILP (current_kboard->defining_kbd_macro))
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8556 store_kbd_macro_char (obj);
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8557 return obj;
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8558 }
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8559 /* Help char - go round again */
0b55cf135919 Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents: 46343
diff changeset
8560 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8561 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8562
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8563 /* Reading key sequences. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8564
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8565 /* Follow KEY in the maps in CURRENT[0..NMAPS-1], placing its bindings
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8566 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
8567 keymap, or nil otherwise. Return the index of the first keymap in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8568 which KEY has any binding, or NMAPS if no map has a binding.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8569
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8570 If KEY is a meta ASCII character, treat it like meta-prefix-char
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8571 followed by the corresponding non-meta character. Keymaps in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8572 CURRENT with non-prefix bindings for meta-prefix-char become nil in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8573 NEXT.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8574
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
8575 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
8576 unmodified.
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
8577
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
8578 NEXT may be the same array as CURRENT. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8579
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8580 static int
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
8581 follow_key (key, nmaps, current, defs, next)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8582 Lisp_Object key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8583 Lisp_Object *current, *defs, *next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8584 int nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8585 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8586 int i, first_binding;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8587
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8588 first_binding = nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8589 for (i = nmaps - 1; i >= 0; i--)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8590 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8591 if (! NILP (current[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8592 {
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8593 defs[i] = access_keymap (current[i], key, 1, 0, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8594 if (! NILP (defs[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8595 first_binding = i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8596 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8597 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8598 defs[i] = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8599 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8600
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8601 /* 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
8602 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
8603 for (i = 0; i < nmaps; i++)
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32752
diff changeset
8604 next[i] = NILP (defs[i]) ? Qnil : get_keymap (defs[i], 0, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8605
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8606 return first_binding;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8607 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8608
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8609 /* Structure used to keep track of partial application of key remapping
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8610 such as Vfunction_key_map and Vkey_translation_map. */
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8611 typedef struct keyremap
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8612 {
72325
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8613 /* This is the map originally specified for this use. */
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8614 Lisp_Object parent;
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8615 /* This is a submap reached by looking up, in PARENT,
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8616 the events from START to END. */
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8617 Lisp_Object map;
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8618 /* Positions [START, END) in the key sequence buffer
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8619 are the key that we have scanned so far.
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8620 Those events are the ones that we will replace
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8621 if PAREHT maps them into a key sequence. */
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8622 int start, end;
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8623 } keyremap;
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8624
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8625 /* Lookup KEY in MAP.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8626 MAP is a keymap mapping keys to key vectors or functions.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8627 If the mapping is a function and DO_FUNCTION is non-zero, then
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8628 the function is called with PROMPT as parameter and its return
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8629 value is used as the return value of this function (after checking
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8630 that it is indeed a vector). */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8631
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8632 static Lisp_Object
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8633 access_keymap_keyremap (map, key, prompt, do_funcall)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8634 Lisp_Object map, key, prompt;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8635 int do_funcall;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8636 {
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8637 Lisp_Object next;
54087
5a946bc3433a Fix whitespace.
Kim F. Storm <storm@cua.dk>
parents: 54086
diff changeset
8638
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8639 next = access_keymap (map, key, 1, 0, 1);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8640
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8641 /* Handle symbol with autoload definition. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8642 if (SYMBOLP (next) && !NILP (Ffboundp (next))
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8643 && CONSP (XSYMBOL (next)->function)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8644 && EQ (XCAR (XSYMBOL (next)->function), Qautoload))
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8645 do_autoload (XSYMBOL (next)->function, next);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8646
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8647 /* Handle a symbol whose function definition is a keymap
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8648 or an array. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8649 if (SYMBOLP (next) && !NILP (Ffboundp (next))
71835
838f4260201e (access_keymap_keyremap): Use ARRAYP.
Kim F. Storm <storm@cua.dk>
parents: 71798
diff changeset
8650 && (ARRAYP (XSYMBOL (next)->function)
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8651 || KEYMAPP (XSYMBOL (next)->function)))
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8652 next = XSYMBOL (next)->function;
54087
5a946bc3433a Fix whitespace.
Kim F. Storm <storm@cua.dk>
parents: 54086
diff changeset
8653
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8654 /* If the keymap gives a function, not an
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8655 array, then call the function with one arg and use
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8656 its value instead. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8657 if (SYMBOLP (next) && !NILP (Ffboundp (next)) && do_funcall)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8658 {
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8659 Lisp_Object tem;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8660 tem = next;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8661
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8662 next = call1 (next, prompt);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8663 /* If the function returned something invalid,
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8664 barf--don't ignore it.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8665 (To ignore it safely, we would need to gcpro a bunch of
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8666 other variables.) */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8667 if (! (VECTORP (next) || STRINGP (next)))
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8668 error ("Function %s returns invalid key sequence", tem);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8669 }
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8670 return next;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8671 }
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8672
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8673 /* Do one step of the key remapping used for function-key-map and
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8674 key-translation-map:
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8675 KEYBUF is the buffer holding the input events.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8676 BUFSIZE is its maximum size.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8677 FKEY is a pointer to the keyremap structure to use.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8678 INPUT is the index of the last element in KEYBUF.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8679 DOIT if non-zero says that the remapping can actually take place.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8680 DIFF is used to return the number of keys added/removed by the remapping.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8681 PARENT is the root of the keymap.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8682 PROMPT is the prompt to use if the remapping happens through a function.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8683 The return value is non-zero if the remapping actually took place. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8684
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8685 static int
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
8686 keyremap_step (keybuf, bufsize, fkey, input, doit, diff, prompt)
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
8687 Lisp_Object *keybuf, prompt;
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8688 keyremap *fkey;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8689 int input, doit, *diff, bufsize;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8690 {
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8691 Lisp_Object next, key;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8692
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8693 key = keybuf[fkey->end++];
72325
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8694
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8695 if (KEYMAPP (fkey->parent))
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8696 next = access_keymap_keyremap (fkey->map, key, prompt, doit);
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8697 else
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8698 next = Qnil;
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8699
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8700 /* If keybuf[fkey->start..fkey->end] is bound in the
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8701 map and we're in a position to do the key remapping, replace it with
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8702 the binding and restart with fkey->start at the end. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8703 if ((VECTORP (next) || STRINGP (next)) && doit)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8704 {
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8705 int len = XFASTINT (Flength (next));
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8706 int i;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8707
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8708 *diff = len - (fkey->end - fkey->start);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8709
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8710 if (input + *diff >= bufsize)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8711 error ("Key sequence too long");
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8712
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8713 /* Shift the keys that follow fkey->end. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8714 if (*diff < 0)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8715 for (i = fkey->end; i < input; i++)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8716 keybuf[i + *diff] = keybuf[i];
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8717 else if (*diff > 0)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8718 for (i = input - 1; i >= fkey->end; i--)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8719 keybuf[i + *diff] = keybuf[i];
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8720 /* Overwrite the old keys with the new ones. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8721 for (i = 0; i < len; i++)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8722 keybuf[fkey->start + i]
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8723 = Faref (next, make_number (i));
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8724
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8725 fkey->start = fkey->end += *diff;
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
8726 fkey->map = fkey->parent;
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8727
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8728 return 1;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8729 }
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8730
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8731 fkey->map = get_keymap (next, 0, 1);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8732
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8733 /* If we no longer have a bound suffix, try a new position for
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8734 fkey->start. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8735 if (!CONSP (fkey->map))
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8736 {
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8737 fkey->end = ++fkey->start;
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
8738 fkey->map = fkey->parent;
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8739 }
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8740 return 0;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8741 }
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8742
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
8743 /* 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
8744 storing it in KEYBUF, a buffer of size BUFSIZE.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8745 Prompt with PROMPT.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8746 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
8747 Return -1 if the user rejected a command menu.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8748
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8749 Echo starting immediately unless `prompt' is 0.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8750
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8751 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
8752 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
8753 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
8754
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8755 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
8756 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
8757 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
8758 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
8759
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
8760 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
8761 `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
8762 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
8763 then into clicks.
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8764
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8765 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
8766 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
8767 symbol denoting that area - `mode-line', `vertical-line', or
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8768 whatever.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8769
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8770 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
8771 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
8772
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8773 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
8774 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
8775 read_char will return it.
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
8776
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
8777 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
8778 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
8779
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8780 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
8781 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
8782 can_return_switch_frame, fix_current_buffer)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8783 Lisp_Object *keybuf;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8784 int bufsize;
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
8785 Lisp_Object prompt;
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
8786 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
8787 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
8788 int fix_current_buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8789 {
36705
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
8790 volatile Lisp_Object from_string;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
8791 volatile int count = SPECPDL_INDEX ();
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8792
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8793 /* How many keys there are in the current key sequence. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8794 volatile int t;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8795
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8796 /* The length of the echo buffer when we started reading, and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8797 the length of this_command_keys when we started reading. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8798 volatile int echo_start;
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8799 volatile int keys_start;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8800
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8801 /* The number of keymaps we're scanning right now, and the number of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8802 keymaps we have allocated space for. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8803 volatile int nmaps;
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8804 volatile int nmaps_allocated = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8805
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8806 /* defs[0..nmaps-1] are the definitions of KEYBUF[0..t-1] in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8807 the current keymaps. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8808 Lisp_Object *volatile defs = NULL;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8809
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8810 /* 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
8811 in the current keymaps, or nil where it is not a prefix. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8812 Lisp_Object *volatile submaps = NULL;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8813
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
8814 /* The local map to start out with at start of key sequence. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8815 volatile Lisp_Object orig_local_map;
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
8816
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
8817 /* The map from the `keymap' property to start out with at start of
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
8818 key sequence. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8819 volatile Lisp_Object orig_keymap;
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
8820
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
8821 /* 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
8822 of the place where a mouse click occurred. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8823 volatile int localized_local_map = 0;
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
8824
76711
ba2df4dce7bc Fix a comment before `read_key_sequence'.
Eli Zaretskii <eliz@gnu.org>
parents: 76623
diff changeset
8825 /* The index in submaps[] of the first keymap that has a binding for
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8826 this key sequence. In other words, the lowest i such that
76711
ba2df4dce7bc Fix a comment before `read_key_sequence'.
Eli Zaretskii <eliz@gnu.org>
parents: 76623
diff changeset
8827 submaps[i] is non-nil. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8828 volatile int first_binding;
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
8829 /* Index of the first key that has no binding.
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8830 It is useless to try fkey.start larger than that. */
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
8831 volatile int first_unbound;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8832
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8833 /* 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
8834 input key.
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
8835
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
8836 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
8837 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
8838 function key's escape sequence, we replace the suffix with the
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
8839 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
8840 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
8841 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
8842 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
8843 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
8844 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
8845 reading characters from the keyboard. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8846 volatile int mock_input = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8847
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
8848 /* If the sequence is unbound in submaps[], then
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8849 keybuf[fkey.start..fkey.end-1] is a prefix in Vfunction_key_map,
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8850 and fkey.map is its binding.
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8851
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8852 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
8853 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
8854 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
8855 key's again in Vfunction_key_map. */
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8856 volatile keyremap fkey;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8857
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
8858 /* Likewise, for key_translation_map. */
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
8859 volatile keyremap keytran;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
8860
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8861 /* If we receive a `switch-frame' or `select-window' event in the middle of
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8862 a key sequence, we put it off for later.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
8863 While we're reading, we keep the event here. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8864 volatile Lisp_Object delayed_switch_frame;
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8865
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
8866 /* 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
8867 #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
8868 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
8869 #endif
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8870
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8871 volatile Lisp_Object original_uppercase;
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
8872 volatile int original_uppercase_position = -1;
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
8873
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
8874 /* 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
8875 int dummyflag = 0;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
8876
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
8877 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
8878
37689
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
8879 /* List of events for which a fake prefix key has been generated. */
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
8880 volatile Lisp_Object fake_prefixed_keys = Qnil;
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
8881
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
8882 #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
8883 int junk;
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
8884 #endif
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8885
37689
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
8886 struct gcpro gcpro1;
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
8887
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
8888 GCPRO1 (fake_prefixed_keys);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
8889 raw_keybuf_count = 0;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
8890
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8891 last_nonmenu_event = Qnil;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8892
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8893 delayed_switch_frame = Qnil;
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
8894 fkey.map = fkey.parent = Vfunction_key_map;
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
8895 keytran.map = keytran.parent = Vkey_translation_map;
72325
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8896 fkey.start = fkey.end = 0;
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
8897 keytran.start = keytran.end = 0;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
8898
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8899 if (INTERACTIVE)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8900 {
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
8901 if (!NILP (prompt))
34544
24bcec64720c (echo_prompt): Argument type changed to Lisp_Object.
Kenichi Handa <handa@m17n.org>
parents: 34518
diff changeset
8902 echo_prompt (prompt);
27769
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
8903 else if (cursor_in_echo_area
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
8904 && (FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes))
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
8905 && NILP (Fzerop (Vecho_keystrokes)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8906 /* 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
8907 you don't always see a dash hanging out in the minibuffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8908 echo_dash ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8909 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8910
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8911 /* 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
8912 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
8913 if (INTERACTIVE)
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
8914 echo_start = echo_length ();
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8915 keys_start = this_command_key_count;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
8916 this_single_command_key_start = keys_start;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8917
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
8918 #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
8919 /* 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
8920 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
8921 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
8922
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8923 /* 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
8924 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
8925 first_event = read_char (NILP (prompt), 0, submaps, last_nonmenu_event,
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
8926 &junk, NULL);
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
8927 #endif /* GOBBLE_FIRST_EVENT */
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
8928
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
8929 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map);
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
8930 orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
36705
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
8931 from_string = Qnil;
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
8932
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
8933 /* 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
8934 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
8935 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
8936 replay_sequence:
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
8937
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
8938 starting_buffer = current_buffer;
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
8939 first_unbound = bufsize + 1;
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
8940
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
8941 /* Build our list of keymaps.
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
8942 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
8943 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
8944 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
8945 the initial keymaps from the current buffer. */
42486
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8946 nmaps = 0;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8947
72845
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8948 if (!NILP (current_kboard->Voverriding_terminal_local_map))
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8949 {
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8950 if (2 > nmaps_allocated)
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8951 {
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8952 submaps = (Lisp_Object *) alloca (2 * sizeof (submaps[0]));
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8953 defs = (Lisp_Object *) alloca (2 * sizeof (defs[0]));
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8954 nmaps_allocated = 2;
42486
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8955 }
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8956 if (!NILP (current_kboard->Voverriding_terminal_local_map))
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8957 submaps[nmaps++] = current_kboard->Voverriding_terminal_local_map;
72845
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8958 }
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8959 else if (!NILP (Voverriding_local_map))
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8960 {
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8961 if (2 > nmaps_allocated)
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8962 {
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8963 submaps = (Lisp_Object *) alloca (2 * sizeof (submaps[0]));
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8964 defs = (Lisp_Object *) alloca (2 * sizeof (defs[0]));
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8965 nmaps_allocated = 2;
becf85cadcc0 (read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents: 72790
diff changeset
8966 }
42486
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8967 if (!NILP (Voverriding_local_map))
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8968 submaps[nmaps++] = Voverriding_local_map;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8969 }
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8970 else
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8971 {
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8972 int nminor;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8973 int total;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8974 Lisp_Object *maps;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8975
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8976 nminor = current_minor_maps (0, &maps);
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8977 total = nminor + (!NILP (orig_keymap) ? 3 : 2);
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8978
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8979 if (total > nmaps_allocated)
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8980 {
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8981 submaps = (Lisp_Object *) alloca (total * sizeof (submaps[0]));
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8982 defs = (Lisp_Object *) alloca (total * sizeof (defs[0]));
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8983 nmaps_allocated = total;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8984 }
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8985
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8986 if (!NILP (orig_keymap))
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8987 submaps[nmaps++] = orig_keymap;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8988
42499
e4c6344ca163 (read_key_sequence): Fixed cast of submaps arg to bcopy.
Kim F. Storm <storm@cua.dk>
parents: 42486
diff changeset
8989 bcopy (maps, (void *) (submaps + nmaps),
42486
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8990 nminor * sizeof (submaps[0]));
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8991
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8992 nmaps += nminor;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8993
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8994 submaps[nmaps++] = orig_local_map;
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8995 }
488ddda9d397 (read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents: 42337
diff changeset
8996 submaps[nmaps++] = current_global_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8997
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8998 /* Find an accurate initial value for first_binding. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8999 for (first_binding = 0; first_binding < nmaps; first_binding++)
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
9000 if (! NILP (submaps[first_binding]))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9001 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9002
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
9003 /* Start from the beginning in keybuf. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9004 t = 0;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9005
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9006 /* 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
9007 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
9008 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
9009 if (INTERACTIVE && t < mock_input)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9010 echo_truncate (echo_start);
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9011
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
9012 /* 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
9013 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
9014 reading. */
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9015 while (first_binding < nmaps
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9016 /* Keep reading as long as there's a prefix binding. */
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9017 ? !NILP (submaps[first_binding])
5225
95a44cfa9e17 (make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents: 5224
diff changeset
9018 /* 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
9019 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
9020 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
9021 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
9022 so that we can translate ESC O plus the next character. */
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9023 : (fkey.start < t || keytran.start < t))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9024 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9025 Lisp_Object key;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
9026 int used_mouse_menu = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9027
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
9028 /* 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
9029 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
9030 (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
9031 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
9032 of keybuf. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
9033 volatile int last_real_key_start;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
9034
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9035 /* 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
9036 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
9037 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
9038 just one key. */
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
9039 volatile int echo_local_start, keys_local_start, local_first_binding;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9040
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9041 eassert (fkey.end == t || (fkey.end > t && fkey.end <= mock_input));
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9042 eassert (fkey.start <= fkey.end);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9043 eassert (keytran.start <= keytran.end);
45753
402855ebf092 (read_key_sequence):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45751
diff changeset
9044 /* key-translation-map is applied *after* function-key-map. */
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9045 eassert (keytran.end <= fkey.start);
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9046
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9047 if (first_unbound < fkey.start && first_unbound < keytran.start)
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9048 { /* The prefix upto first_unbound has no binding and has
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9049 no translation left to do either, so we know it's unbound.
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9050 If we don't stop now, we risk staying here indefinitely
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9051 (if the user keeps entering fkey or keytran prefixes
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9052 like C-c ESC ESC ESC ESC ...) */
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9053 int i;
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9054 for (i = first_unbound + 1; i < t; i++)
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9055 keybuf[i - first_unbound - 1] = keybuf[i];
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9056 mock_input = t - first_unbound - 1;
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9057 fkey.end = fkey.start -= first_unbound + 1;
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
9058 fkey.map = fkey.parent;
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9059 keytran.end = keytran.start -= first_unbound + 1;
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
9060 keytran.map = keytran.parent;
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9061 goto replay_sequence;
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9062 }
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9063
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9064 if (t >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9065 error ("Key sequence too long");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9066
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9067 if (INTERACTIVE)
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9068 echo_local_start = echo_length ();
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9069 keys_local_start = this_command_key_count;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9070 local_first_binding = first_binding;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9071
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9072 replay_key:
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9073 /* 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
9074 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
9075 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
9076 loop. */
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
9077 if (INTERACTIVE && t < mock_input)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9078 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
9079 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
9080 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
9081
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9082 /* 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
9083 last_real_key_start = t;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9084
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9085 /* Does mock_input indicate that we are re-reading a key sequence? */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9086 if (t < mock_input)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9087 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9088 key = keybuf[t];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9089 add_command_key (key);
27769
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
9090 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes))
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
9091 && NILP (Fzerop (Vecho_keystrokes)))
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
9092 echo_char (key);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9093 }
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
9094
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
9095 /* If not, we should actually read a character. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9096 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9097 {
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
9098 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9099 #ifdef MULTI_KBOARD
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9100 KBOARD *interrupted_kboard = current_kboard;
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
9101 struct frame *interrupted_frame = SELECTED_FRAME ();
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9102 if (setjmp (wrong_kboard_jmpbuf))
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
9103 {
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9104 if (!NILP (delayed_switch_frame))
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9105 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9106 interrupted_kboard->kbd_queue
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9107 = Fcons (delayed_switch_frame,
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9108 interrupted_kboard->kbd_queue);
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9109 delayed_switch_frame = Qnil;
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9110 }
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
9111 while (t > 0)
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9112 interrupted_kboard->kbd_queue
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9113 = Fcons (keybuf[--t], interrupted_kboard->kbd_queue);
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9114
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9115 /* 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
9116 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
9117 if (CONSP (interrupted_kboard->kbd_queue)
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9118 && (key = XCAR (interrupted_kboard->kbd_queue),
10997
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9119 !(EVENT_HAS_PARAMETERS (key)
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9120 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)),
66d853abce42 (event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents: 10985
diff changeset
9121 Qswitch_frame))))
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9122 {
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9123 Lisp_Object frame;
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9124 XSETFRAME (frame, interrupted_frame);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9125 interrupted_kboard->kbd_queue
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9126 = Fcons (make_lispy_switch_frame (frame),
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
9127 interrupted_kboard->kbd_queue);
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9128 }
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
9129 mock_input = 0;
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9130 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map);
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9131 orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
9132 goto replay_sequence;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
9133 }
10820
5bef43a53c01 (display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents: 10800
diff changeset
9134 #endif
31579
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
9135 key = read_char (NILP (prompt), nmaps,
56845f87c178 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31215
diff changeset
9136 (Lisp_Object *) submaps, last_nonmenu_event,
72131
3cc6bfe3a15d * keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents: 71981
diff changeset
9137 &used_mouse_menu, NULL);
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
9138 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9139
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9140 /* 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
9141 Just return -1. */
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9142 if (EQ (key, Qt))
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9143 {
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9144 unbind_to (count, Qnil);
37689
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9145 UNGCPRO;
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9146 return -1;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9147 }
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9148
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9149 /* read_char returns -1 at the end of a macro.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9150 Emacs 18 handles this by returning immediately with a
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9151 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
9152 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
9153 {
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9154 t = 0;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
9155 /* 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
9156 would go here. */
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9157 dummyflag = 1;
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
9158 break;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
9159 }
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9160
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
9161 /* 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
9162 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
9163 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
9164 {
57410
73be00e59d8e (timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents: 56729
diff changeset
9165 timer_resume_idle ();
46109
60d71404b887 (timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 46077
diff changeset
9166
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
9167 mock_input = t;
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
9168 /* 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
9169 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
9170 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
9171 of the command_loop_1. */
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
9172 if (fix_current_buffer)
23226
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
9173 {
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
9174 if (! FRAME_LIVE_P (XFRAME (selected_frame)))
23226
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
9175 Fkill_emacs (Qnil);
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
9176 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer)
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
9177 Fset_buffer (XWINDOW (selected_window)->buffer);
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
9178 }
17389
ab5d66b86b2c (read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents: 17231
diff changeset
9179
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9180 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map);
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9181 orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
9182 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
9183 }
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
9184
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
9185 /* 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
9186 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
9187 replay to get the right keymap. */
38674
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
9188 if (INTEGERP (key)
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
9189 && XINT (key) == quit_char
8e0b0d76380a (read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents: 38629
diff changeset
9190 && 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
9191 {
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9192 GROW_RAW_KEYBUF;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9193 XVECTOR (raw_keybuf)->contents[raw_keybuf_count++] = key;
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
9194 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
9195 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
9196 Vquit_flag = Qnil;
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9197 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map);
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9198 orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
9199 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
9200 }
5889
06bbb0e856d7 (read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents: 5887
diff changeset
9201
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9202 Vquit_flag = Qnil;
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9203
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9204 if (EVENT_HAS_PARAMETERS (key)
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9205 /* Either a `switch-frame' or a `select-window' event. */
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9206 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)), Qswitch_frame))
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9207 {
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9208 /* If we're at the beginning of a key sequence, and the caller
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9209 says it's okay, go ahead and return this event. If we're
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9210 in the midst of a key sequence, delay it until the end. */
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9211 if (t > 0 || !can_return_switch_frame)
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9212 {
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9213 delayed_switch_frame = key;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9214 goto replay_key;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9215 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9216 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9217
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9218 GROW_RAW_KEYBUF;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9219 XVECTOR (raw_keybuf)->contents[raw_keybuf_count++] = key;
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9220 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9221
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
9222 /* 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
9223 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
9224 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
9225
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9226 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
9227 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
9228 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
9229 here.
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9230
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9231 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
9232 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
9233 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
9234 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
9235 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
9236 if (EVENT_HAS_PARAMETERS (key))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9237 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9238 Lisp_Object kind;
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9239 Lisp_Object string;
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9240
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9241 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
9242 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
9243 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9244 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
9245
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9246 window = POSN_WINDOW (EVENT_START (key));
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
9247 posn = POSN_POSN (EVENT_START (key));
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9248
37742
c3dd00963b46 (read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents: 37689
diff changeset
9249 if (CONSP (posn)
c3dd00963b46 (read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents: 37689
diff changeset
9250 || (!NILP (fake_prefixed_keys)
c3dd00963b46 (read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents: 37689
diff changeset
9251 && !NILP (Fmemq (key, fake_prefixed_keys))))
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9252 {
37742
c3dd00963b46 (read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents: 37689
diff changeset
9253 /* We're looking a second time at an event for which
c3dd00963b46 (read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents: 37689
diff changeset
9254 we generated a fake prefix key. Set
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9255 last_real_key_start appropriately. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9256 if (t > 0)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9257 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
9258 }
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9259
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9260 /* 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
9261 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
9262 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
9263 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
9264 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
9265 && WINDOWP (window)
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
9266 && BUFFERP (XWINDOW (window)->buffer)
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9267 && 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
9268 {
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9269 XVECTOR (raw_keybuf)->contents[raw_keybuf_count++] = key;
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9270 keybuf[t] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9271 mock_input = t + 1;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9272
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9273 /* 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
9274 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
9275 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
9276 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
9277 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
9278 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
9279 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
9280 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
9281 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
9282 emacsclient). */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9283 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
9284
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
9285 if (! FRAME_LIVE_P (XFRAME (selected_frame)))
23226
f16c96435677 (command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents: 23090
diff changeset
9286 Fkill_emacs (Qnil);
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9287 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9288 orig_local_map = get_local_map (PT, current_buffer,
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9289 Qlocal_map);
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9290 orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9291 goto replay_sequence;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9292 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
9293
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9294 /* 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
9295 of the place clicked on, rather than point. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9296 if (last_real_key_start == 0
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9297 && CONSP (XCDR (key))
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9298 && ! localized_local_map)
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9299 {
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9300 Lisp_Object map_here, start, pos;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9301
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9302 localized_local_map = 1;
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9303 start = EVENT_START (key);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
9304
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
9305 if (CONSP (start) && POSN_INBUFFER_P (start))
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9306 {
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9307 pos = POSN_BUFFER_POSN (start);
12979
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
9308 if (INTEGERP (pos)
75293
e11e583145aa (read_key_sequence): Extract local map only if the
Chong Yidong <cyd@stupidchicken.com>
parents: 75137
diff changeset
9309 && XINT (pos) >= BEGV
e11e583145aa (read_key_sequence): Extract local map only if the
Chong Yidong <cyd@stupidchicken.com>
parents: 75137
diff changeset
9310 && XINT (pos) <= ZV)
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9311 {
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9312 map_here = get_local_map (XINT (pos),
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9313 current_buffer, Qlocal_map);
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9314 if (!EQ (map_here, orig_local_map))
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9315 {
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9316 orig_local_map = map_here;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
9317 ++localized_local_map;
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9318 }
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
9319
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9320 map_here = get_local_map (XINT (pos),
35255
d473294a0124 Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 35171
diff changeset
9321 current_buffer, Qkeymap);
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9322 if (!EQ (map_here, orig_keymap))
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9323 {
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9324 orig_keymap = map_here;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
9325 ++localized_local_map;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
9326 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
9327
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
9328 if (localized_local_map > 1)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72845
diff changeset
9329 {
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9330 keybuf[t] = key;
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9331 mock_input = t + 1;
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9332
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9333 goto replay_sequence;
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9334 }
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9335 }
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9336 }
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9337 }
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9338
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9339 /* 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
9340 use posn as a fake prefix key. */
37689
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9341 if (SYMBOLP (posn)
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9342 && (NILP (fake_prefixed_keys)
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9343 || NILP (Fmemq (key, fake_prefixed_keys))))
10381
8e8259e052ed (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10309
diff changeset
9344 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9345 if (t + 1 >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9346 error ("Key sequence too long");
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
9347
37689
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9348 keybuf[t] = posn;
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9349 keybuf[t + 1] = key;
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9350 mock_input = t + 2;
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9351
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9352 /* Record that a fake prefix key has been generated
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9353 for KEY. Don't modify the event; this would
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9354 prevent proper action when the event is pushed
46535
31de99e267b3 Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 46469
diff changeset
9355 back into unread-command-events. */
37689
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9356 fake_prefixed_keys = Fcons (key, fake_prefixed_keys);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9357
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9358 /* If on a mode line string with a local keymap,
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9359 reconsider the key sequence with that keymap. */
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9360 if (string = POSN_STRING (EVENT_START (key)),
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9361 (CONSP (string) && STRINGP (XCAR (string))))
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9362 {
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9363 Lisp_Object pos, map, map2;
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9364
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9365 pos = XCDR (string);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9366 string = XCAR (string);
29717
acaa36b47f50 fix up more Lisp_Object/int conversion issues
Ken Raeburn <raeburn@raeburn.org>
parents: 29635
diff changeset
9367 if (XINT (pos) >= 0
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
9368 && XINT (pos) < SCHARS (string))
29280
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9369 {
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9370 map = Fget_text_property (pos, Qlocal_map, string);
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9371 if (!NILP (map))
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9372 orig_local_map = map;
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9373 map2 = Fget_text_property (pos, Qkeymap, string);
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9374 if (!NILP (map2))
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9375 orig_keymap = map2;
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9376 if (!NILP (map) || !NILP (map2))
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9377 goto replay_sequence;
c1c05b2a382c (menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents: 29099
diff changeset
9378 }
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9379 }
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
9380
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9381 goto replay_key;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
9382 }
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9383 else if (NILP (from_string)
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9384 && (string = POSN_STRING (EVENT_START (key)),
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9385 (CONSP (string) && STRINGP (XCAR (string)))))
36705
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9386 {
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9387 /* For a click on a string, i.e. overlay string or a
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9388 string displayed via the `display' property,
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9389 consider `local-map' and `keymap' properties of
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9390 that string. */
53178
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9391 Lisp_Object pos, map, map2;
ee96f9f80b61 (make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents: 53128
diff changeset
9392
36705
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9393 pos = XCDR (string);
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9394 string = XCAR (string);
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9395 if (XINT (pos) >= 0
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
9396 && XINT (pos) < SCHARS (string))
36705
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9397 {
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9398 map = Fget_text_property (pos, Qlocal_map, string);
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9399 if (!NILP (map))
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9400 orig_local_map = map;
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9401 map2 = Fget_text_property (pos, Qkeymap, string);
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9402 if (!NILP (map2))
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9403 orig_keymap = map2;
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9404
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9405 if (!NILP (map) || !NILP (map2))
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9406 {
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9407 from_string = string;
76495
761ce1f9a012 (read_key_sequence): Store original event into keybuf when replaying
Chong Yidong <cyd@stupidchicken.com>
parents: 76435
diff changeset
9408 keybuf[t++] = key;
761ce1f9a012 (read_key_sequence): Store original event into keybuf when replaying
Chong Yidong <cyd@stupidchicken.com>
parents: 76435
diff changeset
9409 mock_input = t;
36705
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9410 goto replay_sequence;
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9411 }
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9412 }
55c887a0c742 (make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents: 36698
diff changeset
9413 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9414 }
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9415 else if (CONSP (XCDR (key))
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
9416 && CONSP (EVENT_START (key))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9417 && CONSP (XCDR (EVENT_START (key))))
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
9418 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9419 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
9420
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
9421 posn = POSN_POSN (EVENT_START (key));
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9422 /* Handle menu-bar events:
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9423 insert the dummy prefix event `menu-bar'. */
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
9424 if (EQ (posn, Qmenu_bar) || EQ (posn, Qtool_bar))
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9425 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9426 if (t + 1 >= bufsize)
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9427 error ("Key sequence too long");
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9428 keybuf[t] = posn;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9429 keybuf[t+1] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9430
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9431 /* 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
9432 expanded it, and don't try to do so again. */
53515
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
9433 POSN_SET_POSN (EVENT_START (key),
12bc18575b80 (make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents: 53330
diff changeset
9434 Fcons (posn, Qnil));
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9435
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9436 mock_input = t + 2;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9437 goto replay_sequence;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9438 }
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
9439 else if (CONSP (posn))
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9440 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9441 /* 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
9442 sequence which we expanded before. Set
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9443 last_real_key_start appropriately. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9444 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
9445 last_real_key_start = t - 1;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9446 }
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
9447 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9448 }
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9449
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9450 /* 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
9451 to look up. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9452 first_binding = (follow_key (key,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9453 nmaps - first_binding,
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
9454 submaps + first_binding,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9455 defs + first_binding,
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9456 submaps + first_binding)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9457 + first_binding);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9458
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9459 /* If KEY wasn't bound, we'll try some fallbacks. */
45881
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9460 if (first_binding < nmaps)
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9461 /* This is needed for the following scenario:
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9462 event 0: a down-event that gets dropped by calling replay_key.
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9463 event 1: some normal prefix like C-h.
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9464 After event 0, first_unbound is 0, after event 1 fkey.start
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9465 and keytran.start are both 1, so when we see that C-h is bound,
45881
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9466 we need to update first_unbound. */
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9467 first_unbound = max (t + 1, first_unbound);
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9468 else
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9469 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9470 Lisp_Object head;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
9471
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9472 /* Remember the position to put an upper bound on fkey.start. */
41824
9fc96faea7e7 (kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40775
diff changeset
9473 first_unbound = min (t, first_unbound);
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9474
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9475 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
9476 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
9477 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9478 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
9479 keybuf[t++] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9480 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
9481 /* 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
9482 would go here. */
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9483 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
9484 break;
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9485 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
9486
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
9487 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
9488 {
6461
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9489 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
9490 int modifiers;
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9491
eed1282ed6b0 (add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents: 6311
diff changeset
9492 breakdown = parse_modifiers (head);
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9493 modifiers = XINT (XCAR (XCDR (breakdown)));
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9494 /* 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
9495 event that is bound:
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9496 Drags reduce to clicks.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9497 Double-clicks reduce to clicks.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9498 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
9499 Down-clicks are eliminated.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9500 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
9501 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
9502 then are eliminated. */
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9503 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
9504 | 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
9505 {
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9506 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
9507 | 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
9508 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9509 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
9510 if (modifiers & triple_modifier)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9511 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
9512 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
9513 modifiers &= ~double_modifier;
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
9514 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
9515 modifiers &= ~drag_modifier;
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9516 else
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9517 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9518 /* 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
9519 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
9520
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9521 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
9522 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
9523 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
9524 mock input.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9525
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9526 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
9527 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
9528 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
9529 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
9530 anyway.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9531
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9532 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
9533 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
9534 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
9535 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
9536 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
9537 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
9538 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
9539 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
9540 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
9541 it.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9542
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9543 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
9544 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
9545 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
9546 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
9547
45881
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9548 FIXME: The above paragraph seems just plain
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9549 wrong, if you consider things like
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9550 xterm-mouse-mode. -stef
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9551
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9552 Isn't this just the most wonderful code ever? */
51179
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9553
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9554 /* If mock_input > t + 1, the above simplification
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9555 will actually end up dropping keys on the floor.
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9556 This is probably OK for now, but even
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9557 if mock_input <= t + 1, we need to adjust fkey
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9558 and keytran.
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9559 Typical case [header-line down-mouse-N]:
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9560 mock_input = 2, t = 1, fkey.end = 1,
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9561 last_real_key_start = 0. */
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9562 if (fkey.end > last_real_key_start)
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9563 {
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9564 fkey.end = fkey.start
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9565 = min (last_real_key_start, fkey.start);
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9566 fkey.map = fkey.parent;
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9567 if (keytran.end > last_real_key_start)
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9568 {
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9569 keytran.end = keytran.start
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9570 = min (last_real_key_start, keytran.start);
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9571 keytran.map = keytran.parent;
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9572 }
52ab727d168b (read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51014
diff changeset
9573 }
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9574 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
9575 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9576 mock_input = 0;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9577 goto replay_key;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9578 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9579 else
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9580 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9581 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
9582 goto replay_sequence;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9583 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9584 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
9585
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9586 new_head
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9587 = apply_modifiers (modifiers, XCAR (breakdown));
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9588 new_click
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9589 = 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
9590
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9591 /* 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
9592 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
9593 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
9594 first_binding
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9595 = (follow_key (new_click,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9596 nmaps - local_first_binding,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9597 submaps + local_first_binding,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9598 defs + local_first_binding,
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9599 submaps + local_first_binding)
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
9600 + local_first_binding);
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9601
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9602 /* 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
9603 if (first_binding < nmaps)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9604 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9605 key = new_click;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9606 break;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9607 }
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
9608 /* 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
9609 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9610 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9611 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9612 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
9613
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9614 keybuf[t++] = key;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
9615 /* 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
9616 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
9617 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
9618 event that preceded the first level of menu. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
9619 if (!used_mouse_menu)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
9620 last_nonmenu_event = key;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9621
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
9622 /* 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
9623 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
9624
45881
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9625 if (first_binding < nmaps && NILP (submaps[first_binding]))
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9626 /* There is a binding and it's not a prefix.
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9627 There is thus no function-key in this sequence.
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9628 Moving fkey.start is important in this case to allow keytran.start
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9629 to go over the sequence before we return (since we keep the
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9630 invariant that keytran.end <= fkey.start). */
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9631 {
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9632 if (fkey.start < t)
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
9633 (fkey.start = fkey.end = t, fkey.map = fkey.parent);
45881
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9634 }
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9635 else
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9636 /* If the sequence is unbound, see if we can hang a function key
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9637 off the end of it. */
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9638 /* Continue scan from fkey.end until we find a bound suffix. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9639 while (fkey.end < t)
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
9640 {
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9641 struct gcpro gcpro1, gcpro2, gcpro3;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9642 int done, diff;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9643
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9644 GCPRO3 (fkey.map, keytran.map, delayed_switch_frame);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9645 done = keyremap_step (keybuf, bufsize, &fkey,
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9646 max (t, mock_input),
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9647 /* If there's a binding (i.e.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9648 first_binding >= nmaps) we don't want
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9649 to apply this function-key-mapping. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9650 fkey.end + 1 == t && first_binding >= nmaps,
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
9651 &diff, prompt);
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9652 UNGCPRO;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9653 if (done)
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
9654 {
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9655 mock_input = diff + max (t, mock_input);
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
9656 goto replay_sequence;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
9657 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
9658 }
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9659
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9660 /* Look for this sequence in key-translation-map.
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9661 Scan from keytran.end until we find a bound suffix. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9662 while (keytran.end < fkey.start)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9663 {
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9664 struct gcpro gcpro1, gcpro2, gcpro3;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9665 int done, diff;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9666
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9667 GCPRO3 (fkey.map, keytran.map, delayed_switch_frame);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9668 done = keyremap_step (keybuf, bufsize, &keytran, max (t, mock_input),
50994
5461f0256e86 (make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50949
diff changeset
9669 1, &diff, prompt);
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9670 UNGCPRO;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9671 if (done)
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9672 {
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9673 mock_input = diff + max (t, mock_input);
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9674 /* Adjust the function-key-map counters. */
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9675 fkey.end += diff;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9676 fkey.start += diff;
54087
5a946bc3433a Fix whitespace.
Kim F. Storm <storm@cua.dk>
parents: 54086
diff changeset
9677
50944
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9678 goto replay_sequence;
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9679 }
111b4f1da171 (follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50941
diff changeset
9680 }
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9681
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9682 /* 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
9683 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
9684 and is an upper case letter
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9685 use the corresponding lower-case letter instead. */
45881
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9686 if (first_binding >= nmaps
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9687 && fkey.start >= t && keytran.start >= t
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
9688 && INTEGERP (key)
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9689 && ((((XINT (key) & 0x3ffff)
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
9690 < XCHAR_TABLE (current_buffer->downcase_table)->size)
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9691 && UPPERCASEP (XINT (key) & 0x3ffff))
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9692 || (XINT (key) & shift_modifier)))
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9693 {
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
9694 Lisp_Object new_key;
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
9695
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9696 original_uppercase = key;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9697 original_uppercase_position = t - 1;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9698
15049
61ee56ae39ef (read_key_sequence): Fix confusion between key and new_key.
Richard M. Stallman <rms@gnu.org>
parents: 15045
diff changeset
9699 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
9700 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
9701 else
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
9702 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
9703 | (XINT (key) & ~0x3ffff)));
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
9704
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9705 /* 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
9706 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
9707 might get translated through function-key-map. */
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9708 keybuf[t - 1] = new_key;
45753
402855ebf092 (read_key_sequence):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45751
diff changeset
9709 mock_input = max (t, mock_input);
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9710
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9711 goto replay_sequence;
8418
d97339356ae6 (follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents: 8302
diff changeset
9712 }
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9713 /* 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
9714 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
9715 and is a shifted function key,
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9716 use the corresponding unshifted function key instead. */
45881
5c591efdb3bf (read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45803
diff changeset
9717 if (first_binding >= nmaps
47759
b2674275598d (keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 47643
diff changeset
9718 && fkey.start >= t && keytran.start >= t
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9719 && SYMBOLP (key))
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9720 {
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9721 Lisp_Object breakdown;
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9722 int modifiers;
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9723
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9724 breakdown = parse_modifiers (key);
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9725 modifiers = XINT (XCAR (XCDR (breakdown)));
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9726 if (modifiers & shift_modifier)
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9727 {
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
9728 Lisp_Object new_key;
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9729
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9730 original_uppercase = key;
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9731 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
9732
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9733 modifiers &= ~shift_modifier;
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
9734 new_key = apply_modifiers (modifiers,
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
9735 XCAR (breakdown));
12759
dd9049c5c51d (read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents: 12729
diff changeset
9736
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9737 keybuf[t - 1] = new_key;
45753
402855ebf092 (read_key_sequence):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45751
diff changeset
9738 mock_input = max (t, mock_input);
72325
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
9739 fkey.start = fkey.end = 0;
387e27f7ac5a (keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents: 72283
diff changeset
9740 keytran.start = keytran.end = 0;
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9741
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9742 goto replay_sequence;
10147
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9743 }
ab78d1d2f5d7 (read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 10070
diff changeset
9744 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9745 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9746
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9747 if (!dummyflag)
9800
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
9748 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
9749 ? defs[first_binding]
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
9750 : Qnil);
476dc2f97d11 (read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents: 9745
diff changeset
9751
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
9752 unread_switch_frame = delayed_switch_frame;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
9753 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
9754
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9755 /* 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
9756 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
9757 if ((dont_downcase_last || first_binding >= nmaps)
69985
d5629ae481f1 (read_key_sequence): Explicitly avoid keybuf[-1].
Richard M. Stallman <rms@gnu.org>
parents: 69718
diff changeset
9758 && t > 0
12800
1086fa1dfb89 (read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 12759
diff changeset
9759 && 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
9760 keybuf[t - 1] = original_uppercase;
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9761
3799
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
9762 /* 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
9763 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
9764 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
9765 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
9766 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
9767 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
9768 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
9769
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
9770 Better ideas? */
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
9771 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
9772 {
27769
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
9773 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes))
ba420971ea82 Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents: 27766
diff changeset
9774 && NILP (Fzerop (Vecho_keystrokes)))
8076
3a35434b19d2 (safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents: 8067
diff changeset
9775 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
9776 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
9777 }
3799
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
9778
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
9779
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
9780
37689
4fe5b946a4af (read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents: 37603
diff changeset
9781 UNGCPRO;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9782 return t;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9783 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9784
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9785 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 5, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9786 doc: /* Read a sequence of keystrokes and return as a string or vector.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9787 The sequence is sufficient to specify a non-prefix command in the
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9788 current local and global maps.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9789
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9790 First arg PROMPT is a prompt string. If nil, do not prompt specially.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9791 Second (optional) arg CONTINUE-ECHO, if non-nil, means this key echos
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9792 as a continuation of the previous key.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9793
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9794 The third (optional) arg DONT-DOWNCASE-LAST, if non-nil, means do not
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9795 convert the last event to lower case. (Normally any upper case event
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9796 is converted to lower case if the original event is undefined and the lower
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9797 case equivalent is defined.) A non-nil value is appropriate for reading
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9798 a key sequence to be defined.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9799
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9800 A C-g typed while in this function is treated like any other character,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9801 and `quit-flag' is not set.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9802
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9803 If the key sequence starts with a mouse click, then the sequence is read
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9804 using the keymaps of the buffer of the window clicked in, not the buffer
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9805 of the selected window as normal.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9806
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9807 `read-key-sequence' drops unbound button-down events, since you normally
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9808 only care about the click or drag events which follow them. If a drag
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9809 or multi-click event is unbound, but the corresponding click event would
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9810 be bound, `read-key-sequence' turns the event into a click event at the
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9811 drag's starting position. This means that you don't have to distinguish
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9812 between click and drag, double, or triple events unless you want to.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9813
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9814 `read-key-sequence' prefixes mouse events on mode lines, the vertical
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9815 lines separating windows, and scroll bars with imaginary keys
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9816 `mode-line', `vertical-line', and `vertical-scroll-bar'.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9817
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9818 Optional fourth argument CAN-RETURN-SWITCH-FRAME non-nil means that this
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9819 function will process a switch-frame event if the user switches frames
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9820 before typing anything. If the user switches frames in the middle of a
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9821 key sequence, or at the start of the sequence but CAN-RETURN-SWITCH-FRAME
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9822 is nil, then the event will be put off until after the current key sequence.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9823
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9824 `read-key-sequence' checks `function-key-map' for function key
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9825 sequences, where they wouldn't conflict with ordinary bindings. See
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9826 `function-key-map' for more details.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9827
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9828 The optional fifth argument COMMAND-LOOP, if non-nil, means
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9829 that this key sequence is being read by something that will
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9830 read commands one after another. It should be nil if the caller
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9831 will read just one key sequence. */)
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9832 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame,
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9833 command_loop)
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9834 Lisp_Object prompt, continue_echo, dont_downcase_last;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9835 Lisp_Object can_return_switch_frame, command_loop;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9836 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9837 Lisp_Object keybuf[30];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9838 register int i;
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
9839 struct gcpro gcpro1;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
9840 int count = SPECPDL_INDEX ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9841
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9842 if (!NILP (prompt))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40548
diff changeset
9843 CHECK_STRING (prompt);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9844 QUIT;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9845
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9846 specbind (Qinput_method_exit_on_first_char,
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9847 (NILP (command_loop) ? Qt : Qnil));
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9848 specbind (Qinput_method_use_echo_area,
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9849 (NILP (command_loop) ? Qt : Qnil));
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9850
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9851 bzero (keybuf, sizeof keybuf);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9852 GCPRO1 (keybuf[0]);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9853 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0]));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9854
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 721
diff changeset
9855 if (NILP (continue_echo))
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
9856 {
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
9857 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
9858 this_command_key_count_reset = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
9859 this_single_command_key_start = 0;
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
9860 }
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
9861
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9862 #ifdef HAVE_X_WINDOWS
36255
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9863 if (display_hourglass_p)
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9864 cancel_hourglass ();
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9865 #endif
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9866
10539
ffef84d4d8a8 (read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents: 10533
diff changeset
9867 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
9868 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
9869 ! NILP (can_return_switch_frame), 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9870
34174
f3a177a97f12 (Fread_key_sequence): Don't start the busy cursor
Gerd Moellmann <gerd@gnu.org>
parents: 34164
diff changeset
9871 #if 0 /* The following is fine for code reading a key sequence and
43024
7b45dfaa39cd Fix typo.
Pavel Janík <Pavel@Janik.cz>
parents: 42976
diff changeset
9872 then proceeding with a lenghty computation, but it's not good
34174
f3a177a97f12 (Fread_key_sequence): Don't start the busy cursor
Gerd Moellmann <gerd@gnu.org>
parents: 34164
diff changeset
9873 for code reading keys in a loop, like an input method. */
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9874 #ifdef HAVE_X_WINDOWS
36255
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9875 if (display_hourglass_p)
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9876 start_hourglass ();
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9877 #endif
34174
f3a177a97f12 (Fread_key_sequence): Don't start the busy cursor
Gerd Moellmann <gerd@gnu.org>
parents: 34164
diff changeset
9878 #endif
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9879
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9880 if (i == -1)
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9881 {
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9882 Vquit_flag = Qt;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9883 QUIT;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
9884 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9885 UNGCPRO;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9886 return unbind_to (count, make_event_array (i, keybuf));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9887 }
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9888
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9889 DEFUN ("read-key-sequence-vector", Fread_key_sequence_vector,
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9890 Sread_key_sequence_vector, 1, 5, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9891 doc: /* Like `read-key-sequence' but always return a vector. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9892 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9893 command_loop)
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9894 Lisp_Object prompt, continue_echo, dont_downcase_last;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9895 Lisp_Object can_return_switch_frame, command_loop;
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9896 {
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9897 Lisp_Object keybuf[30];
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9898 register int i;
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
9899 struct gcpro gcpro1;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
9900 int count = SPECPDL_INDEX ();
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9901
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9902 if (!NILP (prompt))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40548
diff changeset
9903 CHECK_STRING (prompt);
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9904 QUIT;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9905
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9906 specbind (Qinput_method_exit_on_first_char,
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9907 (NILP (command_loop) ? Qt : Qnil));
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9908 specbind (Qinput_method_use_echo_area,
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9909 (NILP (command_loop) ? Qt : Qnil));
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9910
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9911 bzero (keybuf, sizeof keybuf);
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9912 GCPRO1 (keybuf[0]);
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9913 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0]));
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9914
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9915 if (NILP (continue_echo))
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9916 {
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9917 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
9918 this_command_key_count_reset = 0;
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9919 this_single_command_key_start = 0;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9920 }
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9921
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9922 #ifdef HAVE_X_WINDOWS
36255
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9923 if (display_hourglass_p)
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9924 cancel_hourglass ();
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9925 #endif
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9926
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9927 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])),
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9928 prompt, ! NILP (dont_downcase_last),
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9929 ! NILP (can_return_switch_frame), 0);
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9930
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9931 #ifdef HAVE_X_WINDOWS
36255
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9932 if (display_hourglass_p)
1890bad59762 Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents: 36238
diff changeset
9933 start_hourglass ();
27862
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9934 #endif
03d8d5f30d54 (command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents: 27769
diff changeset
9935
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9936 if (i == -1)
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9937 {
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9938 Vquit_flag = Qt;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9939 QUIT;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9940 }
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9941 UNGCPRO;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
9942 return unbind_to (count, Fvector (i, keybuf));
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
9943 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9944
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9945 DEFUN ("command-execute", Fcommand_execute, Scommand_execute, 1, 4, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9946 doc: /* Execute CMD as an editor command.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9947 CMD must be a symbol that satisfies the `commandp' predicate.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9948 Optional second arg RECORD-FLAG non-nil
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9949 means unconditionally put this command in `command-history'.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9950 Otherwise, that is done only if an arg is read using the minibuffer.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9951 The argument KEYS specifies the value to use instead of (this-command-keys)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9952 when reading the arguments; if it is nil, (this-command-keys) is used.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9953 The argument SPECIAL, if non-nil, means that this command is executing
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
9954 a special event, so ignore the prefix argument and don't clear it. */)
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9955 (cmd, record_flag, keys, special)
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9956 Lisp_Object cmd, record_flag, keys, special;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9957 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9958 register Lisp_Object final;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9959 register Lisp_Object tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9960 Lisp_Object prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9961 struct backtrace backtrace;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9962 extern int debug_on_next_call;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9963
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9964 debug_on_next_call = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9965
14695
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9966 if (NILP (special))
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9967 {
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9968 prefixarg = current_kboard->Vprefix_arg;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9969 Vcurrent_prefix_arg = prefixarg;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9970 current_kboard->Vprefix_arg = Qnil;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9971 }
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9972 else
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9973 prefixarg = Qnil;
c62f7ff56c40 (Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 14666
diff changeset
9974
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
9975 if (SYMBOLP (cmd))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9976 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9977 tem = Fget (cmd, Qdisabled);
6208
db4139d43f8a (command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents: 6204
diff changeset
9978 if (!NILP (tem) && !NILP (Vrun_hooks))
12979
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
9979 {
56624
05bc08d74392 Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56609
diff changeset
9980 tem = Fsymbol_value (Qdisabled_command_function);
12979
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
9981 if (!NILP (tem))
56624
05bc08d74392 Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56609
diff changeset
9982 return call1 (Vrun_hooks, Qdisabled_command_function);
12979
15f32c044bb8 (Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents: 12946
diff changeset
9983 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9984 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9985
13842
7d0b87f737f9 (Fcommand_execute): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 13770
diff changeset
9986 while (1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9987 {
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
9988 final = Findirect_function (cmd, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9989
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9990 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
9991 {
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
9992 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
9993
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
9994 GCPRO2 (cmd, prefixarg);
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
9995 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
9996 UNGCPRO;
198c6c2846ae (Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents: 16107
diff changeset
9997 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9998 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9999 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10000 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10001
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
10002 if (STRINGP (final) || VECTORP (final))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10003 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10004 /* If requested, place the macro in the command history. For
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10005 other sorts of commands, call-interactively takes care of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10006 this. */
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
10007 if (!NILP (record_flag))
21726
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10008 {
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10009 Vcommand_history
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10010 = Fcons (Fcons (Qexecute_kbd_macro,
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10011 Fcons (final, Fcons (prefixarg, Qnil))),
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10012 Vcommand_history);
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10013
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10014 /* Don't keep command history around forever. */
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10015 if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0)
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10016 {
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10017 tem = Fnthcdr (Vhistory_length, Vcommand_history);
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10018 if (CONSP (tem))
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39920
diff changeset
10019 XSETCDR (tem, Qnil);
21726
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10020 }
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10021 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10022
46885
9da9bb6c4d21 (Fcommand_execute): Update call to Fexecute_kbd_macro.
Kim F. Storm <storm@cua.dk>
parents: 46854
diff changeset
10023 return Fexecute_kbd_macro (final, prefixarg, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10024 }
21726
1771dc61b028 (Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents: 21527
diff changeset
10025
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
10026 if (CONSP (final) || SUBRP (final) || COMPILEDP (final))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10027 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10028 backtrace.next = backtrace_list;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10029 backtrace_list = &backtrace;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10030 backtrace.function = &Qcall_interactively;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10031 backtrace.args = &cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10032 backtrace.nargs = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10033 backtrace.evalargs = 0;
55721
b0b446f1087b (struct backtrace): Add debug_on_exit member.
Kim F. Storm <storm@cua.dk>
parents: 55659
diff changeset
10034 backtrace.debug_on_exit = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10035
14079
2464cc0b5b3e (Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
10036 tem = Fcall_interactively (cmd, record_flag, keys);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10037
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10038 backtrace_list = backtrace.next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10039 return tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10040 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10041 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10042 }
35171
bc4b6bd7103e (Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents: 35117
diff changeset
10043
bc4b6bd7103e (Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents: 35117
diff changeset
10044
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10045
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10046 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10047 1, 1, "P",
71670
3cd05625d982 (Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents: 70380
diff changeset
10048 doc: /* Read function name, then read its arguments and call it.
3cd05625d982 (Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents: 70380
diff changeset
10049
3cd05625d982 (Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents: 70380
diff changeset
10050 To pass a numeric argument to the command you are invoking with, specify
3cd05625d982 (Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents: 70380
diff changeset
10051 the numeric argument to this command.
3cd05625d982 (Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents: 70380
diff changeset
10052
3cd05625d982 (Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents: 70380
diff changeset
10053 Noninteractively, the argument PREFIXARG is the prefix argument to
3cd05625d982 (Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents: 70380
diff changeset
10054 give to the command you invoke, if it asks for an argument. */)
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10055 (prefixarg)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10056 Lisp_Object prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10057 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10058 Lisp_Object function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10059 char buf[40];
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10060 int saved_last_point_position;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10061 Lisp_Object saved_keys, saved_last_point_position_buffer;
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10062 Lisp_Object bindings, value;
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10063 struct gcpro gcpro1, gcpro2, gcpro3;
60556
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10064 #ifdef HAVE_X_WINDOWS
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10065 /* The call to Fcompleting_read wil start and cancel the hourglass,
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10066 but if the hourglass was already scheduled, this means that no
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10067 hourglass will be shown for the actual M-x command itself.
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10068 So we restart it if it is already scheduled. Note that checking
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10069 hourglass_shown_p is not enough, normally the hourglass is not shown,
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10070 just scheduled to be shown. */
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10071 int hstarted = hourglass_started ();
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10072 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10073
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
10074 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
10075 XVECTOR (this_command_keys)->contents);
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10076 saved_last_point_position_buffer = last_point_position_buffer;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10077 saved_last_point_position = last_point_position;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10078 buf[0] = 0;
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10079 GCPRO3 (saved_keys, prefixarg, saved_last_point_position_buffer);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10080
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10081 if (EQ (prefixarg, Qminus))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10082 strcpy (buf, "- ");
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
10083 else if (CONSP (prefixarg) && XINT (XCAR (prefixarg)) == 4)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10084 strcpy (buf, "C-u ");
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 26088
diff changeset
10085 else if (CONSP (prefixarg) && INTEGERP (XCAR (prefixarg)))
56070
343ad07ce78b (cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents: 56023
diff changeset
10086 sprintf (buf, "%ld ", (long) XINT (XCAR (prefixarg)));
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
10087 else if (INTEGERP (prefixarg))
56070
343ad07ce78b (cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents: 56023
diff changeset
10088 sprintf (buf, "%ld ", (long) XINT (prefixarg));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10089
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10090 /* This isn't strictly correct if execute-extended-command
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10091 is bound to anything else. Perhaps it should use
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10092 this_command_keys? */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10093 strcat (buf, "M-x ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10094
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10095 /* Prompt with buf, and then read a string, completing from and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10096 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
10097 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
10098 history list. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10099 function = Fcompleting_read (build_string (buf),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10100 Vobarray, Qcommandp,
19549
e1b1dcf77ac1 (Fexecute_extended_command): Call Fread_from_minibuffer
Kenichi Handa <handa@m17n.org>
parents: 18944
diff changeset
10101 Qt, Qnil, Qextended_command_history, Qnil,
e1b1dcf77ac1 (Fexecute_extended_command): Call Fread_from_minibuffer
Kenichi Handa <handa@m17n.org>
parents: 18944
diff changeset
10102 Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10103
60556
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10104 #ifdef HAVE_X_WINDOWS
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10105 if (hstarted) start_hourglass ();
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10106 #endif
5aa4c4b8de08 * keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents: 60419
diff changeset
10107
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10108 if (STRINGP (function) && SCHARS (function) == 0)
13864
8389738a7792 (read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents: 13842
diff changeset
10109 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
10110
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
10111 /* Set this_command_keys to the concatenation of saved_keys and
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
10112 function, followed by a RET. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10113 {
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
10114 Lisp_Object *keys;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10115 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10116
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
10117 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10118 this_command_key_count_reset = 0;
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
10119 this_single_command_key_start = 0;
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
10120
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
10121 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
10122 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
10123 add_command_key (keys[i]);
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
10124
46451
906a7d7104f8 (echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents: 46427
diff changeset
10125 for (i = 0; i < SCHARS (function); i++)
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
10126 add_command_key (Faref (function, make_number (i)));
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
10127
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
10128 add_command_key (make_number ('\015'));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10129 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10130
44523
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10131 last_point_position = saved_last_point_position;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10132 last_point_position_buffer = saved_last_point_position_buffer;
5fb0858a11da (command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44358
diff changeset
10133
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10134 UNGCPRO;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10135
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
10136 function = Fintern (function, Qnil);
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
10137 current_kboard->Vprefix_arg = prefixarg;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
10138 Vthis_command = function;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
10139 real_this_command = function;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10140
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10141 /* If enabled, show which key runs this command. */
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10142 if (!NILP (Vsuggest_key_bindings)
61982
237065917c73 Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents: 61499
diff changeset
10143 && NILP (Vexecuting_kbd_macro)
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10144 && SYMBOLP (function))
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10145 bindings = Fwhere_is_internal (function, Voverriding_local_map,
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
10146 Qt, Qnil, Qnil);
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10147 else
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10148 bindings = Qnil;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10149
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10150 value = Qnil;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10151 GCPRO2 (bindings, value);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10152 value = Fcommand_execute (function, Qt, Qnil, Qnil);
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10153
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10154 /* If the command has a key binding, print it now. */
20270
3f3e7319341a (Fexecute_extended_command): Fix message wording.
Karl Heuer <kwzh@gnu.org>
parents: 19947
diff changeset
10155 if (!NILP (bindings)
20431
01f1baff05d3 (Fexecute_extended_command): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 20380
diff changeset
10156 && ! (VECTORP (bindings) && EQ (Faref (bindings, make_number (0)),
01f1baff05d3 (Fexecute_extended_command): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 20380
diff changeset
10157 Qmouse_movement)))
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10158 {
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10159 /* But first wait, and skip the message if there is input. */
71761
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10160 Lisp_Object waited;
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10161
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10162 /* If this command displayed something in the echo area;
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10163 wait a few seconds, then display our suggestion message. */
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10164 if (NILP (echo_area_buffer[0]))
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10165 waited = sit_for (make_number (0), 0, 2);
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10166 else if (NUMBERP (Vsuggest_key_bindings))
73318
e876a1f62fec * dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents: 72889
diff changeset
10167 waited = sit_for (Vsuggest_key_bindings, 0, 2);
22835
1cda5e4bddba (Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents: 22833
diff changeset
10168 else
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10169 waited = sit_for (make_number (2), 0, 2);
71761
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10170
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10171 if (!NILP (waited) && ! CONSP (Vunread_command_events))
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10172 {
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10173 Lisp_Object binding;
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10174 char *newmessage;
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
10175 int message_p = push_message ();
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46181
diff changeset
10176 int count = SPECPDL_INDEX ();
35171
bc4b6bd7103e (Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents: 35117
diff changeset
10177
47392
734e6dc4caf1 (Fexecute_extended_command): Use pop_message_unwind.
Richard M. Stallman <rms@gnu.org>
parents: 47347
diff changeset
10178 record_unwind_protect (pop_message_unwind, Qnil);
54927
7b6b4d9ae726 (Fkey_description): Change callers.
Kim F. Storm <storm@cua.dk>
parents: 54181
diff changeset
10179 binding = Fkey_description (bindings, Qnil);
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10180
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10181 newmessage
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10182 = (char *) alloca (SCHARS (SYMBOL_NAME (function))
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10183 + SBYTES (binding)
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10184 + 100);
20270
3f3e7319341a (Fexecute_extended_command): Fix message wording.
Karl Heuer <kwzh@gnu.org>
parents: 19947
diff changeset
10185 sprintf (newmessage, "You can run the command `%s' with %s",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10186 SDATA (SYMBOL_NAME (function)),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10187 SDATA (binding));
20623
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
10188 message2_nolog (newmessage,
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
10189 strlen (newmessage),
b4f792fd5e50 (echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents: 20539
diff changeset
10190 STRING_MULTIBYTE (binding));
71761
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10191 if (NUMBERP (Vsuggest_key_bindings))
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10192 waited = sit_for (Vsuggest_key_bindings, 0, 2);
71761
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10193 else
71798
c4b76264d4ec (command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents: 71761
diff changeset
10194 waited = sit_for (make_number (2), 0, 2);
71761
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10195
1055c0769159 * puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents: 71670
diff changeset
10196 if (!NILP (waited) && message_p)
25352
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
10197 restore_message ();
9d8bd4841e77 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25116
diff changeset
10198
35171
bc4b6bd7103e (Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents: 35117
diff changeset
10199 unbind_to (count, Qnil);
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10200 }
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10201 }
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10202
16166
05e71f2b317e (Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents: 16115
diff changeset
10203 RETURN_UNGCPRO (value);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10204 }
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
10205
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10206
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10207 /* Return nonzero if input events are pending. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10208
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
10209 int
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10210 detect_input_pending ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10211 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10212 if (!input_pending)
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10213 get_input_pending (&input_pending, 0);
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10214
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10215 return input_pending;
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10216 }
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10217
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10218 /* Return nonzero if input events other than mouse movements are
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10219 pending. */
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10220
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10221 int
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10222 detect_input_pending_ignore_squeezables ()
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10223 {
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10224 if (!input_pending)
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10225 get_input_pending (&input_pending, READABLE_EVENTS_IGNORE_SQUEEZABLES);
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10226
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10227 return input_pending;
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10228 }
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10229
16017
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10230 /* 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
10231
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
10232 int
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
10233 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
10234 int do_display;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10235 {
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
10236 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
10237
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10238 if (!input_pending)
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10239 get_input_pending (&input_pending, READABLE_EVENTS_DO_TIMERS_NOW);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10240
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
10241 if (old_timers_run != timers_run && do_display)
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10242 {
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 35255
diff changeset
10243 redisplay_preserve_echo_area (8);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10244 /* The following fixes a bug when using lazy-lock with
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10245 lazy-lock-defer-on-the-fly set to t, i.e. when fontifying
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10246 from an idle timer function. The symptom of the bug is that
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10247 the cursor sometimes doesn't become visible until the next X
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10248 event is processed. --gerd. */
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10249 if (rif)
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10250 rif->flush_display (NULL);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10251 }
14773
045d60026d13 (timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents: 14710
diff changeset
10252
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10253 return input_pending;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10254 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10255
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10256 /* This is called in some cases before a possible quit.
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10257 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
10258 So calling this function unnecessarily can't do any harm. */
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
10259
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
10260 void
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10261 clear_input_pending ()
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10262 {
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10263 input_pending = 0;
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10264 }
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10265
16017
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10266 /* Return nonzero if there are pending requeued events.
56729
e6e0caa7ec87 Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents: 56717
diff changeset
10267 This isn't used yet. The hope is to make wait_reading_process_output
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
10268 call it, and return if it runs Lisp code that unreads something.
16017
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10269 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
10270 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
10271
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
10272 int
16017
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10273 requeued_events_pending_p ()
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10274 {
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10275 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
10276 }
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10277
96edeb283515 (requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15982
diff changeset
10278
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10279 DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0,
40522
dcd6a276da0d (Finput_pending_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40452
diff changeset
10280 doc: /* Return t if command input is currently available with no wait.
dcd6a276da0d (Finput_pending_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40452
diff changeset
10281 Actually, the value is nil only if we can be sure that no input is available;
dcd6a276da0d (Finput_pending_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40452
diff changeset
10282 if there is a doubt, the value is t. */)
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10283 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10284 {
72790
16c08056334a (Finput_pending_p): Check Vunread_input_method_events
Kim F. Storm <storm@cua.dk>
parents: 72540
diff changeset
10285 if (!NILP (Vunread_command_events) || unread_command_char != -1
16c08056334a (Finput_pending_p): Check Vunread_input_method_events
Kim F. Storm <storm@cua.dk>
parents: 72540
diff changeset
10286 || !NILP (Vunread_post_input_method_events)
16c08056334a (Finput_pending_p): Check Vunread_input_method_events
Kim F. Storm <storm@cua.dk>
parents: 72540
diff changeset
10287 || !NILP (Vunread_input_method_events))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10288 return (Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10289
59580
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10290 get_input_pending (&input_pending,
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10291 READABLE_EVENTS_DO_TIMERS_NOW
f43d0816e9c3 * keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents: 59543
diff changeset
10292 | READABLE_EVENTS_FILTER_EVENTS);
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
10293 return input_pending > 0 ? Qt : Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10294 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10295
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10296 DEFUN ("recent-keys", Frecent_keys, Srecent_keys, 0, 0, 0,
76558
f7afa74d0783 (NUM_RECENT_KEYS): Bump up to 300.
Richard M. Stallman <rms@gnu.org>
parents: 76495
diff changeset
10297 doc: /* Return vector of last 300 events, not counting those from keyboard macros. */)
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10298 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10299 {
1261
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
10300 Lisp_Object *keys = XVECTOR (recent_keys)->contents;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10301 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10302
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10303 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
10304 return Fvector (total_keys, keys);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10305 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10306 {
1261
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
10307 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
10308 bcopy (keys + recent_keys_index,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10309 XVECTOR (val)->contents,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10310 (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
10311 bcopy (keys,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10312 XVECTOR (val)->contents + NUM_RECENT_KEYS - recent_keys_index,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10313 recent_keys_index * sizeof (Lisp_Object));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10314 return val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10315 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10316 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10317
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10318 DEFUN ("this-command-keys", Fthis_command_keys, Sthis_command_keys, 0, 0, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10319 doc: /* Return the key sequence that invoked this command.
43271
a8329a91e9b5 (Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents: 43154
diff changeset
10320 However, if the command has called `read-key-sequence', it returns
45316
d47193939dda (Fthis_command_keys, Fthis_command_keys_vector): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 45310
diff changeset
10321 the last key sequence that has been read.
75434
c686b42fabf5 (Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75407
diff changeset
10322 The value is a string or a vector.
c686b42fabf5 (Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75407
diff changeset
10323
c686b42fabf5 (Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75407
diff changeset
10324 See also `this-command-keys-vector'. */)
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10325 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10326 {
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
10327 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
10328 XVECTOR (this_command_keys)->contents);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10329 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10330
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10331 DEFUN ("this-command-keys-vector", Fthis_command_keys_vector, Sthis_command_keys_vector, 0, 0, 0,
43271
a8329a91e9b5 (Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents: 43154
diff changeset
10332 doc: /* Return the key sequence that invoked this command, as a vector.
a8329a91e9b5 (Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents: 43154
diff changeset
10333 However, if the command has called `read-key-sequence', it returns
75434
c686b42fabf5 (Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75407
diff changeset
10334 the last key sequence that has been read.
c686b42fabf5 (Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75407
diff changeset
10335
c686b42fabf5 (Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75407
diff changeset
10336 See also `this-command-keys'. */)
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10337 ()
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10338 {
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10339 return Fvector (this_command_key_count,
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10340 XVECTOR (this_command_keys)->contents);
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10341 }
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10342
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
10343 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
10344 Sthis_single_command_keys, 0, 0, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10345 doc: /* Return the key sequence that invoked this command.
43271
a8329a91e9b5 (Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents: 43154
diff changeset
10346 More generally, it returns the last key sequence read, either by
a8329a91e9b5 (Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents: 43154
diff changeset
10347 the command loop or by `read-key-sequence'.
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10348 Unlike `this-command-keys', this function's value
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10349 does not include prefix arguments.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10350 The value is always a vector. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10351 ()
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
10352 {
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10353 return Fvector (this_command_key_count
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10354 - this_single_command_key_start,
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10355 (XVECTOR (this_command_keys)->contents
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10356 + this_single_command_key_start));
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
10357 }
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
10358
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
10359 DEFUN ("this-single-command-raw-keys", Fthis_single_command_raw_keys,
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
10360 Sthis_single_command_raw_keys, 0, 0, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10361 doc: /* Return the raw events that were read for this command.
43271
a8329a91e9b5 (Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents: 43154
diff changeset
10362 More generally, it returns the last key sequence read, either by
a8329a91e9b5 (Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents: 43154
diff changeset
10363 the command loop or by `read-key-sequence'.
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10364 Unlike `this-single-command-keys', this function's value
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10365 shows the events before all translations (except for input methods).
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10366 The value is always a vector. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10367 ()
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
10368 {
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
10369 return Fvector (raw_keybuf_count,
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
10370 (XVECTOR (raw_keybuf)->contents));
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
10371 }
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
10372
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
10373 DEFUN ("reset-this-command-lengths", Freset_this_command_lengths,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10374 Sreset_this_command_lengths, 0, 0, 0,
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10375 doc: /* Make the unread events replace the last command and echo.
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10376 Used in `universal-argument-other-key'.
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10377
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10378 `universal-argument-other-key' rereads the event just typed.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10379 It then gets translated through `function-key-map'.
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10380 The translated event has to replace the real events,
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10381 both in the value of (this-command-keys) and in echoing.
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10382 To achieve this, `universal-argument-other-key' calls
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10383 `reset-this-command-lengths', which discards the record of reading
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10384 these events the first time. */)
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10385 ()
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
10386 {
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
10387 this_command_key_count = before_command_key_count;
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
10388 if (this_command_key_count < this_single_command_key_start)
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
10389 this_single_command_key_start = this_command_key_count;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10390
49593
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
10391 echo_truncate (before_command_echo_length);
267143d204cf (echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents: 49581
diff changeset
10392
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10393 /* Cause whatever we put into unread-command-events
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10394 to echo as if it were being freshly read from the keyboard. */
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10395 this_command_key_count_reset = 1;
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10396
23047
fc5f85abc044 (Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents: 22989
diff changeset
10397 return Qnil;
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
10398 }
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
10399
23439
72d75218d971 (Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23418
diff changeset
10400 DEFUN ("clear-this-command-keys", Fclear_this_command_keys,
46947
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10401 Sclear_this_command_keys, 0, 1, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10402 doc: /* Clear out the vector that `this-command-keys' returns.
46947
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10403 Also clear the record of the last 100 events, unless optional arg
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10404 KEEP-RECORD is non-nil. */)
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10405 (keep_record)
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10406 Lisp_Object keep_record;
23439
72d75218d971 (Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23418
diff changeset
10407 {
27274
8ef20d572a68 (Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents: 26863
diff changeset
10408 int i;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
10409
23439
72d75218d971 (Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23418
diff changeset
10410 this_command_key_count = 0;
49819
33f214d51e1f (this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 49757
diff changeset
10411 this_command_key_count_reset = 0;
27274
8ef20d572a68 (Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents: 26863
diff changeset
10412
46947
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10413 if (NILP (keep_record))
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10414 {
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10415 for (i = 0; i < XVECTOR (recent_keys)->size; ++i)
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10416 XVECTOR (recent_keys)->contents[i] = Qnil;
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10417 total_keys = 0;
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10418 recent_keys_index = 0;
775e763fdaf2 (Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents: 46885
diff changeset
10419 }
23439
72d75218d971 (Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23418
diff changeset
10420 return Qnil;
72d75218d971 (Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23418
diff changeset
10421 }
72d75218d971 (Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23418
diff changeset
10422
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10423 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10424 doc: /* Return the current depth in recursive edits. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10425 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10426 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10427 Lisp_Object temp;
9311
6e40f49dc6fb (read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents: 9272
diff changeset
10428 XSETFASTINT (temp, command_loop_level + minibuf_level);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10429 return temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10430 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10431
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10432 DEFUN ("open-dribble-file", Fopen_dribble_file, Sopen_dribble_file, 1, 1,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10433 "FOpen dribble file: ",
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10434 doc: /* Start writing all keyboard characters to a dribble file called FILE.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10435 If FILE is nil, close any open dribble file. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10436 (file)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10437 Lisp_Object file;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10438 {
14590
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
10439 if (dribble)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10440 {
76623
27b51de2d1d7 (record_char): Add BLOCK_INPUT around fwrite.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76558
diff changeset
10441 BLOCK_INPUT;
14590
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
10442 fclose (dribble);
76623
27b51de2d1d7 (record_char): Add BLOCK_INPUT around fwrite.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76558
diff changeset
10443 UNBLOCK_INPUT;
14590
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
10444 dribble = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10445 }
14590
2eb3fcfa26ad (Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents: 14550
diff changeset
10446 if (!NILP (file))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10447 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10448 file = Fexpand_file_name (file, Qnil);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10449 dribble = fopen (SDATA (file), "w");
14591
6002d6e3aea3 (Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 14590
diff changeset
10450 if (dribble == 0)
6002d6e3aea3 (Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents: 14590
diff changeset
10451 report_file_error ("Opening dribble", Fcons (file, Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10452 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10453 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10454 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10455
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10456 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10457 doc: /* Discard the contents of the terminal input buffer.
47347
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10458 Also end any kbd macro being defined. */)
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10459 ()
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10460 {
47347
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10461 if (!NILP (current_kboard->defining_kbd_macro))
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10462 {
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10463 /* Discard the last command from the macro. */
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10464 Fcancel_kbd_macro_events ();
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10465 end_kbd_macro ();
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10466 }
28bab21524d4 (Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents: 46947
diff changeset
10467
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10468 update_mode_lines++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10469
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
10470 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
10471 unread_command_char = -1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10472
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10473 discard_tty_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10474
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
10475 kbd_fetch_ptr = kbd_store_ptr;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10476 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10477
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10478 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10479 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10480
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10481 DEFUN ("suspend-emacs", Fsuspend_emacs, Ssuspend_emacs, 0, 1, "",
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10482 doc: /* Stop Emacs and return to superior process. You can resume later.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10483 If `cannot-suspend' is non-nil, or if the system doesn't support job
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10484 control, run a subshell instead.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10485
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10486 If optional arg STUFFSTRING is non-nil, its characters are stuffed
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10487 to be read as terminal input by Emacs's parent, after suspension.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10488
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10489 Before suspending, run the normal hook `suspend-hook'.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10490 After resumption run the normal hook `suspend-resume-hook'.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10491
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10492 Some operating systems cannot stop the Emacs process and resume it later.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10493 On such systems, Emacs starts a subshell instead of suspending. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10494 (stuffstring)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10495 Lisp_Object stuffstring;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10496 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
10497 int count = SPECPDL_INDEX ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10498 int old_height, old_width;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10499 int width, height;
25768
2cd7c31ce982 (Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents: 25671
diff changeset
10500 struct gcpro gcpro1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10501
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10502 if (!NILP (stuffstring))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40548
diff changeset
10503 CHECK_STRING (stuffstring);
1891
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
10504
2338
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
10505 /* Run the functions in suspend-hook. */
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
10506 if (!NILP (Vrun_hooks))
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
10507 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
10508
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10509 GCPRO1 (stuffstring);
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
10510 get_frame_size (&old_width, &old_height);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10511 reset_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10512 /* sys_suspend can get an error if it tries to fork a subshell
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10513 and the system resources aren't available for that. */
20380
efe9d1d6fc23 (Fsuspend_emacs): Cast init_sys_modes when calling
Andreas Schwab <schwab@suse.de>
parents: 20366
diff changeset
10514 record_unwind_protect ((Lisp_Object (*) P_ ((Lisp_Object))) init_sys_modes,
21527
39c919d2a8be (parse_menu_item): Don't GCPRO non-lisp variables.
Andreas Schwab <schwab@suse.de>
parents: 21514
diff changeset
10515 Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10516 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
10517 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
10518 sys_subshell ();
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
10519 else
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
10520 sys_suspend ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10521 unbind_to (count, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10522
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10523 /* Check if terminal/window size has changed.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10524 Note that this is not useful when we are running directly
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10525 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
10526 get_frame_size (&width, &height);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10527 if (width != old_width || height != old_height)
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
10528 change_frame_size (SELECTED_FRAME (), height, width, 0, 0, 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10529
2338
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
10530 /* Run suspend-resume-hook. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10531 if (!NILP (Vrun_hooks))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10532 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
10533
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10534 UNGCPRO;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10535 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10536 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10537
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10538 /* 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
10539 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
10540
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
10541 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10542 stuff_buffered_input (stuffstring)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10543 Lisp_Object stuffstring;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10544 {
56454
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
10545 #ifdef SIGTSTP /* stuff_char is defined if SIGTSTP. */
10551
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
10546 register unsigned char *p;
7b2cb7c878d0 (the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents: 10539
diff changeset
10547
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
10548 if (STRINGP (stuffstring))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10549 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10550 register int count;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10551
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10552 p = SDATA (stuffstring);
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46368
diff changeset
10553 count = SBYTES (stuffstring);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10554 while (count-- > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10555 stuff_char (*p++);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10556 stuff_char ('\n');
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10557 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
10558
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10559 /* 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
10560 /* ?? What should this do when we have multiple keyboards??
56454
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
10561 Should we ignore anything that was typed in at the "wrong" kboard?
56461
04a216bfa931 (not_single_kboard_state): Do nothing unless MULTI_KBOARD is defined.
Juanma Barranquero <lekktu@gmail.com>
parents: 56454
diff changeset
10562
56454
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
10563 rms: we should stuff everything back into the kboard
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
10564 it came from. */
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
10565 for (; kbd_fetch_ptr != kbd_store_ptr; kbd_fetch_ptr++)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10566 {
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
10567
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
10568 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
10569 kbd_fetch_ptr = kbd_buffer;
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45753
diff changeset
10570 if (kbd_fetch_ptr->kind == ASCII_KEYSTROKE_EVENT)
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
10571 stuff_char (kbd_fetch_ptr->code);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
10572
53671
12f934857d1b (kbd_buffer_gcpro): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53657
diff changeset
10573 clear_event (kbd_fetch_ptr);
30177
78677e36a8a3 (kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 30142
diff changeset
10574 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
10575
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10576 input_pending = 0;
56454
1e0c70660fff (not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents: 56421
diff changeset
10577 #endif /* SIGTSTP */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10578 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10579
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
10580 void
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10581 set_waiting_for_input (time_to_clear)
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10582 EMACS_TIME *time_to_clear;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10583 {
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10584 input_available_clear_time = time_to_clear;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10585
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10586 /* Tell interrupt_signal to throw back to read_char, */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10587 waiting_for_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10588
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10589 /* If interrupt_signal was called before and buffered a C-g,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10590 make it run again now, to avoid timing error. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10591 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10592 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10593 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10594
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
10595 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10596 clear_waiting_for_input ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10597 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10598 /* Tell interrupt_signal not to throw back to read_char, */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10599 waiting_for_input = 0;
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
10600 input_available_clear_time = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10601 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10602
44135
8f0053476105 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 44078
diff changeset
10603 /* This routine is called at interrupt level in response to C-g.
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
10604
30200
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10605 If interrupt_input, this is the handler for SIGINT. Otherwise, it
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10606 is called from kbd_buffer_store_event, in handling SIGIO or
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10607 SIGTINT.
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10608
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10609 If `waiting_for_input' is non zero, then unless `echoing' is
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10610 nonzero, immediately throw back to read_char.
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10611
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10612 Otherwise it sets the Lisp variable quit-flag not-nil. This causes
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10613 eval to throw, when it gets a chance. If quit-flag is already
ff33a5770282 (show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents: 30177
diff changeset
10614 non-nil, it stops the job right away. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10615
48349
12d250ace67f (command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48229
diff changeset
10616 static SIGTYPE
10746
ea87e4d9c8ea (input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents: 10701
diff changeset
10617 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
10618 int signalnum; /* some compilers complain in signal calls. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10619 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10620 char c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10621 /* Must preserve main program's value of errno. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10622 int old_errno = errno;
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
10623 struct frame *sf = SELECTED_FRAME ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10624
16115
cc8c3e2cc6ed (input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16111
diff changeset
10625 #if defined (USG) && !defined (POSIX_SIGNALS)
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
10626 if (!read_socket_hook && NILP (Vwindow_system))
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
10627 {
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
10628 /* USG systems forget handlers when they are used;
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
10629 must reestablish each time */
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
10630 signal (SIGINT, interrupt_signal);
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
10631 signal (SIGQUIT, interrupt_signal);
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
10632 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10633 #endif /* USG */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10634
58986
59945307b86b * syssignal.h: Declare main_thread.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58967
diff changeset
10635 SIGNAL_THREAD_CHECK (signalnum);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10636 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10637
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
10638 if (!NILP (Vquit_flag)
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
10639 && (FRAME_TERMCAP_P (sf) || FRAME_MSDOS_P (sf)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10640 {
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
10641 /* 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
10642 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
10643 in I/O functions. */
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
10644 sigblock (sigmask (SIGINT));
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
10645
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10646 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10647 reset_sys_modes ();
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
10648
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10649 #ifdef SIGTSTP /* Support possible in later USG versions */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10650 /*
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10651 * On systems which can suspend the current process and return to the original
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10652 * shell, this command causes the user to end up back at the shell.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10653 * The "Auto-save" and "Abort" questions are not asked until
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10654 * 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
10655 * job and either dump core or continue.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10656 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10657 sys_suspend ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10658 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10659 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10660 if (sys_suspend () == -1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10661 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10662 printf ("Not running as a subprocess;\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10663 printf ("you can continue or abort.\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10664 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10665 #else /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10666 /* Perhaps should really fork an inferior shell?
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10667 But that would not provide any way to get back
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10668 to the original shell, ever. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10669 printf ("No support for stopping a process on this operating system;\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10670 printf ("you can continue or abort.\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10671 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10672 #endif /* not SIGTSTP */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10673 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10674 /* 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
10675 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
10676 cursor_to (0, 0);
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10677 #endif
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10678 /* 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
10679 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
10680 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
10681 {
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10682 printf ("Auto-save? (y or n) ");
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10683 fflush (stdout);
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10684 if (((c = getchar ()) & ~040) == 'Y')
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10685 {
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10686 Fdo_auto_save (Qt, Qnil);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10687 #ifdef MSDOS
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10688 printf ("\r\nAuto-save done");
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10689 #else /* not MSDOS */
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10690 printf ("Auto-save done\n");
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10691 #endif /* not MSDOS */
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10692 }
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10693 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
10694 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
10695 else
13454
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10696 {
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10697 /* 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
10698 Vinhibit_quit = Qnil;
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10699 #ifdef MSDOS
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10700 printf ("\r\n");
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10701 #endif /* not MSDOS */
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10702 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
10703 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
10704 fflush (stdout);
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10705 }
1a16700ce493 (interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents: 13413
diff changeset
10706
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10707 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10708 printf ("\r\nAbort? (y or n) ");
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10709 #else /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10710 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10711 printf ("Abort (and enter debugger)? (y or n) ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10712 #else /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10713 printf ("Abort (and dump core)? (y or n) ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10714 #endif /* not VMS */
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10715 #endif /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10716 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10717 if (((c = getchar ()) & ~040) == 'Y')
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10718 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10719 while (c != '\n') c = getchar ();
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10720 #ifdef MSDOS
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10721 printf ("\r\nContinuing...\r\n");
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10722 #else /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10723 printf ("Continuing...\n");
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
10724 #endif /* not MSDOS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10725 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10726 init_sys_modes ();
16873
205ec6c5d8f3 * (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents: 16834
diff changeset
10727 sigfree ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10728 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10729 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10730 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10731 /* If executing a function that wants to be interrupted out of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10732 and the user has not deferred quitting by binding `inhibit-quit'
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10733 then quit right away. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10734 if (immediate_quit && NILP (Vinhibit_quit))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10735 {
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10736 struct gl_state_s saved;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10737 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10738
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10739 immediate_quit = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10740 sigfree ();
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10741 saved = gl_state;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10742 GCPRO4 (saved.object, saved.global_code,
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10743 saved.current_syntax_table, saved.old_prop);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10744 Fsignal (Qquit, Qnil);
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10745 gl_state = saved;
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
10746 UNGCPRO;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10747 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10748 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10749 /* Else request quit when it's safe */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10750 Vquit_flag = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10751 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10752
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10753 if (waiting_for_input && !echoing)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10754 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10755
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10756 errno = old_errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10757 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10758
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10759 /* Handle a C-g by making read_char return C-g. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10760
20365
cfba77fb710b (echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents: 20270
diff changeset
10761 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10762 quit_throw_to_read_char ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10763 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10764 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10765 /* Prevent another signal from doing this before we finish. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
10766 clear_waiting_for_input ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10767 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10768
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
10769 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
10770 unread_command_char = -1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10771
12309
c78f7af6cee9 (quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents: 12290
diff changeset
10772 #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
10773 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
10774 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
10775 #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
10776 /* 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
10777 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
10778 abort ();
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
10779 #endif
12309
c78f7af6cee9 (quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents: 12290
diff changeset
10780 #endif
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
10781 if (FRAMEP (internal_last_event_frame)
25671
1406380bf1e6 (command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25657
diff changeset
10782 && !EQ (internal_last_event_frame, selected_frame))
12290
99ffac67fb53 (quit_throw_to_read_char): Use do_switch_frame directly.
Richard M. Stallman <rms@gnu.org>
parents: 12264
diff changeset
10783 do_switch_frame (make_lispy_switch_frame (internal_last_event_frame),
36808
678f9b758e49 (quit_throw_to_read_char): Change call to
Gerd Moellmann <gerd@gnu.org>
parents: 36745
diff changeset
10784 0, 0);
2340
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
10785
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10786 _longjmp (getcjmp, 1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10787 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10788
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10789 DEFUN ("set-input-mode", Fset_input_mode, Sset_input_mode, 3, 4, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10790 doc: /* Set mode of reading keyboard input.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10791 First arg INTERRUPT non-nil means use input interrupts;
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10792 nil means use CBREAK mode.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10793 Second arg FLOW non-nil means use ^S/^Q flow control for output to terminal
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10794 (no effect except in CBREAK mode).
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10795 Third arg META t means accept 8-bit input (for a Meta key).
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10796 META nil means ignore the top bit, on the assumption it is parity.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10797 Otherwise, accept 8-bit input and don't use the top bit for Meta.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10798 Optional fourth arg QUIT if non-nil specifies character to use for quitting.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10799 See also `current-input-mode'. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10800 (interrupt, flow, meta, quit)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10801 Lisp_Object interrupt, flow, meta, quit;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10802 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10803 if (!NILP (quit)
9124
8ed50a8939e9 (echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents: 8994
diff changeset
10804 && (!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
10805 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
10806
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10807 #ifdef POLL_FOR_INPUT
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10808 stop_polling ();
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10809 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10810
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
10811 #ifndef DOS_NT
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
10812 /* this causes startup screen to be restored and messes with the mouse */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10813 reset_sys_modes ();
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
10814 #endif
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
10815
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10816 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10817 /* 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
10818 if (read_socket_hook)
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10819 {
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10820 /* 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
10821 because we haven't implemented the mechanisms to support it. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10822 #ifdef NO_SOCK_SIGIO
11993
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10823 interrupt_input = 0;
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10824 #else /* not NO_SOCK_SIGIO */
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10825 interrupt_input = 1;
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10826 #endif /* NO_SOCK_SIGIO */
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10827 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10828 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10829 interrupt_input = !NILP (interrupt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10830 #else /* not SIGIO */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10831 interrupt_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10832 #endif /* not SIGIO */
11993
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10833
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10834 /* Our VMS input only works by interrupts, as of now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10835 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10836 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10837 #endif
11993
25aed301d8f7 (Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents: 11832
diff changeset
10838
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10839 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
10840 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
10841 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
10842 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
10843 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
10844 else
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
10845 meta_key = 2;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10846 if (!NILP (quit))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10847 /* Don't let this value be out of range. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10848 quit_char = XINT (quit) & (meta_key ? 0377 : 0177);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10849
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
10850 #ifndef DOS_NT
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10851 init_sys_modes ();
13191
cb145d50f910 (make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents: 13189
diff changeset
10852 #endif
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10853
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10854 #ifdef POLL_FOR_INPUT
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10855 poll_suppress_count = 1;
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10856 start_polling ();
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
10857 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10858 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10859 }
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10860
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10861 DEFUN ("current-input-mode", Fcurrent_input_mode, Scurrent_input_mode, 0, 0, 0,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10862 doc: /* Return information about the way Emacs currently reads keyboard input.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10863 The value is a list of the form (INTERRUPT FLOW META QUIT), where
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10864 INTERRUPT is non-nil if Emacs is using interrupt-driven input; if
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10865 nil, Emacs is using CBREAK mode.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10866 FLOW is non-nil if Emacs uses ^S/^Q flow control for output to the
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10867 terminal; this does not apply if Emacs uses interrupt-driven input.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10868 META is t if accepting 8-bit input with 8th bit as Meta flag.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10869 META nil means ignoring the top bit, on the assumption it is parity.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10870 META is neither t nor nil if accepting 8-bit input and using
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10871 all 8 bits as the character code.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10872 QUIT is the character Emacs currently uses to quit.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10873 The elements of this list correspond to the arguments of
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10874 `set-input-mode'. */)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
10875 ()
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10876 {
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10877 Lisp_Object val[4];
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10878
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10879 val[0] = interrupt_input ? Qt : Qnil;
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10880 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
10881 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
10882 XSETFASTINT (val[3], quit_char);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10883
3116
05c3ef28bb6b (Fcurrent_input_mode): Fix the call to Flist.
Richard M. Stallman <rms@gnu.org>
parents: 3104
diff changeset
10884 return Flist (sizeof (val) / sizeof (val[0]), val);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10885 }
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
10886
59543
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
10887 DEFUN ("posn-at-x-y", Fposn_at_x_y, Sposn_at_x_y, 2, 4, 0,
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10888 doc: /* Return position information for pixel coordinates X and Y.
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10889 By default, X and Y are relative to text area of the selected window.
62753
3cf2ae5f446d (Frecursive_edit): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 62493
diff changeset
10890 Optional third arg FRAME-OR-WINDOW non-nil specifies frame or window.
59543
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
10891 If optional fourth arg WHOLE is non-nil, X is relative to the left
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
10892 edge of the window.
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10893
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10894 The return value is similar to a mouse click position:
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10895 (WINDOW AREA-OR-POS (X . Y) TIMESTAMP OBJECT POS (COL . ROW)
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10896 IMAGE (DX . DY) (WIDTH . HEIGHT))
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10897 The `posn-' functions access elements of such lists. */)
59543
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
10898 (x, y, frame_or_window, whole)
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
10899 Lisp_Object x, y, frame_or_window, whole;
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10900 {
60331
9d9eca6f4905 (Fposn_at_x_y): Check integerness of X and Y.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60067
diff changeset
10901 CHECK_NATNUM (x);
9d9eca6f4905 (Fposn_at_x_y): Check integerness of X and Y.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60067
diff changeset
10902 CHECK_NATNUM (y);
9d9eca6f4905 (Fposn_at_x_y): Check integerness of X and Y.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60067
diff changeset
10903
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10904 if (NILP (frame_or_window))
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10905 frame_or_window = selected_window;
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10906
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10907 if (WINDOWP (frame_or_window))
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10908 {
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10909 struct window *w;
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10910
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10911 CHECK_LIVE_WINDOW (frame_or_window);
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10912
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10913 w = XWINDOW (frame_or_window);
66076
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10914 XSETINT (x, (XINT (x)
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10915 + WINDOW_LEFT_EDGE_X (w)
59543
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
10916 + (NILP (whole)
66df67e643ac (Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents: 59520
diff changeset
10917 ? window_box_left_offset (w, TEXT_AREA)
66076
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10918 : 0)));
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10919 XSETINT (y, WINDOW_TO_FRAME_PIXEL_Y (w, XINT (y)));
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10920 frame_or_window = w->frame;
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10921 }
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10922
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10923 CHECK_LIVE_FRAME (frame_or_window);
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10924
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10925 return make_lispy_position (XFRAME (frame_or_window), &x, &y, 0);
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10926 }
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10927
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10928 DEFUN ("posn-at-point", Fposn_at_point, Sposn_at_point, 0, 2, 0,
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10929 doc: /* Return position information for buffer POS in WINDOW.
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10930 POS defaults to point in WINDOW; WINDOW defaults to the selected window.
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10931
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10932 Return nil if position is not visible in window. Otherwise,
56023
7e63582e48f6 (Fposn_at_point): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 55721
diff changeset
10933 the return value is similar to that returned by `event-start' for
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10934 a mouse click at the upper left corner of the glyph corresponding
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10935 to the given buffer position:
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10936 (WINDOW AREA-OR-POS (X . Y) TIMESTAMP OBJECT POS (COL . ROW)
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10937 IMAGE (DX . DY) (WIDTH . HEIGHT))
58247
fdf2cb9626ab (Fposn_at_point): Remove extra */ after doc string.
Kim F. Storm <storm@cua.dk>
parents: 58091
diff changeset
10938 The `posn-' functions access elements of such lists. */)
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10939 (pos, window)
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10940 Lisp_Object pos, window;
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10941 {
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10942 Lisp_Object tem;
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10943
66076
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10944 if (NILP (window))
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10945 window = selected_window;
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10946
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10947 tem = Fpos_visible_in_window_p (pos, window, Qt);
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10948 if (!NILP (tem))
66076
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10949 {
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10950 Lisp_Object x = XCAR (tem);
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10951 Lisp_Object y = XCAR (XCDR (tem));
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10952
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10953 /* Point invisible due to hscrolling? */
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10954 if (XINT (x) < 0)
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10955 return Qnil;
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10956 tem = Fposn_at_x_y (x, y, window, Qnil);
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10957 }
33c8db02dc18 (make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents: 66019
diff changeset
10958
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10959 return tem;
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10960 }
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
10961
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10962
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
10963 /*
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10964 * 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
10965 */
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
10966 void
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10967 init_kboard (kb)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10968 KBOARD *kb;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
10969 {
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
10970 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
10971 kb->Vlast_command = Qnil;
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
10972 kb->Vreal_last_command = Qnil;
12118
14520fa2d792 (cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents: 12087
diff changeset
10973 kb->Vprefix_arg = Qnil;
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
10974 kb->Vlast_prefix_arg = Qnil;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10975 kb->kbd_queue = Qnil;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10976 kb->kbd_queue_has_data = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10977 kb->immediate_echo = 0;
43750
38729301823d (echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
10978 kb->echo_string = Qnil;
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10979 kb->echo_after_prompt = -1;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10980 kb->kbd_macro_buffer = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10981 kb->kbd_macro_bufsize = 0;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10982 kb->defining_kbd_macro = Qnil;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10983 kb->Vlast_kbd_macro = Qnil;
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10984 kb->reference_count = 0;
11543
317e5825008b (Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents: 11540
diff changeset
10985 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
10986 kb->system_key_syms = Qnil;
11777
14ecddbe182f (init_kboard): Initialize Vdefault_minibuffer_frame.
Karl Heuer <kwzh@gnu.org>
parents: 11763
diff changeset
10987 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
10988 }
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
10989
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
10990 /*
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10991 * 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
10992 * 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
10993 * 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
10994 */
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
10995 static void
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10996 wipe_kboard (kb)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10997 KBOARD *kb;
10654
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
10998 {
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
10999 if (kb->kbd_macro_buffer)
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
11000 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
11001 }
012591ef4e64 (syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents: 10635
diff changeset
11002
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11003 #ifdef MULTI_KBOARD
37400
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11004
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11005 /* Free KB and memory referenced from it. */
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11006
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11007 void
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11008 delete_kboard (kb)
37400
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11009 KBOARD *kb;
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11010 {
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11011 KBOARD **kbp;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
11012
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11013 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
11014 if (*kbp == NULL)
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11015 abort ();
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11016 *kbp = kb->next_kboard;
37400
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11017
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11018 /* Prevent a dangling reference to KB. */
37603
df85a76987bb (delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents: 37461
diff changeset
11019 if (kb == current_kboard
df85a76987bb (delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents: 37461
diff changeset
11020 && FRAMEP (selected_frame)
df85a76987bb (delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents: 37461
diff changeset
11021 && FRAME_LIVE_P (XFRAME (selected_frame)))
df85a76987bb (delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents: 37461
diff changeset
11022 {
df85a76987bb (delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents: 37461
diff changeset
11023 current_kboard = XFRAME (selected_frame)->kboard;
37400
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11024 if (current_kboard == kb)
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11025 abort ();
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11026 }
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
11027
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11028 wipe_kboard (kb);
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11029 xfree (kb);
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11030 }
37400
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11031
2ac65f4d70e5 (delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents: 37189
diff changeset
11032 #endif /* MULTI_KBOARD */
11165
d5cd4e375335 (wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents: 11127
diff changeset
11033
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
11034 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11035 init_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11036 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11037 /* This is correct before outermost invocation of the editor loop */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11038 command_loop_level = -1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11039 immediate_quit = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11040 quit_char = Ctl ('g');
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
11041 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
11042 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
11043 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11044 total_keys = 0;
1262
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
11045 recent_keys_index = 0;
10800
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
11046 kbd_fetch_ptr = kbd_buffer;
5bfee5ff5d18 (kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents: 10746
diff changeset
11047 kbd_store_ptr = kbd_buffer;
9840
81829106d303 (EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents: 9830
diff changeset
11048 #ifdef HAVE_MOUSE
9618
9fe4987e4896 (do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9607
diff changeset
11049 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
11050 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11051 input_pending = 0;
75137
86181f7117aa (init_keyboard): Initialize interrupt_input_blocked and
Jan Djärv <jan.h.d@swipnet.se>
parents: 74837
diff changeset
11052 interrupt_input_blocked = 0;
86181f7117aa (init_keyboard): Initialize interrupt_input_blocked and
Jan Djärv <jan.h.d@swipnet.se>
parents: 74837
diff changeset
11053 interrupt_input_pending = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11054
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
11055 /* 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
11056 time through. */
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
11057 internal_last_event_frame = Qnil;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
11058 Vlast_event_frame = internal_last_event_frame;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
11059
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
11060 #ifdef MULTI_KBOARD
11363
f15dccd23db8 (init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents: 11350
diff changeset
11061 current_kboard = initial_kboard;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
11062 #endif
11363
f15dccd23db8 (init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents: 11350
diff changeset
11063 wipe_kboard (current_kboard);
11016
8d8eef563e13 (unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents: 10997
diff changeset
11064 init_kboard (current_kboard);
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
11065
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
11066 if (!noninteractive && !read_socket_hook && NILP (Vwindow_system))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11067 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11068 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
11069 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11070 /* 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
11071 SIGQUIT and we can't tell which one it will give us. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11072 signal (SIGQUIT, interrupt_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11073 #endif /* HAVE_TERMIO */
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
11074 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11075 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11076 #ifdef SIGIO
7957
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
11077 if (!noninteractive)
a1404ed5d012 (echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7868
diff changeset
11078 signal (SIGIO, input_available_signal);
1008
f1df63f98e5c * keyboard.c (init_keyboard): Changed "#endif SIGIO" to
Jim Blandy <jimb@redhat.com>
parents: 985
diff changeset
11079 #endif /* SIGIO */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11080
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11081 /* Use interrupt input by default, if it works and noninterrupt input
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11082 has deficiencies. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11083
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11084 #ifdef INTERRUPT_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11085 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11086 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11087 interrupt_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11088 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11089
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11090 /* Our VMS input only works by interrupts, as of now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11091 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11092 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11093 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11094
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11095 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11096 dribble = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11097
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11098 if (keyboard_init_hook)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11099 (*keyboard_init_hook) ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11100
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11101 #ifdef POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11102 poll_suppress_count = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11103 start_polling ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11104 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11105 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11106
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
11107 /* 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
11108 event header symbols and put properties on them. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11109 struct event_head {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11110 Lisp_Object *var;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11111 char *name;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11112 Lisp_Object *kind;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11113 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11114
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11115 struct event_head head_table[] = {
42121
3069e9eb44de (head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents: 42064
diff changeset
11116 {&Qmouse_movement, "mouse-movement", &Qmouse_movement},
3069e9eb44de (head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents: 42064
diff changeset
11117 {&Qscroll_bar_movement, "scroll-bar-movement", &Qmouse_movement},
3069e9eb44de (head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents: 42064
diff changeset
11118 {&Qswitch_frame, "switch-frame", &Qswitch_frame},
3069e9eb44de (head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents: 42064
diff changeset
11119 {&Qdelete_frame, "delete-frame", &Qdelete_frame},
3069e9eb44de (head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents: 42064
diff changeset
11120 {&Qiconify_frame, "iconify-frame", &Qiconify_frame},
44300
21286349d285 (Qselect_window): New symbol.
Pavel Janík <Pavel@Janik.cz>
parents: 44135
diff changeset
11121 {&Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible},
50557
c940538354f7 (head_table): Use switch-frame as event_kind for select-window.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50556
diff changeset
11122 /* `select-window' should be handled just like `switch-frame'
c940538354f7 (head_table): Use switch-frame as event_kind for select-window.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50556
diff changeset
11123 in read_key_sequence. */
c940538354f7 (head_table): Use switch-frame as event_kind for select-window.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50556
diff changeset
11124 {&Qselect_window, "select-window", &Qswitch_frame}
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11125 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11126
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
11127 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11128 syms_of_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11129 {
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
11130 Vpre_help_message = Qnil;
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
11131 staticpro (&Vpre_help_message);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
11132
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
11133 Vlispy_mouse_stem = build_string ("mouse");
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
11134 staticpro (&Vlispy_mouse_stem);
38751
ea3e88f0c205 (Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38674
diff changeset
11135
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
11136 /* Tool-bars. */
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11137 QCimage = intern (":image");
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11138 staticpro (&QCimage);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11139
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11140 staticpro (&Qhelp_echo);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11141 Qhelp_echo = intern ("help-echo");
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11142
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11143 staticpro (&item_properties);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11144 item_properties = Qnil;
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11145
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
11146 staticpro (&tool_bar_item_properties);
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
11147 tool_bar_item_properties = Qnil;
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
11148 staticpro (&tool_bar_items_vector);
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25525
diff changeset
11149 tool_bar_items_vector = Qnil;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11150
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11151 staticpro (&real_this_command);
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11152 real_this_command = Qnil;
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11153
17699
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
11154 Qtimer_event_handler = intern ("timer-event-handler");
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
11155 staticpro (&Qtimer_event_handler);
b2629af2145e (Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 17389
diff changeset
11156
56624
05bc08d74392 Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56609
diff changeset
11157 Qdisabled_command_function = intern ("disabled-command-function");
05bc08d74392 Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56609
diff changeset
11158 staticpro (&Qdisabled_command_function);
4094
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
11159
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11160 Qself_insert_command = intern ("self-insert-command");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11161 staticpro (&Qself_insert_command);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11162
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11163 Qforward_char = intern ("forward-char");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11164 staticpro (&Qforward_char);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11165
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11166 Qbackward_char = intern ("backward-char");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11167 staticpro (&Qbackward_char);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11168
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11169 Qdisabled = intern ("disabled");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11170 staticpro (&Qdisabled);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11171
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
11172 Qundefined = intern ("undefined");
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
11173 staticpro (&Qundefined);
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
11174
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11175 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
11176 staticpro (&Qpre_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11177
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11178 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
11179 staticpro (&Qpost_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11180
10070
def41008c136 (command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents: 10060
diff changeset
11181 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
11182 staticpro (&Qdeferred_action_function);
def41008c136 (command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents: 10060
diff changeset
11183
5674
bb8bfab97970 (read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents: 5614
diff changeset
11184 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
11185 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
11186
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11187 Qfunction_key = intern ("function-key");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11188 staticpro (&Qfunction_key);
1322
5f327f1dddd3 * keyboard.c (modify_event_symbol): Make sure that the unmodified
Jim Blandy <jimb@redhat.com>
parents: 1310
diff changeset
11189 Qmouse_click = intern ("mouse-click");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11190 staticpro (&Qmouse_click);
61499
f914c4fa9610 (Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61496
diff changeset
11191 #if defined (WINDOWSNT) || defined (MAC_OS)
23798
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
11192 Qlanguage_change = intern ("language-change");
594b3116e1b0 (Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23759
diff changeset
11193 staticpro (&Qlanguage_change);
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
11194 #endif
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
11195 Qdrag_n_drop = intern ("drag-n-drop");
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
11196 staticpro (&Qdrag_n_drop);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11197
43814
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
11198 Qsave_session = intern ("save-session");
62753
3cf2ae5f446d (Frecursive_edit): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 62493
diff changeset
11199 staticpro (&Qsave_session);
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
11200
67455
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
11201 #ifdef MAC_OS
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
11202 Qmac_apple_event = intern ("mac-apple-event");
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
11203 staticpro (&Qmac_apple_event);
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
11204 #endif
9bf079216f0e (Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 66529
diff changeset
11205
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
11206 Qmenu_enable = intern ("menu-enable");
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
11207 staticpro (&Qmenu_enable);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11208 Qmenu_alias = intern ("menu-alias");
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11209 staticpro (&Qmenu_alias);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11210 QCenable = intern (":enable");
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11211 staticpro (&QCenable);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11212 QCvisible = intern (":visible");
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11213 staticpro (&QCvisible);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11214 QChelp = intern (":help");
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11215 staticpro (&QChelp);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11216 QCfilter = intern (":filter");
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11217 staticpro (&QCfilter);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11218 QCbutton = intern (":button");
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11219 staticpro (&QCbutton);
21778
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
11220 QCkeys = intern (":keys");
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
11221 staticpro (&QCkeys);
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
11222 QCkey_sequence = intern (":key-sequence");
bb86eac5ce79 (parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents: 21726
diff changeset
11223 staticpro (&QCkey_sequence);
21240
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11224 QCtoggle = intern (":toggle");
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11225 staticpro (&QCtoggle);
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11226 QCradio = intern (":radio");
bff697e03fe0 Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 21024
diff changeset
11227 staticpro (&QCradio);
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
11228
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11229 Qmode_line = intern ("mode-line");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11230 staticpro (&Qmode_line);
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
11231 Qvertical_line = intern ("vertical-line");
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
11232 staticpro (&Qvertical_line);
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
11233 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
11234 staticpro (&Qvertical_scroll_bar);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
11235 Qmenu_bar = intern ("menu-bar");
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
11236 staticpro (&Qmenu_bar);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
11237
61163
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
11238 #ifdef HAVE_MOUSE
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
11239 Qmouse_fixup_help_message = intern ("mouse-fixup-help-message");
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
11240 staticpro (&Qmouse_fixup_help_message);
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
11241 #endif
d4aefe343943 (Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents: 60753
diff changeset
11242
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
11243 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
11244 staticpro (&Qabove_handle);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
11245 Qhandle = intern ("handle");
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
11246 staticpro (&Qhandle);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
11247 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
11248 staticpro (&Qbelow_handle);
15165
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
11249 Qup = intern ("up");
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
11250 staticpro (&Qup);
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
11251 Qdown = intern ("down");
aa3de03facd8 (Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 15129
diff changeset
11252 staticpro (&Qdown);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11253 Qtop = intern ("top");
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11254 staticpro (&Qtop);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11255 Qbottom = intern ("bottom");
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11256 staticpro (&Qbottom);
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11257 Qend_scroll = intern ("end-scroll");
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11258 staticpro (&Qend_scroll);
26788
5e97315b6f11 * keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26480
diff changeset
11259 Qratio = intern ("ratio");
5e97315b6f11 * keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 26480
diff changeset
11260 staticpro (&Qratio);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11261
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
11262 Qevent_kind = intern ("event-kind");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11263 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
11264 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
11265 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
11266 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
11267 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
11268 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
11269 staticpro (&Qmodifier_cache);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11270
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
11271 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
11272 staticpro (&Qrecompute_lucid_menubar);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
11273 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
11274 staticpro (&Qactivate_menubar_hook);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
11275
7487
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
11276 Qpolling_period = intern ("polling-period");
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
11277 staticpro (&Qpolling_period);
a7ff1a4b4e21 (syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents: 7447
diff changeset
11278
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11279 Qinput_method_function = intern ("input-method-function");
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11280 staticpro (&Qinput_method_function);
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11281
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11282 Qinput_method_exit_on_first_char = intern ("input-method-exit-on-first-char");
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11283 staticpro (&Qinput_method_exit_on_first_char);
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11284 Qinput_method_use_echo_area = intern ("input-method-use-echo-area");
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11285 staticpro (&Qinput_method_use_echo_area);
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11286
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11287 Fset (Qinput_method_exit_on_first_char, Qnil);
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11288 Fset (Qinput_method_use_echo_area, Qnil);
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11289
30681
eed7b9be8ad3 (syms_of_keyboard): Initialize last_point_position_buffer.
Ken Raeburn <raeburn@raeburn.org>
parents: 30558
diff changeset
11290 last_point_position_buffer = Qnil;
67820
a9cbddeec059 (last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 67664
diff changeset
11291 last_point_position_window = Qnil;
30681
eed7b9be8ad3 (syms_of_keyboard): Initialize last_point_position_buffer.
Ken Raeburn <raeburn@raeburn.org>
parents: 30558
diff changeset
11292
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11293 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11294 struct event_head *p;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11295
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11296 for (p = head_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11297 p < head_table + (sizeof (head_table) / sizeof (head_table[0]));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11298 p++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11299 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11300 *p->var = intern (p->name);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11301 staticpro (p->var);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11302 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
11303 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11304 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11305 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11306
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
11307 button_down_location = Fmake_vector (make_number (1), Qnil);
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
11308 staticpro (&button_down_location);
28479
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
11309 mouse_syms = Fmake_vector (make_number (1), Qnil);
5e8fd5aab7a7 (lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents: 28454
diff changeset
11310 staticpro (&mouse_syms);
51384
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
11311 wheel_syms = Fmake_vector (make_number (2), Qnil);
de51ce646828 (Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents: 51257
diff changeset
11312 staticpro (&wheel_syms);
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
11313
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
11314 {
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
11315 int i;
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
11316 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
11317
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
11318 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
11319 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
11320 if (modifier_names[i])
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11321 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
11322 staticpro (&modifier_symbols);
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
11323 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
11324
1262
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
11325 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
11326 staticpro (&recent_keys);
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
11327
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
11328 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
11329 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
11330
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11331 raw_keybuf = Fmake_vector (make_number (30), Qnil);
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11332 staticpro (&raw_keybuf);
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11333
4773
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
11334 Qextended_command_history = intern ("extended-command-history");
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
11335 Fset (Qextended_command_history, Qnil);
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
11336 staticpro (&Qextended_command_history);
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
11337
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
11338 accent_key_syms = Qnil;
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
11339 staticpro (&accent_key_syms);
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
11340
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11341 func_key_syms = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11342 staticpro (&func_key_syms);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11343
21888
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
11344 drag_n_drop_syms = Qnil;
6ce89105f98f (Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 21778
diff changeset
11345 staticpro (&drag_n_drop_syms);
19697
944b7470b2a2 (kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents: 19549
diff changeset
11346
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
11347 unread_switch_frame = Qnil;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
11348 staticpro (&unread_switch_frame);
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
11349
16229
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
11350 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
11351 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
11352
c7913b6ba8da (syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents: 16220
diff changeset
11353 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
11354 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
11355
23975
b0040d620df9 In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents: 23935
diff changeset
11356 menu_bar_one_keymap_changed_items = Qnil;
b0040d620df9 In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents: 23935
diff changeset
11357 staticpro (&menu_bar_one_keymap_changed_items);
b0040d620df9 In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents: 23935
diff changeset
11358
64173
9e2bb087ae33 (menu_bar_items): Don't GCPRO menu_bar_items_vector here.
Kim F. Storm <storm@cua.dk>
parents: 64084
diff changeset
11359 menu_bar_items_vector = Qnil;
9e2bb087ae33 (menu_bar_items): Don't GCPRO menu_bar_items_vector here.
Kim F. Storm <storm@cua.dk>
parents: 64084
diff changeset
11360 staticpro (&menu_bar_items_vector);
9e2bb087ae33 (menu_bar_items): Don't GCPRO menu_bar_items_vector here.
Kim F. Storm <storm@cua.dk>
parents: 64084
diff changeset
11361
76435
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
11362 help_form_saved_window_configs = Qnil;
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
11363 staticpro (&help_form_saved_window_configs);
f602ddf5430e (help_form_saved_window_configs): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 76401
diff changeset
11364
72445
30a779a4fc54 (Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents: 72402
diff changeset
11365 defsubr (&Scurrent_idle_time);
12150
64b16f71a15c (Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents: 12144
diff changeset
11366 defsubr (&Sevent_convert_list);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11367 defsubr (&Sread_key_sequence);
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
11368 defsubr (&Sread_key_sequence_vector);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11369 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
11370 #ifdef HAVE_MOUSE
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11371 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
11372 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11373 defsubr (&Sinput_pending_p);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11374 defsubr (&Scommand_execute);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11375 defsubr (&Srecent_keys);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11376 defsubr (&Sthis_command_keys);
21024
396f070a8011 Include syntax.h.
Richard M. Stallman <rms@gnu.org>
parents: 20783
diff changeset
11377 defsubr (&Sthis_command_keys_vector);
15129
e48968f04ea7 (Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15128
diff changeset
11378 defsubr (&Sthis_single_command_keys);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11379 defsubr (&Sthis_single_command_raw_keys);
12335
0ab97d00e336 (Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12309
diff changeset
11380 defsubr (&Sreset_this_command_lengths);
23439
72d75218d971 (Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents: 23418
diff changeset
11381 defsubr (&Sclear_this_command_keys);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11382 defsubr (&Ssuspend_emacs);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11383 defsubr (&Sabort_recursive_edit);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11384 defsubr (&Sexit_recursive_edit);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11385 defsubr (&Srecursion_depth);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11386 defsubr (&Stop_level);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11387 defsubr (&Sdiscard_input);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11388 defsubr (&Sopen_dribble_file);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11389 defsubr (&Sset_input_mode);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
11390 defsubr (&Scurrent_input_mode);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11391 defsubr (&Sexecute_extended_command);
55023
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
11392 defsubr (&Sposn_at_point);
47f04c0afbde (Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents: 54927
diff changeset
11393 defsubr (&Sposn_at_x_y);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11394
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11395 DEFVAR_LISP ("last-command-char", &last_command_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11396 doc: /* Last input event that was part of a command. */);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11397
8039
7cc73292df36 (syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents: 7999
diff changeset
11398 DEFVAR_LISP_NOPRO ("last-command-event", &last_command_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11399 doc: /* Last input event that was part of a command. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11400
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
11401 DEFVAR_LISP ("last-nonmenu-event", &last_nonmenu_event,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11402 doc: /* Last input event in a command, except for mouse menu events.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11403 Mouse menus give back keys that don't look like mouse events;
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11404 this variable holds the actual mouse event that led to the menu,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11405 so that you can determine whether the command was run by mouse or not. */);
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
11406
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11407 DEFVAR_LISP ("last-input-char", &last_input_char,
40548
1c539cb16416 (lucid-menu-bar-dirty-flag): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 40522
diff changeset
11408 doc: /* Last input event. */);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11409
8039
7cc73292df36 (syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents: 7999
diff changeset
11410 DEFVAR_LISP_NOPRO ("last-input-event", &last_input_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11411 doc: /* Last input event. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11412
7168
82bb839ac5c6 (Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents: 7098
diff changeset
11413 DEFVAR_LISP ("unread-command-events", &Vunread_command_events,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11414 doc: /* List of events to be read as the command input.
73463
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
11415 These events are processed first, before actual keyboard input.
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
11416 Events read from this list are not normally added to `this-command-keys',
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
11417 as they will already have been added once as they were read for the first time.
346f9b4afa15 (read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents: 73318
diff changeset
11418 An element of the form (t . EVENT) forces EVENT to be added to that list. */);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11419 Vunread_command_events = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11420
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11421 DEFVAR_INT ("unread-command-char", &unread_command_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11422 doc: /* If not -1, an object to be read as next command input event. */);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11423
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11424 DEFVAR_LISP ("unread-post-input-method-events", &Vunread_post_input_method_events,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11425 doc: /* List of events to be processed as input by input methods.
72463
c1f4fd769a94 (syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents: 72460
diff changeset
11426 These events are processed before `unread-command-events'
76401
eb5c346ae042 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 75434
diff changeset
11427 and actual keyboard input, but are not given to `input-method-function'. */);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11428 Vunread_post_input_method_events = Qnil;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11429
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11430 DEFVAR_LISP ("unread-input-method-events", &Vunread_input_method_events,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11431 doc: /* List of events to be processed as input by input methods.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11432 These events are processed after `unread-command-events', but
72463
c1f4fd769a94 (syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents: 72460
diff changeset
11433 before actual keyboard input.
c1f4fd769a94 (syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents: 72460
diff changeset
11434 If there's an active input method, the events are given to
c1f4fd769a94 (syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents: 72460
diff changeset
11435 `input-method-function'. */);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11436 Vunread_input_method_events = Qnil;
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11437
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11438 DEFVAR_LISP ("meta-prefix-char", &meta_prefix_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11439 doc: /* Meta-prefix character code.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11440 Meta-foo as command input turns into this character followed by foo. */);
9272
0a0998c4d4b6 (command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents: 9228
diff changeset
11441 XSETINT (meta_prefix_char, 033);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11442
12160
14d4e014f55f (last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents: 12150
diff changeset
11443 DEFVAR_KBOARD ("last-command", Vlast_command,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11444 doc: /* The last command executed.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11445 Normally a symbol with a function definition, but can be whatever was found
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11446 in the keymap, or whatever the variable `this-command' was set to by that
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11447 command.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11448
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11449 The value `mode-exit' is special; it means that the previous command
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11450 read an event that told it to exit, and it did so and unread that event.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11451 In other words, the present command is the event that made the previous
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11452 command exit.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11453
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11454 The value `kill-region' is special; it means that the previous command
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11455 was a kill command. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11456
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
11457 DEFVAR_KBOARD ("real-last-command", Vreal_last_command,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11458 doc: /* Same as `last-command', but never altered by Lisp code. */);
22384
9ec0714b3e0b (cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents: 22335
diff changeset
11459
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11460 DEFVAR_LISP ("this-command", &Vthis_command,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11461 doc: /* The command now being executed.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11462 The command can set this variable; whatever is put here
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11463 will be in `last-command' during the following command. */);
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11464 Vthis_command = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11465
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
11466 DEFVAR_LISP ("this-original-command", &Vthis_original_command,
49581
1da238f2a17d (syms_of_keyboard) <this-original-command>: Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 49549
diff changeset
11467 doc: /* The command bound to the current key sequence before remapping.
1da238f2a17d (syms_of_keyboard) <this-original-command>: Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 49549
diff changeset
11468 It equals `this-command' if the original command was not remapped through
1da238f2a17d (syms_of_keyboard) <this-original-command>: Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 49549
diff changeset
11469 any of the active keymaps. Otherwise, the value of `this-command' is the
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49593
diff changeset
11470 result of looking up the original command in the active keymaps. */);
43154
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
11471 Vthis_original_command = Qnil;
241310b1046a (Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43149
diff changeset
11472
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11473 DEFVAR_INT ("auto-save-interval", &auto_save_interval,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11474 doc: /* *Number of input events between auto-saves.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11475 Zero means disable autosaving due to number of characters typed. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11476 auto_save_interval = 300;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11477
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11478 DEFVAR_LISP ("auto-save-timeout", &Vauto_save_timeout,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11479 doc: /* *Number of seconds idle time before auto-save.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11480 Zero or nil means disable auto-saving due to idleness.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11481 After auto-saving due to this many seconds of idle time,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11482 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
11483 XSETFASTINT (Vauto_save_timeout, 30);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11484
27766
e93e898c9e70 (echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents: 27668
diff changeset
11485 DEFVAR_LISP ("echo-keystrokes", &Vecho_keystrokes,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11486 doc: /* *Nonzero means echo unfinished commands after this many seconds of pause.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11487 The value may be integer or floating point. */);
27766
e93e898c9e70 (echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents: 27668
diff changeset
11488 Vecho_keystrokes = make_number (1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11489
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11490 DEFVAR_INT ("polling-period", &polling_period,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11491 doc: /* *Interval between polling for input during Lisp execution.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11492 The reason for polling is to make C-g work to stop a running program.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11493 Polling is needed only when using X windows and SIGIO does not work.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11494 Polling is automatically disabled in all other cases. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11495 polling_period = 2;
10985
d917a965cb47 (unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents: 10984
diff changeset
11496
3993
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
11497 DEFVAR_LISP ("double-click-time", &Vdouble_click_time,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11498 doc: /* *Maximum time between mouse clicks to make a double-click.
74754
3db81fa14de8 (syms_of_keyboard) <double-click-time>: Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 74748
diff changeset
11499 Measured in milliseconds. The value nil means disable double-click
3db81fa14de8 (syms_of_keyboard) <double-click-time>: Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 74748
diff changeset
11500 recognition; t means double-clicks have no time limit and are detected
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11501 by position only. */);
3994
df443e5f391e Fix initialization of Vdouble_click_time in syms_of_keyboard.
Jim Blandy <jimb@redhat.com>
parents: 3993
diff changeset
11502 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
11503
38602
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
11504 DEFVAR_INT ("double-click-fuzz", &double_click_fuzz,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11505 doc: /* *Maximum mouse movement between clicks to make a double-click.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11506 On window-system frames, value is the number of pixels the mouse may have
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11507 moved horizontally or vertically between two clicks to make a double-click.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11508 On non window-system frames, value is interpreted in units of 1/8 characters
42064
c4fada8ce869 (syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 41824
diff changeset
11509 instead of pixels.
c4fada8ce869 (syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 41824
diff changeset
11510
c4fada8ce869 (syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 41824
diff changeset
11511 This variable is also the threshold for motion of the mouse
c4fada8ce869 (syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 41824
diff changeset
11512 to count as a drag. */);
38602
8c9cec90d787 (abs): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 38456
diff changeset
11513 double_click_fuzz = 3;
49549
99be3a1e2589 Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents: 49408
diff changeset
11514
9396
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
11515 DEFVAR_BOOL ("inhibit-local-menu-bar-menus", &inhibit_local_menu_bar_menus,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11516 doc: /* *Non-nil means inhibit local map menu bar menus. */);
9396
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
11517 inhibit_local_menu_bar_menus = 0;
c5d9742c47b3 (inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9311
diff changeset
11518
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11519 DEFVAR_INT ("num-input-keys", &num_input_keys,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11520 doc: /* Number of complete key sequences read as input so far.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11521 This includes key sequences read from keyboard macros.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11522 The number is effectively the number of interactive command invocations. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11523 num_input_keys = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11524
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
11525 DEFVAR_INT ("num-nonmacro-input-events", &num_nonmacro_input_events,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11526 doc: /* Number of input events read from the keyboard so far.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11527 This does not include events generated by keyboard macros. */);
17873
f5778138efc7 (num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents: 17870
diff changeset
11528 num_nonmacro_input_events = 0;
17870
abc5e3a73109 (Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents: 17738
diff changeset
11529
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
11530 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11531 doc: /* The frame in which the most recently read event occurred.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11532 If the last event came from a keyboard macro, this is set to `macro'. */);
10861
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
11533 Vlast_event_frame = Qnil;
655e3daa560c (cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents: 10844
diff changeset
11534
17870
abc5e3a73109 (Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents: 17738
diff changeset
11535 /* This variable is set up in sysdep.c. */
abc5e3a73109 (Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents: 17738
diff changeset
11536 DEFVAR_LISP ("tty-erase-char", &Vtty_erase_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11537 doc: /* The ERASE character as set by the user with stty. */);
17870
abc5e3a73109 (Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents: 17738
diff changeset
11538
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
11539 DEFVAR_LISP ("help-char", &Vhelp_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11540 doc: /* Character to recognize as meaning Help.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11541 When it is read, do `(eval help-form)', and display result if it's a string.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11542 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
11543 XSETINT (Vhelp_char, Ctl ('H'));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11544
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
11545 DEFVAR_LISP ("help-event-list", &Vhelp_event_list,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11546 doc: /* List of input events to recognize as meaning Help.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11547 These work just like the value of `help-char' (see that). */);
12144
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
11548 Vhelp_event_list = Qnil;
12720a817d83 (Vhelp_event_list): New var.
Karl Heuer <kwzh@gnu.org>
parents: 12142
diff changeset
11549
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11550 DEFVAR_LISP ("help-form", &Vhelp_form,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11551 doc: /* Form to execute when character `help-char' is read.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11552 If the form returns a string, that string is displayed.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11553 If `help-form' is nil, the help char is not recognized. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11554 Vhelp_form = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11555
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
11556 DEFVAR_LISP ("prefix-help-command", &Vprefix_help_command,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11557 doc: /* Command to run when `help-char' character follows a prefix key.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11558 This command is used only when there is no actual binding
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11559 for that character after that prefix key. */);
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
11560 Vprefix_help_command = Qnil;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
11561
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11562 DEFVAR_LISP ("top-level", &Vtop_level,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11563 doc: /* Form to evaluate when Emacs starts up.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11564 Useful to set before you dump a modified Emacs. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11565 Vtop_level = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11566
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11567 DEFVAR_LISP ("keyboard-translate-table", &Vkeyboard_translate_table,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11568 doc: /* Translate table for keyboard input, or nil.
56367
2616c5cc9611 (syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56173
diff changeset
11569 If non-nil, the value should be a char-table. Each character read
2616c5cc9611 (syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56173
diff changeset
11570 from the keyboard is looked up in this char-table. If the value found
2616c5cc9611 (syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56173
diff changeset
11571 there is non-nil, then it is used instead of the actual input character.
2616c5cc9611 (syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56173
diff changeset
11572
2616c5cc9611 (syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56173
diff changeset
11573 The value can also be a string or vector, but this is considered obsolete.
2616c5cc9611 (syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56173
diff changeset
11574 If it is a string or vector of length N, character codes N and up are left
2616c5cc9611 (syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56173
diff changeset
11575 untranslated. In a vector, an element which is nil means "no translation".
48229
5d4678fa4feb (command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents: 48146
diff changeset
11576
5d4678fa4feb (command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents: 48146
diff changeset
11577 This is applied to the characters supplied to input methods, not their
5d4678fa4feb (command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents: 48146
diff changeset
11578 output. See also `translation-table-for-input'. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11579 Vkeyboard_translate_table = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11580
6101
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
11581 DEFVAR_BOOL ("cannot-suspend", &cannot_suspend,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11582 doc: /* Non-nil means to always spawn a subshell instead of suspending.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11583 \(Even if the operating system has support for stopping a process.\) */);
6101
9b32ddce536b (Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents: 6096
diff changeset
11584 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
11585
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11586 DEFVAR_BOOL ("menu-prompting", &menu_prompting,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11587 doc: /* Non-nil means prompt with menus when appropriate.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11588 This is done when reading from a keymap that has a prompt string,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11589 for elements that have prompt strings.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11590 The menu is displayed on the screen
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11591 if X menus were enabled at configuration
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11592 time and the previous event was a mouse click prefix key.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11593 Otherwise, menu prompting uses the echo area. */);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11594 menu_prompting = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11595
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11596 DEFVAR_LISP ("menu-prompt-more-char", &menu_prompt_more_char,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11597 doc: /* Character to see next line of menu prompt.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11598 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
11599 XSETINT (menu_prompt_more_char, ' ');
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
11600
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
11601 DEFVAR_INT ("extra-keyboard-modifiers", &extra_keyboard_modifiers,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11602 doc: /* A mask of additional modifier keys to use with every keyboard character.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11603 Emacs applies the modifiers of the character stored here to each keyboard
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11604 character it reads. For example, after evaluating the expression
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11605 (setq extra-keyboard-modifiers ?\\C-x)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11606 all input characters will have the control modifier applied to them.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11607
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11608 Note that the character ?\\C-@, equivalent to the integer zero, does
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11609 not count as a control character; rather, it counts as a character
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11610 with no modifiers; thus, setting `extra-keyboard-modifiers' to zero
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11611 cancels any modification. */);
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
11612 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
11613
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11614 DEFVAR_LISP ("deactivate-mark", &Vdeactivate_mark,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11615 doc: /* If an editing command sets this to t, deactivate the mark afterward.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11616 The command loop sets this to nil before each command,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11617 and tests the value when the command returns.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11618 Buffer modification stores t in this variable. */);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11619 Vdeactivate_mark = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11620
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
11621 DEFVAR_LISP ("command-hook-internal", &Vcommand_hook_internal,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11622 doc: /* Temporary storage of pre-command-hook or post-command-hook. */);
5894
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
11623 Vcommand_hook_internal = Qnil;
89c310941fcb (syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents: 5889
diff changeset
11624
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11625 DEFVAR_LISP ("pre-command-hook", &Vpre_command_hook,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11626 doc: /* Normal hook run before each command is executed.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11627 If an unhandled error happens in running this hook,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11628 the hook value is set to nil, since otherwise the error
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11629 might happen repeatedly and make Emacs nonfunctional. */);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11630 Vpre_command_hook = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11631
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11632 DEFVAR_LISP ("post-command-hook", &Vpost_command_hook,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11633 doc: /* Normal hook run after each command is executed.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11634 If an unhandled error happens in running this hook,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11635 the hook value is set to nil, since otherwise the error
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11636 might happen repeatedly and make Emacs nonfunctional. */);
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
11637 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
11638
40733
2b78c1af4afa (echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
11639 #if 0
2b78c1af4afa (echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
11640 DEFVAR_LISP ("echo-area-clear-hook", ...,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11641 doc: /* Normal hook run when clearing the echo area. */);
40733
2b78c1af4afa (echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
11642 #endif
2b78c1af4afa (echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
11643 Qecho_area_clear_hook = intern ("echo-area-clear-hook");
64614
482ea9d640ec (read_char): Test gc_cons_threshold.
Richard M. Stallman <rms@gnu.org>
parents: 64270
diff changeset
11644 staticpro (&Qecho_area_clear_hook);
40733
2b78c1af4afa (echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
11645 SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil);
16834
ec390b34ddc0 (command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents: 16750
diff changeset
11646
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
11647 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,
40548
1c539cb16416 (lucid-menu-bar-dirty-flag): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 40522
diff changeset
11648 doc: /* Non-nil means menu bar, specified Lucid style, needs to be recomputed. */);
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
11649 Vlucid_menu_bar_dirty_flag = Qnil;
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
11650
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
11651 DEFVAR_LISP ("menu-bar-final-items", &Vmenu_bar_final_items,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11652 doc: /* List of menu bar items to move to the end of the menu bar.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11653 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
11654 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
11655
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
11656 DEFVAR_KBOARD ("overriding-terminal-local-map",
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
11657 Voverriding_terminal_local_map,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11658 doc: /* Per-terminal keymap that overrides all other local keymaps.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11659 If this variable is non-nil, it is used as a keymap instead of the
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11660 buffer's local map, and the minor mode keymaps and text property keymaps.
59520
864cb3ebda07 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 59078
diff changeset
11661 It also replaces `overriding-local-map'.
864cb3ebda07 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 59078
diff changeset
11662
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11663 This variable is intended to let commands such as `universal-argument'
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11664 set up a different keymap for reading the next command. */);
12264
93010bff5b56 (init_kboard): Initialize it.
Karl Heuer <kwzh@gnu.org>
parents: 12227
diff changeset
11665
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
11666 DEFVAR_LISP ("overriding-local-map", &Voverriding_local_map,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11667 doc: /* Keymap that overrides all other local keymaps.
59520
864cb3ebda07 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 59078
diff changeset
11668 If this variable is non-nil, it is used as a keymap--replacing the
864cb3ebda07 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 59078
diff changeset
11669 buffer's local map, the minor mode keymaps, and char property keymaps. */);
5614
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
11670 Voverriding_local_map = Qnil;
16074afb03df (Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 5588
diff changeset
11671
9607
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
11672 DEFVAR_LISP ("overriding-local-map-menu-flag", &Voverriding_local_map_menu_flag,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11673 doc: /* Non-nil means `overriding-local-map' applies to the menu bar.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11674 Otherwise, the menu bar continues to reflect the buffer's local map
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11675 and the minor mode maps regardless of `overriding-local-map'. */);
9607
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
11676 Voverriding_local_map_menu_flag = Qnil;
081040eb1863 (Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
11677
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
11678 DEFVAR_LISP ("special-event-map", &Vspecial_event_map,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11679 doc: /* Keymap defining bindings for special events to execute at low level. */);
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
11680 Vspecial_event_map = Fcons (intern ("keymap"), Qnil);
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
11681
9881
02cd4dde69e1 (tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents: 9864
diff changeset
11682 DEFVAR_LISP ("track-mouse", &do_mouse_tracking,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11683 doc: /* *Non-nil means generate motion events for mouse motion. */);
5513
d7770758acfd (interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents: 5394
diff changeset
11684
11543
317e5825008b (Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents: 11540
diff changeset
11685 DEFVAR_KBOARD ("system-key-alist", Vsystem_key_alist,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11686 doc: /* Alist of system-specific X windows key symbols.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11687 Each element should have the form (N . SYMBOL) where N is the
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11688 numeric keysym code (sans the \"system-specific\" bit 1<<28)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11689 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
11690
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
11691 DEFVAR_LISP ("deferred-action-list", &Vdeferred_action_list,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11692 doc: /* List of deferred actions to be performed at a later time.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11693 The precise format isn't relevant here; we just check whether it is nil. */);
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
11694 Vdeferred_action_list = Qnil;
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
11695
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
11696 DEFVAR_LISP ("deferred-action-function", &Vdeferred_action_function,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11697 doc: /* Function to call to handle deferred actions, after each command.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11698 This function is called with no arguments after each command
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11699 whenever `deferred-action-list' is non-nil. */);
8302
4e5626d0b962 (Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 8247
diff changeset
11700 Vdeferred_action_function = Qnil;
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
11701
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
11702 DEFVAR_LISP ("suggest-key-bindings", &Vsuggest_key_bindings,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11703 doc: /* *Non-nil means show the equivalent key-binding when M-x command has one.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11704 The value can be a length of time to show the message for.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11705 If the value is non-nil and not a number, we wait 2 seconds. */);
13108
04466bd88580 (Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13082
diff changeset
11706 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
11707
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
11708 DEFVAR_LISP ("timer-list", &Vtimer_list,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11709 doc: /* List of active absolute time timers in order of increasing time. */);
14406
7d998103f266 (Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents: 14219
diff changeset
11710 Vtimer_list = Qnil;
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
11711
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
11712 DEFVAR_LISP ("timer-idle-list", &Vtimer_idle_list,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11713 doc: /* List of active idle-time timers in order of increasing time. */);
14612
0019d219990c (swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents: 14592
diff changeset
11714 Vtimer_idle_list = Qnil;
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11715
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11716 DEFVAR_LISP ("input-method-function", &Vinput_method_function,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11717 doc: /* If non-nil, the function that implements the current input method.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11718 It's called with one argument, a printing character that was just read.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11719 \(That means a character with code 040...0176.)
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11720 Typically this function uses `read-event' to read additional events.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11721 When it does so, it should first bind `input-method-function' to nil
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11722 so it will not be called recursively.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11723
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11724 The function should return a list of zero or more events
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11725 to be used as input. If it wants to put back some events
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11726 to be reconsidered, separately, by the input method,
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11727 it can add them to the beginning of `unread-command-events'.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11728
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11729 The input method function can find in `input-method-previous-method'
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11730 the previous echo area message.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11731
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11732 The input method function should refer to the variables
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11733 `input-method-use-echo-area' and `input-method-exit-on-first-char'
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11734 for guidance on what to do. */);
22833
a3fe2af7cefb (Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 22551
diff changeset
11735 Vinput_method_function = Qnil;
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11736
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11737 DEFVAR_LISP ("input-method-previous-message",
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11738 &Vinput_method_previous_message,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11739 doc: /* When `input-method-function' is called, hold the previous echo area message.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11740 This variable exists because `read-event' clears the echo area
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11741 before running the input method. It is nil if there was no message. */);
22945
58a8427745ec (Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents: 22835
diff changeset
11742 Vinput_method_previous_message = Qnil;
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11743
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11744 DEFVAR_LISP ("show-help-function", &Vshow_help_function,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11745 doc: /* If non-nil, the function that implements the display of help.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11746 It's called with one argument, the help string to display. */);
25022
3ea84b15b5e6 (read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents: 24889
diff changeset
11747 Vshow_help_function = Qnil;
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
11748
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
11749 DEFVAR_LISP ("disable-point-adjustment", &Vdisable_point_adjustment,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11750 doc: /* If non-nil, suppress point adjustment after executing a command.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11751
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11752 After a command is executed, if point is moved into a region that has
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11753 special properties (e.g. composition, display), we adjust point to
56572
b427147a826a (syms_of_keyboard) <disable-point-adjustment>: Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56477
diff changeset
11754 the boundary of the region. But, when a command sets this variable to
b427147a826a (syms_of_keyboard) <disable-point-adjustment>: Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56477
diff changeset
11755 non-nil, we suppress the point adjustment.
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11756
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11757 This variable is set to nil before reading a command, and is checked
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11758 just after executing the command. */);
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
11759 Vdisable_point_adjustment = Qnil;
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
11760
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
11761 DEFVAR_LISP ("global-disable-point-adjustment",
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
11762 &Vglobal_disable_point_adjustment,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11763 doc: /* *If non-nil, always suppress point adjustment.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11764
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11765 The default value is nil, in which case, point adjustment are
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11766 suppressed only after special commands that set
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11767 `disable-point-adjustment' (which see) to non-nil. */);
26863
9fa7ffa9b04d (Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26788
diff changeset
11768 Vglobal_disable_point_adjustment = Qnil;
32140
6c61e0dbf542 (update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31995
diff changeset
11769
33724
b04964da2e33 (Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents: 33445
diff changeset
11770 DEFVAR_LISP ("minibuffer-message-timeout", &Vminibuffer_message_timeout,
40416
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11771 doc: /* *How long to display an echo-area message when the minibuffer is active.
ad876851e7ce Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40142
diff changeset
11772 If the value is not a number, such messages don't time out. */);
33724
b04964da2e33 (Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents: 33445
diff changeset
11773 Vminibuffer_message_timeout = make_number (2);
58965
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
11774
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
11775 DEFVAR_LISP ("throw-on-input", &Vthrow_on_input,
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
11776 doc: /* If non-nil, any keyboard input throws to this symbol.
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
11777 The value of that variable is passed to `quit-flag' and later causes a
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
11778 peculiar kind of quitting. */);
47204c294c8d (Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents: 58904
diff changeset
11779 Vthrow_on_input = Qnil;
68792
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11780
71947
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11781 DEFVAR_LISP ("command-error-function", &Vcommand_error_function,
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11782 doc: /* If non-nil, function to output error messages.
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11783 The arguments are the error data, a list of the form
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11784 (SIGNALED-CONDITIONS . SIGNAL-DATA)
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11785 such as just as `condition-case' would bind its variable to,
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11786 the context (a string which normally goes at the start of the message),
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11787 and the Lisp function within which the error was signaled. */);
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11788 Vcommand_error_function = Qnil;
4bc25e59ebd1 (Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 71835
diff changeset
11789
68792
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11790 DEFVAR_LISP ("enable-disabled-menus-and-buttons",
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11791 &Venable_disabled_menus_and_buttons,
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11792 doc: /* If non-nil, don't ignore events produced by disabled menu items and tool-bar.
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11793
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11794 Help functions bind this to allow help on disabled menu items
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11795 and tool-bar buttons. */);
041aa462ad58 (Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 68758
diff changeset
11796 Venable_disabled_menus_and_buttons = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11797 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11798
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21244
diff changeset
11799 void
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11800 keys_of_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11801 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11802 initial_define_key (global_map, Ctl ('Z'), "suspend-emacs");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11803 initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11804 initial_define_key (meta_map, Ctl ('C'), "exit-recursive-edit");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11805 initial_define_key (global_map, Ctl (']'), "abort-recursive-edit");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11806 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
11807
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
11808 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
11809 "handle-delete-frame");
60753
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11810 /* Here we used to use `ignore-event' which would simple set prefix-arg to
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11811 current-prefix-arg, as is done in `handle-switch-frame'.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11812 But `handle-switch-frame is not run from the special-map.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11813 Commands from that map are run in a special way that automatically
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11814 preserves the prefix-arg. Restoring the prefix arg here is not just
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11815 redundant but harmful:
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11816 - C-u C-x v =
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11817 - current-prefix-arg is set to non-nil, prefix-arg is set to nil.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11818 - after the first prompt, the exit-minibuffer-hook is run which may
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11819 iconify a frame and thus push a `iconify-frame' event.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11820 - after running exit-minibuffer-hook, current-prefix-arg is
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11821 restored to the non-nil value it had before the prompt.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11822 - we enter the second prompt.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11823 current-prefix-arg is non-nil, prefix-arg is nil.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11824 - before running the first real event, we run the special iconify-frame
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11825 event, but we pass the `special' arg to execute-command so
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11826 current-prefix-arg and prefix-arg are left untouched.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11827 - here we foolishly copy the non-nil current-prefix-arg to prefix-arg.
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11828 - the next key event will have a spuriously non-nil current-prefix-arg. */
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
11829 initial_define_lispy_key (Vspecial_event_map, "iconify-frame",
60753
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11830 "ignore");
12469
bec888e46e6a (Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12342
diff changeset
11831 initial_define_lispy_key (Vspecial_event_map, "make-frame-visible",
60753
bbeddd423eb1 (keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60653
diff changeset
11832 "ignore");
50556
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
11833 /* Handling it at such a low-level causes read_key_sequence to get
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
11834 * confused because it doesn't realize that the current_buffer was
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
11835 * changed by read_char.
54087
5a946bc3433a Fix whitespace.
Kim F. Storm <storm@cua.dk>
parents: 54086
diff changeset
11836 *
50556
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
11837 * initial_define_lispy_key (Vspecial_event_map, "select-window",
34fbfb59283f (kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50301
diff changeset
11838 * "handle-select-window"); */
43814
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
11839 initial_define_lispy_key (Vspecial_event_map, "save-session",
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
11840 "handle-save-session");
8090818ccd53 Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43785
diff changeset
11841 }
51577
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11842
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11843 /* Mark the pointers in the kboard objects.
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11844 Called by the Fgarbage_collector. */
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11845 void
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11846 mark_kboards ()
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11847 {
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11848 KBOARD *kb;
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11849 Lisp_Object *p;
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11850 for (kb = all_kboards; kb; kb = kb->next_kboard)
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11851 {
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11852 if (kb->kbd_macro_buffer)
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11853 for (p = kb->kbd_macro_buffer; p < kb->kbd_macro_ptr; p++)
51767
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11854 mark_object (*p);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11855 mark_object (kb->Voverriding_terminal_local_map);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11856 mark_object (kb->Vlast_command);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11857 mark_object (kb->Vreal_last_command);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11858 mark_object (kb->Vprefix_arg);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11859 mark_object (kb->Vlast_prefix_arg);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11860 mark_object (kb->kbd_queue);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11861 mark_object (kb->defining_kbd_macro);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11862 mark_object (kb->Vlast_kbd_macro);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11863 mark_object (kb->Vsystem_key_alist);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11864 mark_object (kb->system_key_syms);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11865 mark_object (kb->Vdefault_minibuffer_frame);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11866 mark_object (kb->echo_string);
51577
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11867 }
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11868 {
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11869 struct input_event *event;
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11870 for (event = kbd_fetch_ptr; event != kbd_store_ptr; event++)
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11871 {
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11872 if (event == kbd_buffer + KBD_BUFFER_SIZE)
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11873 event = kbd_buffer;
57950
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
11874 if (event->kind != SELECTION_REQUEST_EVENT
c8eda2a302f0 (kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents: 57410
diff changeset
11875 && event->kind != SELECTION_CLEAR_EVENT)
55575
a71808c780ee (mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents: 55023
diff changeset
11876 {
a71808c780ee (mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents: 55023
diff changeset
11877 mark_object (event->x);
a71808c780ee (mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents: 55023
diff changeset
11878 mark_object (event->y);
a71808c780ee (mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents: 55023
diff changeset
11879 }
51767
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11880 mark_object (event->frame_or_window);
327b4f3daf30 (mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51635
diff changeset
11881 mark_object (event->arg);
51577
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11882 }
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11883 }
f624d43a48fb (mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51465
diff changeset
11884 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51767
diff changeset
11885
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51767
diff changeset
11886 /* arch-tag: 774e34d7-6d31-42f3-8397-e079a4e4c9ca
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51767
diff changeset
11887 (do not change this comment) */