annotate src/keymap.c @ 20892:18f3cb26243f before-miles-orphaned-changes gcc-2_8_1-980401 gcc-2_8_1-980407 gcc-2_8_1-980412 gcc-2_8_1-980413 gcc-2_8_1-RELEASE gcc_2_8_1-980315 libc-980214 libc-980215 libc-980216 libc-980217 libc-980218 libc-980219 libc-980220 libc-980221 libc-980222 libc-980223 libc-980224 libc-980225 libc-980226 libc-980227 libc-980228 libc-980301 libc-980302 libc-980303 libc-980304 libc-980306 libc-980307 libc-980308 libc-980309 libc-980310 libc-980311 libc-980312 libc-980313 libc-980314 libc-980315 libc-980316 libc-980317 libc-980318 libc-980319 libc-980320 libc-980321 libc-980322 libc-980323 libc-980324 libc-980325 libc-980326 libc-980327 libc-980328 libc-980329 libc-980330 libc-980331 libc-980401 libc-980402 libc-980403 libc-980404 libc-980405 libc-980406 libc-980407 libc-980408 libc-980409 libc-980410 libc-980411 libc-980412 libc-980413 libc-980414 libc-980428 libc-980429 libc-980430 libc-980501 libc-980502 libc-980503 libc-980504 libc-980505 libc-980506 libc-980507 libc-980508 libc-980509 libc-980510 libc-980512 libc-980513 libc-980514 libc-980515 libc-980516 libc-980517 libc-980518 libc-980519 libc-980520 libc-980521 libc-980522 libc-980523 libc-980524 libc-980525 libc-980526 libc-980527 libc-980528 libc-980529 libc-980530 libc-980531 libc-980601 libc-980602 libc-980603 libc-980604 libc-980605 libc-980606 libc-980607 libc-980608 libc-980609 libc-980610 libc-980611 libc-980612 libc-980613

Add PentiumII (i786). Add '7' to all i[3456] entries. Add AMD and Cyrix names for P5 and P6.
author Richard Kenner <kenner@gnu.org>
date Fri, 13 Feb 1998 12:16:46 +0000
parents 4aeabf3b8f98
children 31bd04a792c2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Manipulation of keymaps
20708
ed9ed828415e Update copyright year.
Richard M. Stallman <rms@gnu.org>
parents: 20644
diff changeset
2 Copyright (C) 1985, 86,87,88,93,94,95,98 Free Software Foundation, Inc.
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
647
529171c8b71c entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 517
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14129
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14129
diff changeset
19 Boston, MA 02111-1307, USA. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4575
diff changeset
22 #include <config.h>
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 #include <stdio.h>
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #undef NULL
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #include "lisp.h"
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #include "commands.h"
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include "buffer.h"
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
28 #include "charset.h"
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
29 #include "keyboard.h"
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
30 #include "termhooks.h"
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2358
diff changeset
31 #include "blockinput.h"
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
32 #include "puresize.h"
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 #define min(a, b) ((a) < (b) ? (a) : (b))
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
36 /* The number of elements in keymap vectors. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 #define DENSE_TABLE_SIZE (0200)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 /* Actually allocate storage for these variables */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 Lisp_Object current_global_map; /* Current global keymap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 Lisp_Object global_map; /* default global key bindings */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 Lisp_Object meta_map; /* The keymap used for globally bound
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 ESC-prefixed default commands */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 Lisp_Object control_x_map; /* The keymap used for globally bound
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 C-x-prefixed default commands */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 /* was MinibufLocalMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 Lisp_Object Vminibuffer_local_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 /* The keymap used by the minibuf for local
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 bindings when spaces are allowed in the
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 minibuf */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 /* was MinibufLocalNSMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 Lisp_Object Vminibuffer_local_ns_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 /* The keymap used by the minibuf for local
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 bindings when spaces are not encouraged
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 in the minibuf */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 /* keymap used for minibuffers when doing completion */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 /* was MinibufLocalCompletionMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 Lisp_Object Vminibuffer_local_completion_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 /* keymap used for minibuffers when doing completion and require a match */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 /* was MinibufLocalMustMatchMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 Lisp_Object Vminibuffer_local_must_match_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
71 /* Alist of minor mode variables and keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
72 Lisp_Object Vminor_mode_map_alist;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
73
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
74 /* Alist of major-mode-specific overrides for
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
75 minor mode variables and keymaps. */
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
76 Lisp_Object Vminor_mode_overriding_map_alist;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
77
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
78 /* Keymap mapping ASCII function key sequences onto their preferred forms.
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
79 Initialized by the terminal-specific lisp files. See DEFVAR for more
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
80 documentation. */
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
81 Lisp_Object Vfunction_key_map;
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
82
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
83 /* Keymap mapping ASCII function key sequences onto their preferred forms. */
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
84 Lisp_Object Vkey_translation_map;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
85
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
86 /* A list of all commands given new bindings since a certain time
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
87 when nil was stored here.
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
88 This is used to speed up recomputation of menu key equivalents
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
89 when Emacs starts up. t means don't record anything here. */
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
90 Lisp_Object Vdefine_key_rebound_commands;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
91
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
92 Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93
2886
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
94 /* A char with the CHAR_META bit set in a vector or the 0200 bit set
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
95 in a string key sequence is equivalent to prefixing with this
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
96 character. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 extern Lisp_Object meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
99 extern Lisp_Object Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
100
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
101 static Lisp_Object define_as_prefix ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 static Lisp_Object describe_buffer_bindings ();
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
103 static void describe_command (), describe_translation ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 static void describe_map ();
17832
0cbd45e72b2d Declare Fcopy_keymap as Lisp_Object in advance to
Kenichi Handa <handa@m17n.org>
parents: 17795
diff changeset
105 Lisp_Object Fcopy_keymap ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
107 /* Keymap object support - constructors and predicates. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
108
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
109 DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 "Construct and return a new keymap, of the form (keymap VECTOR . ALIST).\n\
2790
cf431814ce6a (access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents: 2755
diff changeset
111 VECTOR is a vector which holds the bindings for the ASCII\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 characters. ALIST is an assoc-list which holds bindings for function keys,\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 mouse events, and any other things that appear in the input stream.\n\
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
114 All entries in it are initially nil, meaning \"command undefined\".\n\n\
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
115 The optional arg STRING supplies a menu name for the keymap\n\
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
116 in case you use it as a menu with `x-popup-menu'.")
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
117 (string)
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
118 Lisp_Object string;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 {
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
120 Lisp_Object tail;
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
121 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
122 tail = Fcons (string, Qnil);
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
123 else
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
124 tail = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 return Fcons (Qkeymap,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
126 Fcons (Fmake_char_table (Qkeymap, Qnil), tail));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
129 DEFUN ("make-sparse-keymap", Fmake_sparse_keymap, Smake_sparse_keymap, 0, 1, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 "Construct and return a new sparse-keymap list.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 Its car is `keymap' and its cdr is an alist of (CHAR . DEFINITION),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 which binds the character CHAR to DEFINITION, or (SYMBOL . DEFINITION),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 which binds the function key or mouse event SYMBOL to DEFINITION.\n\
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
134 Initially the alist is nil.\n\n\
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
135 The optional arg STRING supplies a menu name for the keymap\n\
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
136 in case you use it as a menu with `x-popup-menu'.")
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
137 (string)
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
138 Lisp_Object string;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 {
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
140 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
141 return Fcons (Qkeymap, Fcons (string, Qnil));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 return Fcons (Qkeymap, Qnil);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 /* This function is used for installing the standard key bindings
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 at initialization time.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 For example:
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
150 initial_define_key (control_x_map, Ctl('X'), "exchange-point-and-mark"); */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 initial_define_key (keymap, key, defname)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 int key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 char *defname;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 store_in_keymap (keymap, make_number (key), intern (defname));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
161 void
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
162 initial_define_lispy_key (keymap, keyname, defname)
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
163 Lisp_Object keymap;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
164 char *keyname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
165 char *defname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
166 {
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
167 store_in_keymap (keymap, intern (keyname), intern (defname));
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
168 }
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
169
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 /* Define character fromchar in map frommap as an alias for character
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 tochar in map tomap. Subsequent redefinitions of the latter WILL
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 affect the former. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 #if 0
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 synkey (frommap, fromchar, tomap, tochar)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 struct Lisp_Vector *frommap, *tomap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 int fromchar, tochar;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 Lisp_Object v, c;
9273
129621997564 (synkey, Fdescribe_bindings, describe_command): Use new accessor macros
Karl Heuer <kwzh@gnu.org>
parents: 9123
diff changeset
181 XSETVECTOR (v, tomap);
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
182 XSETFASTINT (c, tochar);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 frommap->contents[fromchar] = Fcons (v, c);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 #endif /* 0 */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 DEFUN ("keymapp", Fkeymapp, Skeymapp, 1, 1, 0,
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
188 "Return t if OBJECT is a keymap.\n\
362
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
189 \n\
2790
cf431814ce6a (access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents: 2755
diff changeset
190 A keymap is a list (keymap . ALIST),\n\
6457
13aa19ca4b4f (Fkeymapp): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6456
diff changeset
191 or a symbol whose function definition is itself a keymap.\n\
362
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
192 ALIST elements look like (CHAR . DEFN) or (SYMBOL . DEFN);\n\
2790
cf431814ce6a (access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents: 2755
diff changeset
193 a vector of densely packed bindings for small character codes\n\
cf431814ce6a (access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents: 2755
diff changeset
194 is also allowed as an element.")
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 (object)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 Lisp_Object object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
198 return (NILP (get_keymap_1 (object, 0, 0)) ? Qnil : Qt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201 /* Check that OBJECT is a keymap (after dereferencing through any
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
202 symbols). If it is, return it.
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
203
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
204 If AUTOLOAD is non-zero and OBJECT is a symbol whose function value
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
205 is an autoload form, do the autoload and try again.
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
206 If AUTOLOAD is nonzero, callers must assume GC is possible.
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
207
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
208 ERROR controls how we respond if OBJECT isn't a keymap.
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
209 If ERROR is non-zero, signal an error; otherwise, just return Qnil.
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
210
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
211 Note that most of the time, we don't want to pursue autoloads.
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
212 Functions like Faccessible_keymaps which scan entire keymap trees
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
213 shouldn't load every autoloaded keymap. I'm not sure about this,
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
214 but it seems to me that only read_key_sequence, Flookup_key, and
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
215 Fdefine_key should cause keymaps to be autoloaded. */
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
216
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 Lisp_Object
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
218 get_keymap_1 (object, error, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 Lisp_Object object;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
220 int error, autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
222 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
224 autoload_retry:
647
529171c8b71c entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 517
diff changeset
225 tem = indirect_function (object);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 if (CONSP (tem) && EQ (XCONS (tem)->car, Qkeymap))
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 return tem;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
228
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
229 /* Should we do an autoload? Autoload forms for keymaps have
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
230 Qkeymap as their fifth element. */
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
231 if (autoload
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
232 && SYMBOLP (object)
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
233 && CONSP (tem)
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
234 && EQ (XCONS (tem)->car, Qautoload))
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
235 {
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
236 Lisp_Object tail;
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
237
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
238 tail = Fnth (make_number (4), tem);
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
239 if (EQ (tail, Qkeymap))
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
240 {
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
241 struct gcpro gcpro1, gcpro2;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
242
3691
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
243 GCPRO2 (tem, object);
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
244 do_autoload (tem, object);
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
245 UNGCPRO;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
246
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
247 goto autoload_retry;
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
248 }
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
249 }
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
250
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 if (error)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 wrong_type_argument (Qkeymapp, object);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
253 else
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
254 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
257
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
258 /* Follow any symbol chaining, and return the keymap denoted by OBJECT.
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
259 If OBJECT doesn't denote a keymap at all, signal an error. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 get_keymap (object)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 Lisp_Object object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 {
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
264 return get_keymap_1 (object, 1, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
266
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
267 /* Return the parent map of the keymap MAP, or nil if it has none.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
268 We assume that MAP is a valid keymap. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
269
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
270 DEFUN ("keymap-parent", Fkeymap_parent, Skeymap_parent, 1, 1, 0,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
271 "Return the parent keymap of KEYMAP.")
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
272 (keymap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
273 Lisp_Object keymap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
274 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
275 Lisp_Object list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
276
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
277 keymap = get_keymap_1 (keymap, 1, 1);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
278
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
279 /* Skip past the initial element `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
280 list = XCONS (keymap)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
281 for (; CONSP (list); list = XCONS (list)->cdr)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
282 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
283 /* See if there is another `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
284 if (EQ (Qkeymap, XCONS (list)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
285 return list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
286 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
287
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
288 return Qnil;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
289 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
290
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
291 /* Set the parent keymap of MAP to PARENT. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
292
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
293 DEFUN ("set-keymap-parent", Fset_keymap_parent, Sset_keymap_parent, 2, 2, 0,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
294 "Modify KEYMAP to set its parent map to PARENT.\n\
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
295 PARENT should be nil or another keymap.")
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
296 (keymap, parent)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
297 Lisp_Object keymap, parent;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
298 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
299 Lisp_Object list, prev;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
300 int i;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
301
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
302 keymap = get_keymap_1 (keymap, 1, 1);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
303 if (!NILP (parent))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
304 parent = get_keymap_1 (parent, 1, 1);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
305
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
306 /* Skip past the initial element `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
307 prev = keymap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
308 while (1)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
309 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
310 list = XCONS (prev)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
311 /* If there is a parent keymap here, replace it.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
312 If we came to the end, add the parent in PREV. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
313 if (! CONSP (list) || EQ (Qkeymap, XCONS (list)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
314 {
15422
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
315 /* If we already have the right parent, return now
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
316 so that we avoid the loops below. */
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
317 if (EQ (XCONS (prev)->cdr, parent))
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
318 return parent;
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
319
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
320 XCONS (prev)->cdr = parent;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
321 break;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
322 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
323 prev = list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
324 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
325
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
326 /* Scan through for submaps, and set their parents too. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
327
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
328 for (list = XCONS (keymap)->cdr; CONSP (list); list = XCONS (list)->cdr)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
329 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
330 /* Stop the scan when we come to the parent. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
331 if (EQ (XCONS (list)->car, Qkeymap))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
332 break;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
333
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
334 /* If this element holds a prefix map, deal with it. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
335 if (CONSP (XCONS (list)->car)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
336 && CONSP (XCONS (XCONS (list)->car)->cdr))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
337 fix_submap_inheritance (keymap, XCONS (XCONS (list)->car)->car,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
338 XCONS (XCONS (list)->car)->cdr);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
339
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
340 if (VECTORP (XCONS (list)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
341 for (i = 0; i < XVECTOR (XCONS (list)->car)->size; i++)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
342 if (CONSP (XVECTOR (XCONS (list)->car)->contents[i]))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
343 fix_submap_inheritance (keymap, make_number (i),
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
344 XVECTOR (XCONS (list)->car)->contents[i]);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
345
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
346 if (CHAR_TABLE_P (XCONS (list)->car))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
347 {
20076
374e09781f08 (Faccessible_keymaps): Avoid alloca for fixed-size array.
Karl Heuer <kwzh@gnu.org>
parents: 20070
diff changeset
348 Lisp_Object indices[3];
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
349
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
350 map_char_table (fix_submap_inheritance, Qnil, XCONS (list)->car,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
351 keymap, 0, indices);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
352 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
353 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
354
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
355 return parent;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
356 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
357
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
358 /* EVENT is defined in MAP as a prefix, and SUBMAP is its definition.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
359 if EVENT is also a prefix in MAP's parent,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
360 make sure that SUBMAP inherits that definition as its own parent. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
361
20374
0b6c4f1041ae (describe_vector): Declaration fixed (delete `.' at the
Kenichi Handa <handa@m17n.org>
parents: 20319
diff changeset
362 void
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
363 fix_submap_inheritance (map, event, submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
364 Lisp_Object map, event, submap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
365 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
366 Lisp_Object map_parent, parent_entry;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
367
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
368 /* SUBMAP is a cons that we found as a key binding.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
369 Discard the other things found in a menu key binding. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
370
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
371 if (CONSP (submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
372 && STRINGP (XCONS (submap)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
373 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
374 submap = XCONS (submap)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
375 /* Also remove a menu help string, if any,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
376 following the menu item name. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
377 if (CONSP (submap) && STRINGP (XCONS (submap)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
378 submap = XCONS (submap)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
379 /* Also remove the sublist that caches key equivalences, if any. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
380 if (CONSP (submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
381 && CONSP (XCONS (submap)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
382 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
383 Lisp_Object carcar;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
384 carcar = XCONS (XCONS (submap)->car)->car;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
385 if (NILP (carcar) || VECTORP (carcar))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
386 submap = XCONS (submap)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
387 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
388 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
389
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
390 /* If it isn't a keymap now, there's no work to do. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
391 if (! CONSP (submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
392 || ! EQ (XCONS (submap)->car, Qkeymap))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
393 return;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
394
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
395 map_parent = Fkeymap_parent (map);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
396 if (! NILP (map_parent))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
397 parent_entry = access_keymap (map_parent, event, 0, 0);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
398 else
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
399 parent_entry = Qnil;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
400
15378
ecfc288350ab (fix_submap_inheritance): If parent_entry is not a keymap, use nil instead.
Richard M. Stallman <rms@gnu.org>
parents: 15344
diff changeset
401 /* If MAP's parent has something other than a keymap,
ecfc288350ab (fix_submap_inheritance): If parent_entry is not a keymap, use nil instead.
Richard M. Stallman <rms@gnu.org>
parents: 15344
diff changeset
402 our own submap shadows it completely, so use nil as SUBMAP's parent. */
ecfc288350ab (fix_submap_inheritance): If parent_entry is not a keymap, use nil instead.
Richard M. Stallman <rms@gnu.org>
parents: 15344
diff changeset
403 if (! (CONSP (parent_entry) && EQ (XCONS (parent_entry)->car, Qkeymap)))
ecfc288350ab (fix_submap_inheritance): If parent_entry is not a keymap, use nil instead.
Richard M. Stallman <rms@gnu.org>
parents: 15344
diff changeset
404 parent_entry = Qnil;
ecfc288350ab (fix_submap_inheritance): If parent_entry is not a keymap, use nil instead.
Richard M. Stallman <rms@gnu.org>
parents: 15344
diff changeset
405
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
406 if (! EQ (parent_entry, submap))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
407 Fset_keymap_parent (submap, parent_entry);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
408 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
409
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
410 /* Look up IDX in MAP. IDX may be any sort of event.
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
411 Note that this does only one level of lookup; IDX must be a single
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
412 event, not a sequence.
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
413
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
414 If T_OK is non-zero, bindings for Qt are treated as default
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
415 bindings; any key left unmentioned by other tables and bindings is
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
416 given the binding of Qt.
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
417
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
418 If T_OK is zero, bindings for Qt are not treated specially.
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
419
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
420 If NOINHERIT, don't accept a subkeymap found in an inherited keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 Lisp_Object
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
423 access_keymap (map, idx, t_ok, noinherit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 Lisp_Object idx;
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
426 int t_ok;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
427 int noinherit;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 {
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
429 int noprefix = 0;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
430 Lisp_Object val;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
431
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 /* If idx is a list (some sort of mouse click, perhaps?),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433 the index we want to use is the car of the list, which
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 ought to be a symbol. */
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
435 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
437 /* If idx is a symbol, it might have modifiers, which need to
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
438 be put in the canonical order. */
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
439 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
440 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
441 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
442 /* Clobber the high bits that can be present on a machine
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
443 with more than 24 bits of integer. */
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
444 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
447 Lisp_Object tail;
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
448 Lisp_Object t_binding;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
450 t_binding = Qnil;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
451 for (tail = map; CONSP (tail); tail = XCONS (tail)->cdr)
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
452 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
453 Lisp_Object binding;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
455 binding = XCONS (tail)->car;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
456 if (SYMBOLP (binding))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
457 {
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
458 /* If NOINHERIT, stop finding prefix definitions
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
459 after we pass a second occurrence of the `keymap' symbol. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
460 if (noinherit && EQ (binding, Qkeymap) && ! EQ (tail, map))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
461 noprefix = 1;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
462 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
463 else if (CONSP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
464 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
465 if (EQ (XCONS (binding)->car, idx))
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
466 {
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
467 val = XCONS (binding)->cdr;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
468 if (noprefix && CONSP (val) && EQ (XCONS (val)->car, Qkeymap))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
469 return Qnil;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
470 if (CONSP (val))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
471 fix_submap_inheritance (map, idx, val);
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
472 return val;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
473 }
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
474 if (t_ok && EQ (XCONS (binding)->car, Qt))
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
475 t_binding = XCONS (binding)->cdr;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
476 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
477 else if (VECTORP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
478 {
9957
940847846909 (access_keymap, store_in_keymap): Use NATNUMP instead of its expansion.
Karl Heuer <kwzh@gnu.org>
parents: 9946
diff changeset
479 if (NATNUMP (idx) && XFASTINT (idx) < XVECTOR (binding)->size)
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
480 {
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
481 val = XVECTOR (binding)->contents[XFASTINT (idx)];
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
482 if (noprefix && CONSP (val) && EQ (XCONS (val)->car, Qkeymap))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
483 return Qnil;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
484 if (CONSP (val))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
485 fix_submap_inheritance (map, idx, val);
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
486 return val;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
487 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
488 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
489 else if (CHAR_TABLE_P (binding))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
490 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
491 /* Character codes with modifiers
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
492 are not included in a char-table.
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
493 All character codes without modifiers are included. */
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
494 if (NATNUMP (idx)
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
495 && ! (XFASTINT (idx)
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
496 & (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
497 | CHAR_SHIFT | CHAR_CTL | CHAR_META)))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
498 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
499 val = Faref (binding, idx);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
500 if (noprefix && CONSP (val) && EQ (XCONS (val)->car, Qkeymap))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
501 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
502 if (CONSP (val))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
503 fix_submap_inheritance (map, idx, val);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
504 return val;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
505 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
506 }
1264
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
507
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
508 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 }
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
510
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
511 return t_binding;
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
512 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 /* Given OBJECT which was found in a slot in a keymap,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 trace indirect definitions to get the actual definition of that slot.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 An indirect definition is a list of the form
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 (KEYMAP . INDEX), where KEYMAP is a keymap or a symbol defined as one
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519 and INDEX is the object to look up in KEYMAP to yield the definition.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 Also if OBJECT has a menu string as the first element,
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
522 remove that. Also remove a menu help string as second element.
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
523
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
524 If AUTOLOAD is nonzero, load autoloadable keymaps
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
525 that are referred to with indirection. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 Lisp_Object
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
528 get_keyelt (object, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 register Lisp_Object object;
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
530 int autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 register Lisp_Object map, tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
536 /* If the contents are (KEYMAP . ELEMENT), go indirect. */
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
537 map = get_keymap_1 (Fcar_safe (object), 0, autoload);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 tem = Fkeymapp (map);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
539 if (!NILP (tem))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
540 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
541 Lisp_Object key;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
542 key = Fcdr (object);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
543 if (INTEGERP (key) && (XINT (key) & meta_modifier))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
544 {
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18142
diff changeset
545 object = access_keymap (map, meta_prefix_char, 0, 0);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
546 map = get_keymap_1 (object, 0, autoload);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
547 object = access_keymap (map,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
548 make_number (XINT (key) & ~meta_modifier),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
549 0, 0);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
550 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
551 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
552 object = access_keymap (map, key, 0, 0);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
553 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
554
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 /* If the keymap contents looks like (STRING . DEFN),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 use DEFN.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 Keymap alist elements like (CHAR MENUSTRING . DEFN)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 will be used by HierarKey menus. */
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
559 else if (CONSP (object)
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
560 && STRINGP (XCONS (object)->car))
1160
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
561 {
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
562 object = XCONS (object)->cdr;
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
563 /* Also remove a menu help string, if any,
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
564 following the menu item name. */
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
565 if (CONSP (object) && STRINGP (XCONS (object)->car))
1160
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
566 object = XCONS (object)->cdr;
6021
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
567 /* Also remove the sublist that caches key equivalences, if any. */
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
568 if (CONSP (object)
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
569 && CONSP (XCONS (object)->car))
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
570 {
6021
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
571 Lisp_Object carcar;
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
572 carcar = XCONS (XCONS (object)->car)->car;
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
573 if (NILP (carcar) || VECTORP (carcar))
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
574 object = XCONS (object)->cdr;
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
575 }
1160
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
576 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579 /* Anything else is really the value. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580 return object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 store_in_keymap (keymap, idx, def)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 register Lisp_Object idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 register Lisp_Object def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 {
10367
e1c7a3f0c15f (store_in_keymap): Copy a cons only if car is a string.
Richard M. Stallman <rms@gnu.org>
parents: 10305
diff changeset
590 /* If we are preparing to dump, and DEF is a menu element
e1c7a3f0c15f (store_in_keymap): Copy a cons only if car is a string.
Richard M. Stallman <rms@gnu.org>
parents: 10305
diff changeset
591 with a menu item string, copy it to ensure it is not pure. */
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
592 if (CONSP (def) && PURE_P (def) && STRINGP (XCONS (def)->car))
10305
ebb2a456a3e8 (store_in_keymap): While dumping, copy DEF if a cons.
Richard M. Stallman <rms@gnu.org>
parents: 10008
diff changeset
593 def = Fcons (XCONS (def)->car, XCONS (def)->cdr);
ebb2a456a3e8 (store_in_keymap): While dumping, copy DEF if a cons.
Richard M. Stallman <rms@gnu.org>
parents: 10008
diff changeset
594
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
595 if (!CONSP (keymap) || ! EQ (XCONS (keymap)->car, Qkeymap))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
596 error ("attempt to define a key in a non-keymap");
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
597
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 /* If idx is a list (some sort of mouse click, perhaps?),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599 the index we want to use is the car of the list, which
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 ought to be a symbol. */
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
601 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
603 /* If idx is a symbol, it might have modifiers, which need to
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
604 be put in the canonical order. */
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
605 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
606 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
607 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
608 /* Clobber the high bits that can be present on a machine
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
609 with more than 24 bits of integer. */
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
610 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
612 /* Scan the keymap for a binding of idx. */
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
613 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
614 Lisp_Object tail;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
616 /* The cons after which we should insert new bindings. If the
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
617 keymap has a table element, we record its position here, so new
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
618 bindings will go after it; this way, the table will stay
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
619 towards the front of the alist and character lookups in dense
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
620 keymaps will remain fast. Otherwise, this just points at the
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
621 front of the keymap. */
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
622 Lisp_Object insertion_point;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
623
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
624 insertion_point = keymap;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
625 for (tail = XCONS (keymap)->cdr; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
627 Lisp_Object elt;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
628
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
629 elt = XCONS (tail)->car;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
630 if (VECTORP (elt))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
631 {
9957
940847846909 (access_keymap, store_in_keymap): Use NATNUMP instead of its expansion.
Karl Heuer <kwzh@gnu.org>
parents: 9946
diff changeset
632 if (NATNUMP (idx) && XFASTINT (idx) < XVECTOR (elt)->size)
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
633 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
634 XVECTOR (elt)->contents[XFASTINT (idx)] = def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
635 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
636 }
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
637 insertion_point = tail;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
638 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
639 else if (CHAR_TABLE_P (elt))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
640 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
641 /* Character codes with modifiers
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
642 are not included in a char-table.
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
643 All character codes without modifiers are included. */
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
644 if (NATNUMP (idx)
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
645 && ! (XFASTINT (idx)
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
646 & (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
647 | CHAR_SHIFT | CHAR_CTL | CHAR_META)))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
648 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
649 Faset (elt, idx, def);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
650 return def;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
651 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
652 insertion_point = tail;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
653 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
654 else if (CONSP (elt))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
655 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
656 if (EQ (idx, XCONS (elt)->car))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
657 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
658 XCONS (elt)->cdr = def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
659 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
660 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
661 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
662 else if (SYMBOLP (elt))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
663 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
664 /* If we find a 'keymap' symbol in the spine of KEYMAP,
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
665 then we must have found the start of a second keymap
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
666 being used as the tail of KEYMAP, and a binding for IDX
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
667 should be inserted before it. */
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
668 if (EQ (elt, Qkeymap))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
669 goto keymap_end;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
670 }
1441
929409595312 * keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents: 1388
diff changeset
671
929409595312 * keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents: 1388
diff changeset
672 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
674
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
675 keymap_end:
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
676 /* We have scanned the entire keymap, and not found a binding for
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
677 IDX. Let's add one. */
10305
ebb2a456a3e8 (store_in_keymap): While dumping, copy DEF if a cons.
Richard M. Stallman <rms@gnu.org>
parents: 10008
diff changeset
678 XCONS (insertion_point)->cdr
ebb2a456a3e8 (store_in_keymap): While dumping, copy DEF if a cons.
Richard M. Stallman <rms@gnu.org>
parents: 10008
diff changeset
679 = Fcons (Fcons (idx, def), XCONS (insertion_point)->cdr);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
681
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
682 return def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
683 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
684
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
685 void
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
686 copy_keymap_1 (chartable, idx, elt)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
687 Lisp_Object chartable, idx, elt;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
688 {
17861
f84a12392eab (copy_keymap_1): Do nothing if ELT isn't a keymap.
Richard M. Stallman <rms@gnu.org>
parents: 17832
diff changeset
689 if (!SYMBOLP (elt) && ! NILP (Fkeymapp (elt)))
f84a12392eab (copy_keymap_1): Do nothing if ELT isn't a keymap.
Richard M. Stallman <rms@gnu.org>
parents: 17832
diff changeset
690 Faset (chartable, idx, Fcopy_keymap (elt));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
691 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
692
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
693 DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694 "Return a copy of the keymap KEYMAP.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695 The copy starts out with the same definitions of KEYMAP,\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 but changing either the copy or KEYMAP does not affect the other.\n\
362
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
697 Any key definitions that are subkeymaps are recursively copied.\n\
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
698 However, a key definition which is a symbol whose definition is a keymap\n\
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
699 is not copied.")
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 (keymap)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
702 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
703 register Lisp_Object copy, tail;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705 copy = Fcopy_alist (get_keymap (keymap));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
706
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
707 for (tail = copy; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
709 Lisp_Object elt;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
711 elt = XCONS (tail)->car;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
712 if (CHAR_TABLE_P (elt))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
713 {
20076
374e09781f08 (Faccessible_keymaps): Avoid alloca for fixed-size array.
Karl Heuer <kwzh@gnu.org>
parents: 20070
diff changeset
714 Lisp_Object indices[3];
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
715
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
716 elt = Fcopy_sequence (elt);
18142
c9bd973ca168 (Fcopy_keymap): After copying a sub-char-table, do store the copy.
Richard M. Stallman <rms@gnu.org>
parents: 17932
diff changeset
717 XCONS (tail)->car = elt;
c9bd973ca168 (Fcopy_keymap): After copying a sub-char-table, do store the copy.
Richard M. Stallman <rms@gnu.org>
parents: 17932
diff changeset
718
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
719 map_char_table (copy_keymap_1, Qnil, elt, elt, 0, indices);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
720 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
721 else if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
723 int i;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
725 elt = Fcopy_sequence (elt);
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
726 XCONS (tail)->car = elt;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727
2790
cf431814ce6a (access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents: 2755
diff changeset
728 for (i = 0; i < XVECTOR (elt)->size; i++)
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
729 if (!SYMBOLP (XVECTOR (elt)->contents[i])
3674
cfa45731460e (Fcopy_keymap): Check Fkeymapp value with NILP.
Richard M. Stallman <rms@gnu.org>
parents: 3632
diff changeset
730 && ! NILP (Fkeymapp (XVECTOR (elt)->contents[i])))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
731 XVECTOR (elt)->contents[i]
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
732 = Fcopy_keymap (XVECTOR (elt)->contents[i]);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 }
6456
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
734 else if (CONSP (elt))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
735 {
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
736 /* Skip the optional menu string. */
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
737 if (CONSP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
738 && STRINGP (XCONS (XCONS (elt)->cdr)->car))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
739 {
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
740 Lisp_Object tem;
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
741
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
742 /* Copy the cell, since copy-alist didn't go this deep. */
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
743 XCONS (elt)->cdr = Fcons (XCONS (XCONS (elt)->cdr)->car,
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
744 XCONS (XCONS (elt)->cdr)->cdr);
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
745 elt = XCONS (elt)->cdr;
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
746
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
747 /* Also skip the optional menu help string. */
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
748 if (CONSP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
749 && STRINGP (XCONS (XCONS (elt)->cdr)->car))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
750 {
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
751 XCONS (elt)->cdr = Fcons (XCONS (XCONS (elt)->cdr)->car,
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
752 XCONS (XCONS (elt)->cdr)->cdr);
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
753 elt = XCONS (elt)->cdr;
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
754 }
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
755 /* There may also be a list that caches key equivalences.
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
756 Just delete it for the new keymap. */
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
757 if (CONSP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
758 && CONSP (XCONS (XCONS (elt)->cdr)->car)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
759 && (NILP (tem = XCONS (XCONS (XCONS (elt)->cdr)->car)->car)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
760 || VECTORP (tem)))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
761 XCONS (elt)->cdr = XCONS (XCONS (elt)->cdr)->cdr;
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
762 }
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
763 if (CONSP (elt)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
764 && ! SYMBOLP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
765 && ! NILP (Fkeymapp (XCONS (elt)->cdr)))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
766 XCONS (elt)->cdr = Fcopy_keymap (XCONS (elt)->cdr);
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
767 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
770 return copy;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
772
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
773 /* Simple Keymap mutators and accessors. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
774
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
775 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
776
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777 DEFUN ("define-key", Fdefine_key, Sdefine_key, 3, 3, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
778 "Args KEYMAP, KEY, DEF. Define key sequence KEY, in KEYMAP, as DEF.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
779 KEYMAP is a keymap. KEY is a string or a vector of symbols and characters\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780 meaning a sequence of keystrokes and events.\n\
5100
33de23a28204 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5055
diff changeset
781 Non-ASCII characters with codes above 127 (such as ISO Latin-1)\n\
33de23a28204 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5055
diff changeset
782 can be included if you use a vector.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 DEF is anything that can be a key's definition:\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 nil (means key is undefined in this keymap),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 a command (a Lisp function suitable for interactive calling)\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
786 a string (treated as a keyboard macro),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 a keymap (to define a prefix key),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 a symbol. When the key is looked up, the symbol will stand for its\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 function definition, which should at that time be one of the above,\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 or another symbol whose function definition is used, etc.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 a cons (STRING . DEFN), meaning that DEFN is the definition\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792 (DEFN should be a valid definition in its own right),\n\
368
d04df545062f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 362
diff changeset
793 or a cons (KEYMAP . CHAR), meaning use definition of CHAR in map KEYMAP.\n\
d04df545062f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 362
diff changeset
794 \n\
d04df545062f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 362
diff changeset
795 If KEYMAP is a sparse keymap, the pair binding KEY to DEF is added at\n\
d04df545062f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 362
diff changeset
796 the front of KEYMAP.")
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
797 (keymap, key, def)
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
798 Lisp_Object keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 Lisp_Object key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 Lisp_Object def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
804 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 int metized = 0;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
807 int meta_bit;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 int length;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
809 struct gcpro gcpro1, gcpro2, gcpro3;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
811 keymap = get_keymap_1 (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
813 if (!VECTORP (key) && !STRINGP (key))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 key = wrong_type_argument (Qarrayp, key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
816 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
817 if (length == 0)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
820 if (SYMBOLP (def) && !EQ (Vdefine_key_rebound_commands, Qt))
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
821 Vdefine_key_rebound_commands = Fcons (def, Vdefine_key_rebound_commands);
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
822
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
823 GCPRO3 (keymap, key, def);
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
824
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
825 if (VECTORP (key))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
826 meta_bit = meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
827 else
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
828 meta_bit = 0x80;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
829
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
830 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833 c = Faref (key, make_number (idx));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
835 if (CONSP (c) && lucid_event_type_list_p (c))
12151
43b030e896eb (Flookup_key, Fdefine_key): Use Fevent_convert_list.
Karl Heuer <kwzh@gnu.org>
parents: 11973
diff changeset
836 c = Fevent_convert_list (c);
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
837
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
838 if (INTEGERP (c)
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
839 && (XINT (c) & meta_bit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 && !metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 c = meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 metized = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 {
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
847 if (INTEGERP (c))
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
848 XSETINT (c, XINT (c) & ~meta_bit);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
850 metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
851 idx++;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
852 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853
6473
76bb655df959 (Fdefine_key): Check for non-events in keyvector.
Karl Heuer <kwzh@gnu.org>
parents: 6457
diff changeset
854 if (! INTEGERP (c) && ! SYMBOLP (c) && ! CONSP (c))
8517
a7fe53588b6f (Fdefine_key): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 8473
diff changeset
855 error ("Key sequence contains invalid events");
6473
76bb655df959 (Fdefine_key): Check for non-events in keyvector.
Karl Heuer <kwzh@gnu.org>
parents: 6457
diff changeset
856
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857 if (idx == length)
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
858 RETURN_UNGCPRO (store_in_keymap (keymap, c, def));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
859
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
860 cmd = get_keyelt (access_keymap (keymap, c, 0, 1), 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
861
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
862 /* If this key is undefined, make it a prefix. */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
863 if (NILP (cmd))
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
864 cmd = define_as_prefix (keymap, c);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
865
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
866 keymap = get_keymap_1 (cmd, 0, 1);
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
867 if (NILP (keymap))
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
868 /* We must use Fkey_description rather than just passing key to
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
869 error; key might be a vector, not a string. */
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
870 error ("Key sequence %s uses invalid prefix characters",
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
871 XSTRING (Fkey_description (key))->data);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
873 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
874
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
875 /* Value is number if KEY is too long; NIL if valid but has no definition. */
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
876 /* GC is possible in this function if it autoloads a keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
877
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
878 DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
879 "In keymap KEYMAP, look up key sequence KEY. Return the definition.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880 nil means undefined. See doc of `define-key' for kinds of definitions.\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
881 \n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
882 A number as value means KEY is \"too long\";\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
883 that is, characters or symbols in it except for the last one\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
884 fail to be a valid sequence of prefix characters in KEYMAP.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885 The number is how many characters at the front of KEY\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
886 it takes to reach a non-prefix command.\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
887 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
888 Normally, `lookup-key' ignores bindings for t, which act as default\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
889 bindings, used when nothing else in the keymap applies; this makes it\n\
13947
65488aa49b87 (Flookup_key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13771
diff changeset
890 usable as a general function for probing keymaps. However, if the\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
891 third optional argument ACCEPT-DEFAULT is non-nil, `lookup-key' will\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
892 recognize the default bindings, just as `read-key-sequence' does.")
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
893 (keymap, key, accept_default)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
894 register Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895 Lisp_Object key;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
896 Lisp_Object accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
898 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
899 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
900 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
901 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902 int metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 int length;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
904 int t_ok = ! NILP (accept_default);
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
905 int meta_bit;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
906 struct gcpro gcpro1;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
907
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
908 keymap = get_keymap_1 (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
910 if (!VECTORP (key) && !STRINGP (key))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911 key = wrong_type_argument (Qarrayp, key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
913 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
914 if (length == 0)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
915 return keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
916
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
917 if (VECTORP (key))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
918 meta_bit = meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
919 else
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
920 meta_bit = 0x80;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
921
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
922 GCPRO1 (key);
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
923
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
924 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
925 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 c = Faref (key, make_number (idx));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
928
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
929 if (CONSP (c) && lucid_event_type_list_p (c))
12151
43b030e896eb (Flookup_key, Fdefine_key): Use Fevent_convert_list.
Karl Heuer <kwzh@gnu.org>
parents: 11973
diff changeset
930 c = Fevent_convert_list (c);
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
931
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
932 if (INTEGERP (c)
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
933 && (XINT (c) & meta_bit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
934 && !metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
935 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
936 c = meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937 metized = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
939 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
940 {
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
941 if (INTEGERP (c))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
942 XSETINT (c, XINT (c) & ~meta_bit);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944 metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 idx++;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
948 cmd = get_keyelt (access_keymap (keymap, c, t_ok, 0), 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949 if (idx == length)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
950 RETURN_UNGCPRO (cmd);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
951
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
952 keymap = get_keymap_1 (cmd, 0, 1);
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
953 if (NILP (keymap))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
954 RETURN_UNGCPRO (make_number (idx));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
956 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
957 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
958 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
959
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
960 /* Make KEYMAP define event C as a keymap (i.e., as a prefix).
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
961 Assume that currently it does not define C at all.
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
962 Return the keymap. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
963
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
964 static Lisp_Object
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
965 define_as_prefix (keymap, c)
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
966 Lisp_Object keymap, c;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
967 {
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
968 Lisp_Object inherit, cmd;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
969
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
970 cmd = Fmake_sparse_keymap (Qnil);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
971 /* If this key is defined as a prefix in an inherited keymap,
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
972 make it a prefix in this map, and make its definition
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
973 inherit the other prefix definition. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
974 inherit = access_keymap (keymap, c, 0, 0);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
975 #if 0
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
976 /* This code is needed to do the right thing in the following case:
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
977 keymap A inherits from B,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
978 you define KEY as a prefix in A,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
979 then later you define KEY as a prefix in B.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
980 We want the old prefix definition in A to inherit from that in B.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
981 It is hard to do that retroactively, so this code
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
982 creates the prefix in B right away.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
983
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
984 But it turns out that this code causes problems immediately
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
985 when the prefix in A is defined: it causes B to define KEY
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
986 as a prefix with no subcommands.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
987
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
988 So I took out this code. */
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
989 if (NILP (inherit))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
990 {
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
991 /* If there's an inherited keymap
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
992 and it doesn't define this key,
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
993 make it define this key. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
994 Lisp_Object tail;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
995
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
996 for (tail = Fcdr (keymap); CONSP (tail); tail = XCONS (tail)->cdr)
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
997 if (EQ (XCONS (tail)->car, Qkeymap))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
998 break;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
999
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1000 if (!NILP (tail))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1001 inherit = define_as_prefix (tail, c);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1002 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
1003 #endif
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1004
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1005 cmd = nconc2 (cmd, inherit);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1006 store_in_keymap (keymap, c, cmd);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1007
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1008 return cmd;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1009 }
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1010
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1011 /* Append a key to the end of a key sequence. We always make a vector. */
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1012
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014 append_key (key_sequence, key)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 Lisp_Object key_sequence, key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017 Lisp_Object args[2];
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1018
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019 args[0] = key_sequence;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1021 args[1] = Fcons (key, Qnil);
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1022 return Fvconcat (2, args);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1026 /* Global, local, and minor mode keymap stuff. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1027
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1028 /* We can't put these variables inside current_minor_maps, since under
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1029 some systems, static gets macro-defined to be the empty string.
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1030 Ickypoo. */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1031 static Lisp_Object *cmm_modes, *cmm_maps;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1032 static int cmm_size;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1033
12542
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1034 /* Error handler used in current_minor_maps. */
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1035 static Lisp_Object
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1036 current_minor_maps_error ()
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1037 {
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1038 return Qnil;
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1039 }
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1040
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1041 /* Store a pointer to an array of the keymaps of the currently active
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1042 minor modes in *buf, and return the number of maps it contains.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1043
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1044 This function always returns a pointer to the same buffer, and may
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1045 free or reallocate it, so if you want to keep it for a long time or
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1046 hand it out to lisp code, copy it. This procedure will be called
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1047 for every key sequence read, so the nice lispy approach (return a
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1048 new assoclist, list, what have you) for each invocation would
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1049 result in a lot of consing over time.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1050
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1051 If we used xrealloc/xmalloc and ran out of memory, they would throw
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1052 back to the command loop, which would try to read a key sequence,
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1053 which would call this function again, resulting in an infinite
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1054 loop. Instead, we'll use realloc/malloc and silently truncate the
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1055 list, let the key sequence be read, and hope some other piece of
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1056 code signals the error. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1057 int
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1058 current_minor_maps (modeptr, mapptr)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1059 Lisp_Object **modeptr, **mapptr;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1060 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1061 int i = 0;
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1062 int list_number = 0;
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1063 Lisp_Object alist, assoc, var, val;
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1064 Lisp_Object lists[2];
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1065
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1066 lists[0] = Vminor_mode_overriding_map_alist;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1067 lists[1] = Vminor_mode_map_alist;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1068
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1069 for (list_number = 0; list_number < 2; list_number++)
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1070 for (alist = lists[list_number];
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1071 CONSP (alist);
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1072 alist = XCONS (alist)->cdr)
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1073 if ((assoc = XCONS (alist)->car, CONSP (assoc))
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1074 && (var = XCONS (assoc)->car, SYMBOLP (var))
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1075 && (val = find_symbol_value (var), ! EQ (val, Qunbound))
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1076 && ! NILP (val))
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1077 {
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1078 Lisp_Object temp;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1079
20576
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1080 /* If a variable has an entry in Vminor_mode_overriding_map_alist,
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1081 and also an entry in Vminor_mode_map_alist,
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1082 ignore the latter. */
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1083 if (list_number == 1)
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1084 {
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1085 val = assq_no_quit (var, lists[0]);
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1086 if (!NILP (val))
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1087 break;
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1088 }
b916d29222a3 (current_minor_maps):
Richard M. Stallman <rms@gnu.org>
parents: 20517
diff changeset
1089
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1090 if (i >= cmm_size)
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1091 {
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1092 Lisp_Object *newmodes, *newmaps;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1093
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1094 if (cmm_maps)
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1095 {
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1096 BLOCK_INPUT;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1097 cmm_size *= 2;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1098 newmodes
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1099 = (Lisp_Object *) realloc (cmm_modes,
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1100 cmm_size * sizeof (Lisp_Object));
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1101 newmaps
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1102 = (Lisp_Object *) realloc (cmm_maps,
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1103 cmm_size * sizeof (Lisp_Object));
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1104 UNBLOCK_INPUT;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1105 }
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1106 else
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1107 {
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1108 BLOCK_INPUT;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1109 cmm_size = 30;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1110 newmodes
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1111 = (Lisp_Object *) malloc (cmm_size * sizeof (Lisp_Object));
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1112 newmaps
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1113 = (Lisp_Object *) malloc (cmm_size * sizeof (Lisp_Object));
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1114 UNBLOCK_INPUT;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1115 }
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1116
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1117 if (newmaps && newmodes)
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1118 {
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1119 cmm_modes = newmodes;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1120 cmm_maps = newmaps;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1121 }
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1122 else
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1123 break;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1124 }
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1125
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1126 /* Get the keymap definition--or nil if it is not defined. */
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1127 temp = internal_condition_case_1 (Findirect_function,
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1128 XCONS (assoc)->cdr,
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1129 Qerror, current_minor_maps_error);
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1130 if (!NILP (temp))
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1131 {
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1132 cmm_modes[i] = var;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1133 cmm_maps [i] = temp;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1134 i++;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1135 }
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1136 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1137
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1138 if (modeptr) *modeptr = cmm_modes;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1139 if (mapptr) *mapptr = cmm_maps;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1140 return i;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1141 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1142
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1143 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1144
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1145 DEFUN ("key-binding", Fkey_binding, Skey_binding, 1, 2, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1146 "Return the binding for command KEY in current keymaps.\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1147 KEY is a string or vector, a sequence of keystrokes.\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1148 The binding is probably a symbol with a function definition.\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1149 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1150 Normally, `key-binding' ignores bindings for t, which act as default\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1151 bindings, used when nothing else in the keymap applies; this makes it\n\
5055
bbe5bba17b10 (Fkey_binding): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
1152 usable as a general function for probing keymaps. However, if the\n\
bbe5bba17b10 (Fkey_binding): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
1153 optional second argument ACCEPT-DEFAULT is non-nil, `key-binding' does\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1154 recognize the default bindings, just as `read-key-sequence' does.")
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1155 (key, accept_default)
6834
6a77fcbb5d44 (Fkey_binding): Declare accept_default.
Richard M. Stallman <rms@gnu.org>
parents: 6774
diff changeset
1156 Lisp_Object key, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1157 {
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1158 Lisp_Object *maps, value;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1159 int nmaps, i;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1160 struct gcpro gcpro1;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1161
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1162 GCPRO1 (key);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1163
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1164 if (!NILP (current_kboard->Voverriding_terminal_local_map))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1165 {
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1166 value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1167 key, accept_default);
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1168 if (! NILP (value) && !INTEGERP (value))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1169 RETURN_UNGCPRO (value);
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1170 }
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1171 else if (!NILP (Voverriding_local_map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1172 {
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1173 value = Flookup_key (Voverriding_local_map, key, accept_default);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1174 if (! NILP (value) && !INTEGERP (value))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1175 RETURN_UNGCPRO (value);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1176 }
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1177 else
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1178 {
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1179 Lisp_Object local;
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1180
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1181 nmaps = current_minor_maps (0, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1182 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1183 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1184
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1185 for (i = 0; i < nmaps; i++)
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1186 if (! NILP (maps[i]))
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1187 {
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1188 value = Flookup_key (maps[i], key, accept_default);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1189 if (! NILP (value) && !INTEGERP (value))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1190 RETURN_UNGCPRO (value);
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1191 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1192
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1193 local = get_local_map (PT, current_buffer);
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1194
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1195 if (! NILP (local))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1196 {
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1197 value = Flookup_key (local, key, accept_default);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1198 if (! NILP (value) && !INTEGERP (value))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1199 RETURN_UNGCPRO (value);
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1200 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1201 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1202
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1203 value = Flookup_key (current_global_map, key, accept_default);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1204 UNGCPRO;
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1205 if (! NILP (value) && !INTEGERP (value))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1206 return value;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1207
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1208 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1209 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1211 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1212
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1213 DEFUN ("local-key-binding", Flocal_key_binding, Slocal_key_binding, 1, 2, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1214 "Return the binding for command KEYS in current local keymap only.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215 KEYS is a string, a sequence of keystrokes.\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1216 The binding is probably a symbol with a function definition.\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1217 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1218 If optional argument ACCEPT-DEFAULT is non-nil, recognize default\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1219 bindings; see the description of `lookup-key' for more details about this.")
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1220 (keys, accept_default)
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1221 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 register Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224 map = current_buffer->keymap;
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1225 if (NILP (map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226 return Qnil;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1227 return Flookup_key (map, keys, accept_default);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1228 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1229
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1230 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1231
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1232 DEFUN ("global-key-binding", Fglobal_key_binding, Sglobal_key_binding, 1, 2, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1233 "Return the binding for command KEYS in current global keymap only.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1234 KEYS is a string, a sequence of keystrokes.\n\
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1235 The binding is probably a symbol with a function definition.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1236 This function's return values are the same as those of lookup-key\n\
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1237 \(which see).\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1238 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1239 If optional argument ACCEPT-DEFAULT is non-nil, recognize default\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1240 bindings; see the description of `lookup-key' for more details about this.")
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1241 (keys, accept_default)
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1242 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1243 {
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1244 return Flookup_key (current_global_map, keys, accept_default);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1245 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1246
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1247 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1248
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1249 DEFUN ("minor-mode-key-binding", Fminor_mode_key_binding, Sminor_mode_key_binding, 1, 2, 0,
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1250 "Find the visible minor mode bindings of KEY.\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1251 Return an alist of pairs (MODENAME . BINDING), where MODENAME is the\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1252 the symbol which names the minor mode binding KEY, and BINDING is\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1253 KEY's definition in that mode. In particular, if KEY has no\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1254 minor-mode bindings, return nil. If the first binding is a\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1255 non-prefix, all subsequent bindings will be omitted, since they would\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1256 be ignored. Similarly, the list doesn't include non-prefix bindings\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1257 that come after prefix bindings.\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1258 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1259 If optional argument ACCEPT-DEFAULT is non-nil, recognize default\n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1260 bindings; see the description of `lookup-key' for more details about this.")
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1261 (key, accept_default)
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1262 Lisp_Object key, accept_default;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1263 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1264 Lisp_Object *modes, *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1265 int nmaps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1266 Lisp_Object binding;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1267 int i, j;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1268 struct gcpro gcpro1, gcpro2;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1269
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1270 nmaps = current_minor_maps (&modes, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1271 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1272 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1273
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1274 binding = Qnil;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1275 GCPRO2 (key, binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1276
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1277 for (i = j = 0; i < nmaps; i++)
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1278 if (! NILP (maps[i])
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1279 && ! NILP (binding = Flookup_key (maps[i], key, accept_default))
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1280 && !INTEGERP (binding))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1281 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1282 if (! NILP (get_keymap (binding)))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1283 maps[j++] = Fcons (modes[i], binding);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1284 else if (j == 0)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1285 RETURN_UNGCPRO (Fcons (Fcons (modes[i], binding), Qnil));
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1286 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1287
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1288 UNGCPRO;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1289 return Flist (j, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1290 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1291
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1292 DEFUN ("define-prefix-command", Fdefine_prefix_command, Sdefine_prefix_command, 1, 2, 0,
2652
90485f37bfc3 * keymap.c (Fdefine_prefix_command): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2439
diff changeset
1293 "Define COMMAND as a prefix command. COMMAND should be a symbol.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1294 A new sparse keymap is stored as COMMAND's function definition and its value.\n\
362
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
1295 If a second optional argument MAPVAR is given, the map is stored as\n\
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
1296 its value instead of as COMMAND's value; but COMMAND is still defined\n\
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
1297 as a function.")
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1298 (command, mapvar)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1299 Lisp_Object command, mapvar;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1300 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1301 Lisp_Object map;
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
1302 map = Fmake_sparse_keymap (Qnil);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1303 Ffset (command, map);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1304 if (!NILP (mapvar))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1305 Fset (mapvar, map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1306 else
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1307 Fset (command, map);
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1308 return command;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1309 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1310
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1311 DEFUN ("use-global-map", Fuse_global_map, Suse_global_map, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1312 "Select KEYMAP as the global keymap.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1313 (keymap)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1315 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316 keymap = get_keymap (keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1317 current_global_map = keymap;
8464
edbb014c600a (Fuse_global_map, Fuse_local_map): Call record_asynch_buffer_change.
Richard M. Stallman <rms@gnu.org>
parents: 8431
diff changeset
1318
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1319 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1320 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1321
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1322 DEFUN ("use-local-map", Fuse_local_map, Suse_local_map, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1323 "Select KEYMAP as the local keymap.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1324 If KEYMAP is nil, that means no local keymap.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 (keymap)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1326 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1327 {
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1328 if (!NILP (keymap))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 keymap = get_keymap (keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1330
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331 current_buffer->keymap = keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1333 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1335
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1336 DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_map, 0, 0, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1337 "Return current buffer's local keymap, or nil if it has none.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1338 ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1339 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340 return current_buffer->keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1341 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1342
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1343 DEFUN ("current-global-map", Fcurrent_global_map, Scurrent_global_map, 0, 0, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1344 "Return the current global keymap.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1345 ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1346 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1347 return current_global_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1348 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1349
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1350 DEFUN ("current-minor-mode-maps", Fcurrent_minor_mode_maps, Scurrent_minor_mode_maps, 0, 0, 0,
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1351 "Return a list of keymaps for the minor modes of the current buffer.")
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1352 ()
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1353 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1354 Lisp_Object *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1355 int nmaps = current_minor_maps (0, &maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1356
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1357 return Flist (nmaps, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1358 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1359
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1360 /* Help functions for describing and documenting keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1361
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
1362 static void accessible_keymaps_char_table ();
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1363
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1364 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1365
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1366 DEFUN ("accessible-keymaps", Faccessible_keymaps, Saccessible_keymaps,
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1367 1, 2, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1368 "Find all keymaps accessible via prefix characters from KEYMAP.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1369 Returns a list of elements of the form (KEYS . MAP), where the sequence\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1370 KEYS starting from KEYMAP gets you to MAP. These elements are ordered\n\
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
1371 so that the KEYS increase in length. The first element is ([] . KEYMAP).\n\
3962
38041a5069a8 (Faccessible_keymaps): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 3952
diff changeset
1372 An optional argument PREFIX, if non-nil, should be a key sequence;\n\
38041a5069a8 (Faccessible_keymaps): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 3952
diff changeset
1373 then the value includes only maps for prefixes that start with PREFIX.")
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1374 (keymap, prefix)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1375 Lisp_Object keymap, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1376 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1377 Lisp_Object maps, good_maps, tail;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1378 int prefixlen = 0;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1379
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1380 /* no need for gcpro because we don't autoload any keymaps. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1381
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1382 if (!NILP (prefix))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1383 prefixlen = XINT (Flength (prefix));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1384
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1385 if (!NILP (prefix))
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1386 {
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1387 /* If a prefix was specified, start with the keymap (if any) for
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1388 that prefix, so we don't waste time considering other prefixes. */
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1389 Lisp_Object tem;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1390 tem = Flookup_key (keymap, prefix, Qt);
8473
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
1391 /* Flookup_key may give us nil, or a number,
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
1392 if the prefix is not defined in this particular map.
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
1393 It might even give us a list that isn't a keymap. */
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
1394 tem = get_keymap_1 (tem, 0, 0);
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1395 if (!NILP (tem))
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1396 {
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1397 /* Convert PREFIX to a vector now, so that later on
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1398 we don't have to deal with the possibility of a string. */
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1399 if (STRINGP (prefix))
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1400 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1401 int i, i_byte, c;
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1402 Lisp_Object copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1403
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1404 copy = Fmake_vector (make_number (XSTRING (prefix)->size), Qnil);
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1405 for (i = 0, i_byte; i < XSTRING (prefix)->size;)
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1406 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1407 int i_before = i;
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1408 if (STRING_MULTIBYTE (prefix))
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1409 FETCH_STRING_CHAR_ADVANCE (c, prefix, i, i_byte);
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1410 else
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1411 c = XSTRING (prefix)->data[i++];
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1412 if (c & 0200)
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1413 c ^= 0200 | meta_modifier;
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1414 XVECTOR (copy)->contents[i_before] = make_number (c);
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1415 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1416 prefix = copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1417 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1418 maps = Fcons (Fcons (prefix, tem), Qnil);
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1419 }
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1420 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1421 return Qnil;
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1422 }
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1423 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1424 maps = Fcons (Fcons (Fmake_vector (make_number (0), Qnil),
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1425 get_keymap (keymap)),
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1426 Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1427
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1428 /* For each map in the list maps,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429 look at any other maps it points to,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 and stick them at the end if they are not already in the list.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1431
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432 This is a breadth-first traversal, where tail is the queue of
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1433 nodes, and maps accumulates a list of all nodes visited. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1435 for (tail = maps; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1436 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1437 register Lisp_Object thisseq, thismap;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1438 Lisp_Object last;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1439 /* Does the current sequence end in the meta-prefix-char? */
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1440 int is_metized;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1441
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1442 thisseq = Fcar (Fcar (tail));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1443 thismap = Fcdr (Fcar (tail));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1444 last = make_number (XINT (Flength (thisseq)) - 1);
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1445 is_metized = (XINT (last) >= 0
17264
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1446 /* Don't metize the last char of PREFIX. */
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1447 && XINT (last) >= prefixlen
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1448 && EQ (Faref (thisseq, last), meta_prefix_char));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1449
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1450 for (; CONSP (thismap); thismap = XCONS (thismap)->cdr)
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1451 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1452 Lisp_Object elt;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1453
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1454 elt = XCONS (thismap)->car;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1455
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1456 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1457
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1458 if (CHAR_TABLE_P (elt))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1459 {
20076
374e09781f08 (Faccessible_keymaps): Avoid alloca for fixed-size array.
Karl Heuer <kwzh@gnu.org>
parents: 20070
diff changeset
1460 Lisp_Object indices[3];
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1461
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1462 map_char_table (accessible_keymaps_char_table, Qnil,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1463 elt, Fcons (maps, Fcons (tail, thisseq)),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1464 0, indices);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1465 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1466 else if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1467 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468 register int i;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1470 /* Vector keymap. Scan all the elements. */
2752
93eda5bbc4df (Faccessible_keymaps): Use whatever size the vector has.
Richard M. Stallman <rms@gnu.org>
parents: 2727
diff changeset
1471 for (i = 0; i < XVECTOR (elt)->size; i++)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1472 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1473 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1474 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1475
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
1476 cmd = get_keyelt (XVECTOR (elt)->contents[i], 0);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1477 if (NILP (cmd)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1478 tem = Fkeymapp (cmd);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1479 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1480 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1481 cmd = get_keymap (cmd);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1482 /* Ignore keymaps that are already added to maps. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1483 tem = Frassq (cmd, maps);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1484 if (NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1485 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1486 /* If the last key in thisseq is meta-prefix-char,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1487 turn it into a meta-ized keystroke. We know
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1488 that the event we're about to append is an
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1489 ascii keystroke since we're processing a
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1490 keymap table. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1491 if (is_metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1492 {
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1493 int meta_bit = meta_modifier;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1494 tem = Fcopy_sequence (thisseq);
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1495
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1496 Faset (tem, last, make_number (i | meta_bit));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1497
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1498 /* This new sequence is the same length as
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1499 thisseq, so stick it in the list right
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1500 after this one. */
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1501 XCONS (tail)->cdr
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1502 = Fcons (Fcons (tem, cmd), XCONS (tail)->cdr);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1503 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1504 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1505 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1506 tem = append_key (thisseq, make_number (i));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1507 nconc2 (tail, Fcons (Fcons (tem, cmd), Qnil));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1508 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1509 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1510 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1511 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1512 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1513 else if (CONSP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1514 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1515 register Lisp_Object cmd, tem, filter;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1516
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
1517 cmd = get_keyelt (XCONS (elt)->cdr, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1518 /* Ignore definitions that aren't keymaps themselves. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1519 tem = Fkeymapp (cmd);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1520 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1521 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1522 /* Ignore keymaps that have been seen already. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1523 cmd = get_keymap (cmd);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1524 tem = Frassq (cmd, maps);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1525 if (NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1526 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1527 /* Let elt be the event defined by this map entry. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1528 elt = XCONS (elt)->car;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1529
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1530 /* If the last key in thisseq is meta-prefix-char, and
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1531 this entry is a binding for an ascii keystroke,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1532 turn it into a meta-ized keystroke. */
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1533 if (is_metized && INTEGERP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1534 {
17264
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1535 Lisp_Object element;
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1536
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1537 element = thisseq;
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1538 tem = Fvconcat (1, &element);
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18142
diff changeset
1539 XSETFASTINT (XVECTOR (tem)->contents[XINT (last)],
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18142
diff changeset
1540 XINT (elt) | meta_modifier);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1541
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1542 /* This new sequence is the same length as
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1543 thisseq, so stick it in the list right
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1544 after this one. */
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1545 XCONS (tail)->cdr
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1546 = Fcons (Fcons (tem, cmd), XCONS (tail)->cdr);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1547 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1548 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1549 nconc2 (tail,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1550 Fcons (Fcons (append_key (thisseq, elt), cmd),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1551 Qnil));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1552 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1553 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1554 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1555 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1556 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1557
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1558 if (NILP (prefix))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1559 return maps;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1560
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1561 /* Now find just the maps whose access prefixes start with PREFIX. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1562
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1563 good_maps = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1564 for (; CONSP (maps); maps = XCONS (maps)->cdr)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1565 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1566 Lisp_Object elt, thisseq;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1567 elt = XCONS (maps)->car;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1568 thisseq = XCONS (elt)->car;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1569 /* The access prefix must be at least as long as PREFIX,
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1570 and the first elements must match those of PREFIX. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1571 if (XINT (Flength (thisseq)) >= prefixlen)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1572 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1573 int i;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1574 for (i = 0; i < prefixlen; i++)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1575 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1576 Lisp_Object i1;
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1577 XSETFASTINT (i1, i);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1578 if (!EQ (Faref (thisseq, i1), Faref (prefix, i1)))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1579 break;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1580 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1581 if (i == prefixlen)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1582 good_maps = Fcons (elt, good_maps);
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1583 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1584 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1585
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1586 return Fnreverse (good_maps);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1587 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1588
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
1589 static void
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1590 accessible_keymaps_char_table (args, index, cmd)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1591 Lisp_Object args, index, cmd;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1592 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1593 Lisp_Object tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1594 Lisp_Object maps, tail, thisseq;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1595
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1596 if (NILP (cmd))
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
1597 return;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1598
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1599 maps = XCONS (args)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1600 tail = XCONS (XCONS (args)->cdr)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1601 thisseq = XCONS (XCONS (args)->cdr)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1602
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1603 tem = Fkeymapp (cmd);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1604 if (!NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1605 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1606 cmd = get_keymap (cmd);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1607 /* Ignore keymaps that are already added to maps. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1608 tem = Frassq (cmd, maps);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1609 if (NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1610 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1611 tem = append_key (thisseq, index);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1612 nconc2 (tail, Fcons (Fcons (tem, cmd), Qnil));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1613 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1614 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1615 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1616
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1617 Lisp_Object Qsingle_key_description, Qkey_description;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1618
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1619 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1620
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1621 DEFUN ("key-description", Fkey_description, Skey_description, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1622 "Return a pretty description of key-sequence KEYS.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1623 Control characters turn into \"C-foo\" sequences, meta into \"M-foo\"\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1624 spaces are put between sequence elements, etc.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1625 (keys)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1626 Lisp_Object keys;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1627 {
7809
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1628 int len;
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1629 int i, i_byte;
7809
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1630 Lisp_Object sep;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1631 Lisp_Object *args;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1632
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
1633 if (STRINGP (keys))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1634 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1635 Lisp_Object vector;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1636 vector = Fmake_vector (Flength (keys), Qnil);
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1637 for (i = 0; i < XSTRING (keys)->size; )
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1638 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1639 int c;
20641
a48d24f8726c (push_key_description): If C >= 128, always use octal representation.
Kenichi Handa <handa@m17n.org>
parents: 20624
diff changeset
1640 int i_before = i;
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1641
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1642 if (STRING_MULTIBYTE (keys))
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1643 FETCH_STRING_CHAR_ADVANCE (c, keys, i, i_byte);
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1644 else
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1645 c = XSTRING (keys)->data[i++];
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1646
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1647 if (c & 0x80)
20644
52c939e2dd32 (Fkey_description): Remember to set i_before.
Kenichi Handa <handa@m17n.org>
parents: 20641
diff changeset
1648 XSETFASTINT (XVECTOR (vector)->contents[i_before],
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1649 meta_modifier | (c & ~0x80));
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1650 else
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1651 XSETFASTINT (XVECTOR (vector)->contents[i_before], c);
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1652 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1653 keys = vector;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1654 }
8922
67b7eb875a1e (Fkey_description): Reverse condition.
Karl Heuer <kwzh@gnu.org>
parents: 8866
diff changeset
1655 else if (!VECTORP (keys))
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
1656 keys = wrong_type_argument (Qarrayp, keys);
7809
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1657
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1658 /* In effect, this computes
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1659 (mapconcat 'single-key-description keys " ")
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1660 but we shouldn't use mapconcat because it can do GC. */
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1661
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1662 len = XVECTOR (keys)->size;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1663 sep = build_string (" ");
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1664 /* This has one extra element at the end that we don't pass to Fconcat. */
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1665 args = (Lisp_Object *) alloca (len * 2 * sizeof (Lisp_Object));
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1666
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1667 for (i = 0; i < len; i++)
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1668 {
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1669 args[i * 2] = Fsingle_key_description (XVECTOR (keys)->contents[i]);
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1670 args[i * 2 + 1] = sep;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1671 }
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1672
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1673 return Fconcat (len * 2 - 1, args);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1674 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1675
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1676 char *
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1677 push_key_description (c, p)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1678 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1679 register char *p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1680 {
2343
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
1681 /* Clear all the meaningless bits above the meta bit. */
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
1682 c &= meta_modifier | ~ - meta_modifier;
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
1683
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1684 if (c & alt_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1685 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1686 *p++ = 'A';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1687 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1688 c -= alt_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1689 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1690 if (c & ctrl_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1691 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1692 *p++ = 'C';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1693 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1694 c -= ctrl_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1695 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1696 if (c & hyper_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1697 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1698 *p++ = 'H';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1699 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1700 c -= hyper_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1701 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1702 if (c & meta_modifier)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1703 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1704 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1705 *p++ = '-';
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1706 c -= meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1707 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1708 if (c & shift_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1709 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1710 *p++ = 'S';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1711 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1712 c -= shift_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1713 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1714 if (c & super_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1715 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1716 *p++ = 's';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1717 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1718 c -= super_modifier;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1719 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720 if (c < 040)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1722 if (c == 033)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1723 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1724 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1725 *p++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1726 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727 }
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1728 else if (c == '\t')
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1729 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1730 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1731 *p++ = 'A';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1732 *p++ = 'B';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1733 }
16875
d9956cf6699b (push_key_description): Print C-j, not TAB.
Richard M. Stallman <rms@gnu.org>
parents: 16465
diff changeset
1734 else if (c == Ctl ('M'))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1735 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1736 *p++ = 'R';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1737 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1738 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1739 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1740 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1741 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1742 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1743 *p++ = '-';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1744 if (c > 0 && c <= Ctl ('Z'))
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1745 *p++ = c + 0140;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1746 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1747 *p++ = c + 0100;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1748 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1749 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1750 else if (c == 0177)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1751 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1752 *p++ = 'D';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1753 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1754 *p++ = 'L';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1755 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1756 else if (c == ' ')
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1757 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1758 *p++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1759 *p++ = 'P';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1760 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1761 }
20641
a48d24f8726c (push_key_description): If C >= 128, always use octal representation.
Kenichi Handa <handa@m17n.org>
parents: 20624
diff changeset
1762 else if (c < 128)
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1763 *p++ = c;
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1764 else if (c < 512)
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1765 {
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1766 *p++ = '\\';
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1767 *p++ = (7 & (c >> 6)) + '0';
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1768 *p++ = (7 & (c >> 3)) + '0';
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1769 *p++ = (7 & (c >> 0)) + '0';
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1770 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1771 else
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1772 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1773 *p++ = '\\';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1774 *p++ = (7 & (c >> 15)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1775 *p++ = (7 & (c >> 12)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1776 *p++ = (7 & (c >> 9)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1777 *p++ = (7 & (c >> 6)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1778 *p++ = (7 & (c >> 3)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1779 *p++ = (7 & (c >> 0)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1780 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1781
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1782 return p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1783 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1784
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1785 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1786
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1787 DEFUN ("single-key-description", Fsingle_key_description, Ssingle_key_description, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1788 "Return a pretty description of command character KEY.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1789 Control characters turn into C-whatever, etc.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1790 (key)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1791 Lisp_Object key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1792 {
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1793 char tem[20];
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1794
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
1795 key = EVENT_HEAD (key);
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1796
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1797 if (INTEGERP (key)) /* Normal character */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1798 {
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1799 *push_key_description (XUINT (key), tem) = 0;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1800 return build_string (tem);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1801 }
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1802 else if (SYMBOLP (key)) /* Function key or event-symbol */
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1803 return Fsymbol_name (key);
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1804 else if (STRINGP (key)) /* Buffer names in the menubar. */
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1805 return Fcopy_sequence (key);
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1806 else
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1807 error ("KEY must be an integer, cons, symbol, or string");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1808 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1809
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1810 char *
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1811 push_text_char_description (c, p)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1812 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1813 register char *p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1814 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1815 if (c >= 0200)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1816 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 *p++ = '-';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819 c -= 0200;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1820 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1821 if (c < 040)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1822 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1823 *p++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1824 *p++ = c + 64; /* 'A' - 1 */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1825 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1826 else if (c == 0177)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1827 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1828 *p++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1829 *p++ = '?';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1830 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1831 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1832 *p++ = c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1833 return p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1834 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1835
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1836 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1837
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1838 DEFUN ("text-char-description", Ftext_char_description, Stext_char_description, 1, 1, 0,
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1839 "Return a pretty description of file-character CHARACTER.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1840 Control characters turn into \"^char\", etc.")
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1841 (character)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1842 Lisp_Object character;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1843 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1844 char tem[6];
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1845
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1846 CHECK_NUMBER (character, 0);
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1847
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1848 if (!SINGLE_BYTE_CHAR_P (XFASTINT (character)))
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1849 {
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
1850 unsigned char *str;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1851 int len = non_ascii_char_to_string (XFASTINT (character), tem, &str);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1852
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
1853 return make_multibyte_string (str, 1, len);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1854 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1855
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1856 *push_text_char_description (XINT (character) & 0377, tem) = 0;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1857
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1858 return build_string (tem);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1859 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1860
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1861 /* Return non-zero if SEQ contains only ASCII characters, perhaps with
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1862 a meta bit. */
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1863 static int
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1864 ascii_sequence_p (seq)
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1865 Lisp_Object seq;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1866 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1867 int i;
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1868 int len = XINT (Flength (seq));
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
1869
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1870 for (i = 0; i < len; i++)
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1871 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1872 Lisp_Object ii, elt;
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
1873
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1874 XSETFASTINT (ii, i);
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1875 elt = Faref (seq, ii);
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1876
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1877 if (!INTEGERP (elt)
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1878 || (XUINT (elt) & ~CHAR_META) >= 0x80)
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1879 return 0;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1880 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1881
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1882 return 1;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1883 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1884
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1885
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1886 /* where-is - finding a command in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1887
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1888 static Lisp_Object where_is_internal_1 ();
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
1889 static void where_is_internal_2 ();
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1890
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1891 /* This function can GC if Flookup_key autoloads any keymaps. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1892
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1893 DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 4, 0,
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1894 "Return list of keys that invoke DEFINITION.\n\
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1895 If KEYMAP is non-nil, search only KEYMAP and the global keymap.\n\
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1896 If KEYMAP is nil, search all the currently active keymaps.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1897 \n\
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1898 If optional 3rd arg FIRSTONLY is non-nil, return the first key sequence found,\n\
5246
bec1126c6c00 (Fwhere_is_internal): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5100
diff changeset
1899 rather than a list of all possible key sequences.\n\
10810
9b418bde9fcf (Fwhere_is_internal): If FIRSTONLY is not nil or non-ascii,
Richard M. Stallman <rms@gnu.org>
parents: 10541
diff changeset
1900 If FIRSTONLY is the symbol `non-ascii', return the first binding found,\n\
9b418bde9fcf (Fwhere_is_internal): If FIRSTONLY is not nil or non-ascii,
Richard M. Stallman <rms@gnu.org>
parents: 10541
diff changeset
1901 no matter what it is.\n\
11089
3759523c1773 (Fwhere_is_internal): Fix missing \n\.
Karl Heuer <kwzh@gnu.org>
parents: 10840
diff changeset
1902 If FIRSTONLY has another non-nil value, prefer sequences of ASCII characters,\n\
10810
9b418bde9fcf (Fwhere_is_internal): If FIRSTONLY is not nil or non-ascii,
Richard M. Stallman <rms@gnu.org>
parents: 10541
diff changeset
1903 and entirely reject menu bindings.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1904 \n\
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1905 If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1906 to other keymaps or slots. This makes it possible to search for an\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1907 indirect definition itself.")
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1908 (definition, keymap, firstonly, noindirect)
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1909 Lisp_Object definition, keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1910 Lisp_Object firstonly, noindirect;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1911 {
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1912 Lisp_Object maps;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1913 Lisp_Object found, sequences;
20070
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1914 Lisp_Object keymap1;
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1915 int keymap_specified = !NILP (keymap);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1916 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
10810
9b418bde9fcf (Fwhere_is_internal): If FIRSTONLY is not nil or non-ascii,
Richard M. Stallman <rms@gnu.org>
parents: 10541
diff changeset
1917 /* 1 means ignore all menu bindings entirely. */
9b418bde9fcf (Fwhere_is_internal): If FIRSTONLY is not nil or non-ascii,
Richard M. Stallman <rms@gnu.org>
parents: 10541
diff changeset
1918 int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1919
20070
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1920 /* Find keymaps accessible from `keymap' or the current
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1921 context. But don't muck with the value of `keymap',
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1922 because `where_is_internal_1' uses it to check for
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1923 shadowed bindings. */
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1924 keymap1 = keymap;
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1925 if (! keymap_specified)
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1926 {
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1927 #ifdef USE_TEXT_PROPERTIES
20070
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1928 keymap1 = get_local_map (PT, current_buffer);
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1929 #else
20070
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1930 keymap1 = current_buffer->keymap;
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1931 #endif
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1932 }
20070
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1933
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1934 if (!NILP (keymap1))
9561d65fd9c3 (Fwhere_is_internal): some minor mode bindings weren't
Karl Heuer <kwzh@gnu.org>
parents: 19984
diff changeset
1935 maps = nconc2 (Faccessible_keymaps (get_keymap (keymap1), Qnil),
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1936 Faccessible_keymaps (get_keymap (current_global_map),
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1937 Qnil));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1938 else
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1939 maps = Faccessible_keymaps (get_keymap (current_global_map), Qnil);
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1940
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1941 /* Put the minor mode keymaps on the front. */
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1942 if (! keymap_specified)
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1943 {
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1944 Lisp_Object minors;
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1945 minors = Fnreverse (Fcurrent_minor_mode_maps ());
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1946 while (!NILP (minors))
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1947 {
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1948 maps = nconc2 (Faccessible_keymaps (get_keymap (XCONS (minors)->car),
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1949 Qnil),
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1950 maps);
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1951 minors = XCONS (minors)->cdr;
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1952 }
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1953 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1954
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1955 GCPRO5 (definition, keymap, maps, found, sequences);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1956 found = Qnil;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1957 sequences = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1958
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1959 for (; !NILP (maps); maps = Fcdr (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1960 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1961 /* Key sequence to reach map, and the map that it reaches */
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1962 register Lisp_Object this, map;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1963
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1964 /* In order to fold [META-PREFIX-CHAR CHAR] sequences into
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1965 [M-CHAR] sequences, check if last character of the sequence
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1966 is the meta-prefix char. */
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1967 Lisp_Object last;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1968 int last_is_meta;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1969
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1970 this = Fcar (Fcar (maps));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1971 map = Fcdr (Fcar (maps));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1972 last = make_number (XINT (Flength (this)) - 1);
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1973 last_is_meta = (XINT (last) >= 0
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1974 && EQ (Faref (this, last), meta_prefix_char));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1975
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1976 QUIT;
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1977
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1978 while (CONSP (map))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1979 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1980 /* Because the code we want to run on each binding is rather
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1981 large, we don't want to have two separate loop bodies for
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1982 sparse keymap bindings and tables; we want to iterate one
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1983 loop body over both keymap and vector bindings.
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1984
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1985 For this reason, if Fcar (map) is a vector, we don't
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1986 advance map to the next element until i indicates that we
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1987 have finished off the vector. */
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1988 Lisp_Object elt, key, binding;
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1989 elt = XCONS (map)->car;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1990 map = XCONS (map)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1991
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1992 sequences = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1993
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1994 QUIT;
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1995
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1996 /* Set key and binding to the current key and binding, and
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1997 advance map and i to the next binding. */
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1998 if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1999 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2000 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2001 int i;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2002 /* In a vector, look at each element. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2003 for (i = 0; i < XVECTOR (elt)->size; i++)
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2004 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2005 binding = XVECTOR (elt)->contents[i];
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2006 XSETFASTINT (key, i);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2007 sequence = where_is_internal_1 (binding, key, definition,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2008 noindirect, keymap, this,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2009 last, nomenus, last_is_meta);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2010 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2011 sequences = Fcons (sequence, sequences);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2012 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2013 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2014 else if (CHAR_TABLE_P (elt))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2015 {
20076
374e09781f08 (Faccessible_keymaps): Avoid alloca for fixed-size array.
Karl Heuer <kwzh@gnu.org>
parents: 20070
diff changeset
2016 Lisp_Object indices[3];
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2017 Lisp_Object args;
20076
374e09781f08 (Faccessible_keymaps): Avoid alloca for fixed-size array.
Karl Heuer <kwzh@gnu.org>
parents: 20070
diff changeset
2018
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2019 args = Fcons (Fcons (Fcons (definition, noindirect),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2020 Fcons (keymap, Qnil)),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2021 Fcons (Fcons (this, last),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2022 Fcons (make_number (nomenus),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2023 make_number (last_is_meta))));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2024
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2025 map_char_table (where_is_internal_2, Qnil, elt, args,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2026 0, indices);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2027 sequences = XCONS (XCONS (XCONS (args)->car)->cdr)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2028 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2029 else if (CONSP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2030 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2031 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2032
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2033 key = XCONS (elt)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2034 binding = XCONS (elt)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2035
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2036 sequence = where_is_internal_1 (binding, key, definition,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2037 noindirect, keymap, this,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2038 last, nomenus, last_is_meta);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2039 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2040 sequences = Fcons (sequence, sequences);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2041 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2042
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2043
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2044 for (; ! NILP (sequences); sequences = XCONS (sequences)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2045 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2046 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2047
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2048 sequence = XCONS (sequences)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2049
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2050 /* It is a true unshadowed match. Record it, unless it's already
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2051 been seen (as could happen when inheriting keymaps). */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2052 if (NILP (Fmember (sequence, found)))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2053 found = Fcons (sequence, found);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2054
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2055 /* If firstonly is Qnon_ascii, then we can return the first
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2056 binding we find. If firstonly is not Qnon_ascii but not
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2057 nil, then we should return the first ascii-only binding
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2058 we find. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2059 if (EQ (firstonly, Qnon_ascii))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2060 RETURN_UNGCPRO (sequence);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2061 else if (! NILP (firstonly) && ascii_sequence_p (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2062 RETURN_UNGCPRO (sequence);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2063 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2064 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2065 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2066
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2067 UNGCPRO;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2068
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2069 found = Fnreverse (found);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2070
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2071 /* firstonly may have been t, but we may have gone all the way through
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2072 the keymaps without finding an all-ASCII key sequence. So just
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2073 return the best we could find. */
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2074 if (! NILP (firstonly))
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2075 return Fcar (found);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2076
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2077 return found;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2078 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2079
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2080 /* This is the function that Fwhere_is_internal calls using map_char_table.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2081 ARGS has the form
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2082 (((DEFINITION . NOINDIRECT) . (KEYMAP . RESULT))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2083 .
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2084 ((THIS . LAST) . (NOMENUS . LAST_IS_META)))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2085 Since map_char_table doesn't really use the return value from this function,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2086 we the result append to RESULT, the slot in ARGS. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2087
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
2088 static void
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2089 where_is_internal_2 (args, key, binding)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2090 Lisp_Object args, key, binding;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2091 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2092 Lisp_Object definition, noindirect, keymap, this, last;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2093 Lisp_Object result, sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2094 int nomenus, last_is_meta;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2095
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2096 result = XCONS (XCONS (XCONS (args)->car)->cdr)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2097 definition = XCONS (XCONS (XCONS (args)->car)->car)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2098 noindirect = XCONS (XCONS (XCONS (args)->car)->car)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2099 keymap = XCONS (XCONS (XCONS (args)->car)->cdr)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2100 this = XCONS (XCONS (XCONS (args)->cdr)->car)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2101 last = XCONS (XCONS (XCONS (args)->cdr)->car)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2102 nomenus = XFASTINT (XCONS (XCONS (XCONS (args)->cdr)->cdr)->car);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2103 last_is_meta = XFASTINT (XCONS (XCONS (XCONS (args)->cdr)->cdr)->cdr);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2104
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2105 sequence = where_is_internal_1 (binding, key, definition, noindirect, keymap,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2106 this, last, nomenus, last_is_meta);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2107
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2108 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2109 XCONS (XCONS (XCONS (args)->car)->cdr)->cdr
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2110 = Fcons (sequence, result);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2111 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2112
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2113 static Lisp_Object
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2114 where_is_internal_1 (binding, key, definition, noindirect, keymap, this, last,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2115 nomenus, last_is_meta)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2116 Lisp_Object binding, key, definition, noindirect, keymap, this, last;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2117 int nomenus, last_is_meta;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2118 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2119 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2120 int keymap_specified = !NILP (keymap);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2121
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2122 /* Search through indirections unless that's not wanted. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2123 if (NILP (noindirect))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2124 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2125 if (nomenus)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2126 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2127 while (1)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2128 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2129 Lisp_Object map, tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2130 /* If the contents are (KEYMAP . ELEMENT), go indirect. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2131 map = get_keymap_1 (Fcar_safe (definition), 0, 0);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2132 tem = Fkeymapp (map);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2133 if (!NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2134 definition = access_keymap (map, Fcdr (definition), 0, 0);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2135 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2136 break;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2137 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2138 /* If the contents are (STRING ...), reject. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2139 if (CONSP (definition)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2140 && STRINGP (XCONS (definition)->car))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2141 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2142 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2143 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2144 binding = get_keyelt (binding, 0);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2145 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2146
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2147 /* End this iteration if this element does not match
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2148 the target. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2149
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2150 if (CONSP (definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2151 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2152 Lisp_Object tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2153 tem = Fequal (binding, definition);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2154 if (NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2155 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2156 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2157 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2158 if (!EQ (binding, definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2159 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2160
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2161 /* We have found a match.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2162 Construct the key sequence where we found it. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2163 if (INTEGERP (key) && last_is_meta)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2164 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2165 sequence = Fcopy_sequence (this);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2166 Faset (sequence, last, make_number (XINT (key) | meta_modifier));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2167 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2168 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2169 sequence = append_key (this, key);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2170
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2171 /* Verify that this key binding is not shadowed by another
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2172 binding for the same key, before we say it exists.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2173
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2174 Mechanism: look for local definition of this key and if
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2175 it is defined and does not match what we found then
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2176 ignore this key.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2177
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2178 Either nil or number as value from Flookup_key
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2179 means undefined. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2180 if (keymap_specified)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2181 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2182 binding = Flookup_key (keymap, sequence, Qnil);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2183 if (!NILP (binding) && !INTEGERP (binding))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2184 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2185 if (CONSP (definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2186 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2187 Lisp_Object tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2188 tem = Fequal (binding, definition);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2189 if (NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2190 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2191 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2192 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2193 if (!EQ (binding, definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2194 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2195 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2196 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2197 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2198 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2199 binding = Fkey_binding (sequence, Qnil);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2200 if (!EQ (binding, definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2201 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2202 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2203
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2204 return sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2205 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2206
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2207 /* describe-bindings - summarizing all the bindings in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2208
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2209 DEFUN ("describe-bindings-internal", Fdescribe_bindings_internal, Sdescribe_bindings_internal, 0, 2, "",
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2210 "Show a list of all defined keys, and their definitions.\n\
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2211 We put that list in a buffer, and display the buffer.\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2212 \n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2213 The optional argument MENUS, if non-nil, says to mention menu bindings.\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2214 \(Ordinarily these are omitted from the output.)\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2215 The optional argument PREFIX, if non-nil, should be a key sequence;\n\
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2216 then we display only bindings that start with that prefix.")
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2217 (menus, prefix)
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2218 Lisp_Object menus, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2219 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2220 register Lisp_Object thisbuf;
9273
129621997564 (synkey, Fdescribe_bindings, describe_command): Use new accessor macros
Karl Heuer <kwzh@gnu.org>
parents: 9123
diff changeset
2221 XSETBUFFER (thisbuf, current_buffer);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2222 internal_with_output_to_temp_buffer ("*Help*",
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2223 describe_buffer_bindings,
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2224 list3 (thisbuf, prefix, menus));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2225 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2226 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2227
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2228 /* ARG is (BUFFER PREFIX MENU-FLAG). */
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2229
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2230 static Lisp_Object
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2231 describe_buffer_bindings (arg)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2232 Lisp_Object arg;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2233 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2234 Lisp_Object descbuf, prefix, shadow;
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2235 int nomenu;
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2236 register Lisp_Object start1;
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2237 struct gcpro gcpro1;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2238
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2239 char *alternate_heading
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2240 = "\
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2241 Keyboard translations:\n\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2242 You type Translation\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2243 -------- -----------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2244
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2245 descbuf = XCONS (arg)->car;
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2246 arg = XCONS (arg)->cdr;
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2247 prefix = XCONS (arg)->car;
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2248 arg = XCONS (arg)->cdr;
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2249 nomenu = NILP (XCONS (arg)->car);
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2250
4575
bf0f07186369 (describe_buffer_bindings): Declare shadow just once.
Richard M. Stallman <rms@gnu.org>
parents: 4138
diff changeset
2251 shadow = Qnil;
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2252 GCPRO1 (shadow);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2253
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2254 Fset_buffer (Vstandard_output);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2255
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2256 /* Report on alternates for keys. */
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2257 if (STRINGP (Vkeyboard_translate_table) && !NILP (prefix))
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2258 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2259 int c;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2260 unsigned char *translate = XSTRING (Vkeyboard_translate_table)->data;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2261 int translate_len = XSTRING (Vkeyboard_translate_table)->size;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2262
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2263 for (c = 0; c < translate_len; c++)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2264 if (translate[c] != c)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2265 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2266 char buf[20];
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2267 char *bufend;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2268
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2269 if (alternate_heading)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2270 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2271 insert_string (alternate_heading);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2272 alternate_heading = 0;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2273 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2274
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2275 bufend = push_key_description (translate[c], buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2276 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2277 Findent_to (make_number (16), make_number (1));
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2278 bufend = push_key_description (c, buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2279 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2280
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2281 insert ("\n", 1);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2282 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2283
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2284 insert ("\n", 1);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2285 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2286
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2287 if (!NILP (Vkey_translation_map))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2288 describe_map_tree (Vkey_translation_map, 0, Qnil, prefix,
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2289 "Key translations", nomenu, 1, 0);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2290
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2291 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2292 int i, nmaps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2293 Lisp_Object *modes, *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2294
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2295 /* Temporarily switch to descbuf, so that we can get that buffer's
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2296 minor modes correctly. */
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2297 Fset_buffer (descbuf);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2298
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2299 if (!NILP (current_kboard->Voverriding_terminal_local_map)
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2300 || !NILP (Voverriding_local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2301 nmaps = 0;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2302 else
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2303 nmaps = current_minor_maps (&modes, &maps);
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2304 Fset_buffer (Vstandard_output);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2305
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2306 /* Print the minor mode maps. */
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2307 for (i = 0; i < nmaps; i++)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2308 {
6695
c66bed2f25af (describe_buffer_bindings): Move XSYMBOL to after SYMBOLP.
Karl Heuer <kwzh@gnu.org>
parents: 6524
diff changeset
2309 /* The title for a minor mode keymap
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2310 is constructed at run time.
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2311 We let describe_map_tree do the actual insertion
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2312 because it takes care of other features when doing so. */
6695
c66bed2f25af (describe_buffer_bindings): Move XSYMBOL to after SYMBOLP.
Karl Heuer <kwzh@gnu.org>
parents: 6524
diff changeset
2313 char *title, *p;
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2314
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2315 if (!SYMBOLP (modes[i]))
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2316 abort();
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2317
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2318 p = title = (char *) alloca (40 + XSYMBOL (modes[i])->name->size);
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2319 *p++ = '`';
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2320 bcopy (XSYMBOL (modes[i])->name->data, p,
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2321 XSYMBOL (modes[i])->name->size);
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2322 p += XSYMBOL (modes[i])->name->size;
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2323 *p++ = '\'';
6695
c66bed2f25af (describe_buffer_bindings): Move XSYMBOL to after SYMBOLP.
Karl Heuer <kwzh@gnu.org>
parents: 6524
diff changeset
2324 bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings") - 1);
c66bed2f25af (describe_buffer_bindings): Move XSYMBOL to after SYMBOLP.
Karl Heuer <kwzh@gnu.org>
parents: 6524
diff changeset
2325 p += sizeof (" Minor Mode Bindings") - 1;
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2326 *p = 0;
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2327
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2328 describe_map_tree (maps[i], 1, shadow, prefix, title, nomenu, 0, 0);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2329 shadow = Fcons (maps[i], shadow);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2330 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2331 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2332
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2333 /* Print the (major mode) local map. */
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2334 if (!NILP (current_kboard->Voverriding_terminal_local_map))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2335 start1 = current_kboard->Voverriding_terminal_local_map;
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2336 else if (!NILP (Voverriding_local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2337 start1 = Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2338 else
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2339 start1 = XBUFFER (descbuf)->keymap;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2340
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2341 if (!NILP (start1))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2342 {
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
2343 describe_map_tree (start1, 1, shadow, prefix,
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2344 "Major Mode Bindings", nomenu, 0, 0);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2345 shadow = Fcons (start1, shadow);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2346 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2347
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
2348 describe_map_tree (current_global_map, 1, shadow, prefix,
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2349 "Global Bindings", nomenu, 0, 1);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2350
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2351 /* Print the function-key-map translations under this prefix. */
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2352 if (!NILP (Vfunction_key_map))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2353 describe_map_tree (Vfunction_key_map, 0, Qnil, prefix,
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2354 "Function key map translations", nomenu, 1, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2355
9862
d35ed70c84d4 (describe_buffer_bindings): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9312
diff changeset
2356 call0 (intern ("help-mode"));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2357 Fset_buffer (descbuf);
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2358 UNGCPRO;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2359 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2360 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2361
13947
65488aa49b87 (Flookup_key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13771
diff changeset
2362 /* Insert a description of the key bindings in STARTMAP,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2363 followed by those of all maps reachable through STARTMAP.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2364 If PARTIAL is nonzero, omit certain "uninteresting" commands
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2365 (such as `undefined').
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2366 If SHADOW is non-nil, it is a list of maps;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2367 don't mention keys which would be shadowed by any of them.
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2368 PREFIX, if non-nil, says mention only keys that start with PREFIX.
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2369 TITLE, if not 0, is a string to insert at the beginning.
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2370 TITLE should not end with a colon or a newline; we supply that.
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2371 If NOMENU is not 0, then omit menu-bar commands.
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2372
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2373 If TRANSL is nonzero, the definitions are actually key translations
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2374 so print strings and vectors differently.
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2375
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2376 If ALWAYS_TITLE is nonzero, print the title even if there are no maps
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2377 to look through. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2378
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2379 void
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2380 describe_map_tree (startmap, partial, shadow, prefix, title, nomenu, transl,
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2381 always_title)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2382 Lisp_Object startmap, shadow, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2383 int partial;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2384 char *title;
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2385 int nomenu;
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2386 int transl;
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2387 int always_title;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2388 {
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2389 Lisp_Object maps, orig_maps, seen, sub_shadows;
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2390 struct gcpro gcpro1, gcpro2, gcpro3;
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2391 int something = 0;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2392 char *key_heading
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2393 = "\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2394 key binding\n\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2395 --- -------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2396
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2397 orig_maps = maps = Faccessible_keymaps (startmap, prefix);
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2398 seen = Qnil;
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2399 sub_shadows = Qnil;
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2400 GCPRO3 (maps, seen, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2401
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2402 if (nomenu)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2403 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2404 Lisp_Object list;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2405
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2406 /* Delete from MAPS each element that is for the menu bar. */
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2407 for (list = maps; !NILP (list); list = XCONS (list)->cdr)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2408 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2409 Lisp_Object elt, prefix, tem;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2410
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2411 elt = Fcar (list);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2412 prefix = Fcar (elt);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2413 if (XVECTOR (prefix)->size >= 1)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2414 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2415 tem = Faref (prefix, make_number (0));
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2416 if (EQ (tem, Qmenu_bar))
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2417 maps = Fdelq (elt, maps);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2418 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2419 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2420 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2421
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2422 if (!NILP (maps) || always_title)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2423 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2424 if (title)
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2425 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2426 insert_string (title);
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2427 if (!NILP (prefix))
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2428 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2429 insert_string (" Starting With ");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2430 insert1 (Fkey_description (prefix));
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2431 }
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2432 insert_string (":\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2433 }
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2434 insert_string (key_heading);
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2435 something = 1;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2436 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2437
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2438 for (; !NILP (maps); maps = Fcdr (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2439 {
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2440 register Lisp_Object elt, prefix, tail;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2441
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2442 elt = Fcar (maps);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2443 prefix = Fcar (elt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2444
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2445 sub_shadows = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2446
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2447 for (tail = shadow; CONSP (tail); tail = XCONS (tail)->cdr)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2448 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2449 Lisp_Object shmap;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2450
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2451 shmap = XCONS (tail)->car;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2452
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2453 /* If the sequence by which we reach this keymap is zero-length,
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2454 then the shadow map for this keymap is just SHADOW. */
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2455 if ((STRINGP (prefix) && XSTRING (prefix)->size == 0)
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2456 || (VECTORP (prefix) && XVECTOR (prefix)->size == 0))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2457 ;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2458 /* If the sequence by which we reach this keymap actually has
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2459 some elements, then the sequence's definition in SHADOW is
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2460 what we should use. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2461 else
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2462 {
6859
f34b91fa388c (describe_map_tree): Fix call to Flookup_key.
Richard M. Stallman <rms@gnu.org>
parents: 6834
diff changeset
2463 shmap = Flookup_key (shmap, Fcar (elt), Qt);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2464 if (INTEGERP (shmap))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2465 shmap = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2466 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2467
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2468 /* If shmap is not nil and not a keymap,
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2469 it completely shadows this map, so don't
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2470 describe this map at all. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2471 if (!NILP (shmap) && NILP (Fkeymapp (shmap)))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2472 goto skip;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2473
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2474 if (!NILP (shmap))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2475 sub_shadows = Fcons (shmap, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2476 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2477
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2478 /* Maps we have already listed in this loop shadow this map. */
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2479 for (tail = orig_maps; ! EQ (tail, maps); tail = XCDR (tail))
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2480 {
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2481 Lisp_Object tem;
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2482 tem = Fequal (Fcar (XCAR (tail)), prefix);
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2483 if (! NILP (tem))
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2484 sub_shadows = Fcons (XCDR (XCAR (tail)), sub_shadows);
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2485 }
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2486
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
2487 describe_map (Fcdr (elt), prefix,
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2488 transl ? describe_translation : describe_command,
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2489 partial, sub_shadows, &seen, nomenu);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2490
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2491 skip: ;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2492 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2493
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2494 if (something)
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2495 insert_string ("\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2496
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2497 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2498 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2499
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2500 static int previous_description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2501
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2502 static void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2503 describe_command (definition)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2504 Lisp_Object definition;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2505 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2506 register Lisp_Object tem1;
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2507 int column = current_column ();
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2508 int description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2509
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2510 /* If column 16 is no good, go to col 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2511 but don't push beyond that--go to next line instead. */
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2512 if (column > 30)
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2513 {
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2514 insert_char ('\n');
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2515 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2516 }
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2517 else if (column > 14 || (column > 10 && previous_description_column == 32))
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2518 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2519 else
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2520 description_column = 16;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2521
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2522 Findent_to (make_number (description_column), make_number (1));
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2523 previous_description_column = description_column;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2524
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2525 if (SYMBOLP (definition))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2526 {
9273
129621997564 (synkey, Fdescribe_bindings, describe_command): Use new accessor macros
Karl Heuer <kwzh@gnu.org>
parents: 9123
diff changeset
2527 XSETSTRING (tem1, XSYMBOL (definition)->name);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2528 insert1 (tem1);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2529 insert_string ("\n");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2530 }
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2531 else if (STRINGP (definition) || VECTORP (definition))
5367
e4f5f2674f34 (describe_command): If binding is a kbd macro, say so.
Richard M. Stallman <rms@gnu.org>
parents: 5246
diff changeset
2532 insert_string ("Keyboard Macro\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2533 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2534 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2535 tem1 = Fkeymapp (definition);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2536 if (!NILP (tem1))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2537 insert_string ("Prefix Command\n");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2538 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2539 insert_string ("??\n");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2540 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2541 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2542
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2543 static void
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2544 describe_translation (definition)
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2545 Lisp_Object definition;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2546 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2547 register Lisp_Object tem1;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2548
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2549 Findent_to (make_number (16), make_number (1));
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2550
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2551 if (SYMBOLP (definition))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2552 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2553 XSETSTRING (tem1, XSYMBOL (definition)->name);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2554 insert1 (tem1);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2555 insert_string ("\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2556 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2557 else if (STRINGP (definition) || VECTORP (definition))
13343
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
2558 {
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
2559 insert1 (Fkey_description (definition));
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
2560 insert_string ("\n");
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
2561 }
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2562 else
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2563 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2564 tem1 = Fkeymapp (definition);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2565 if (!NILP (tem1))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2566 insert_string ("Prefix Command\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2567 else
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2568 insert_string ("??\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2569 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2570 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2571
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2572 /* Like Flookup_key, but uses a list of keymaps SHADOW instead of a single map.
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2573 Returns the first non-nil binding found in any of those maps. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2574
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2575 static Lisp_Object
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2576 shadow_lookup (shadow, key, flag)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2577 Lisp_Object shadow, key, flag;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2578 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2579 Lisp_Object tail, value;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2580
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2581 for (tail = shadow; CONSP (tail); tail = XCONS (tail)->cdr)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2582 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2583 value = Flookup_key (XCONS (tail)->car, key, flag);
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2584 if (!NILP (value))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2585 return value;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2586 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2587 return Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2588 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2589
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2590 /* Describe the contents of map MAP, assuming that this map itself is
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2591 reached by the sequence of prefix keys KEYS (a string or vector).
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2592 PARTIAL, SHADOW, NOMENU are as in `describe_map_tree' above. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2593
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2594 static void
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2595 describe_map (map, keys, elt_describer, partial, shadow, seen, nomenu)
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2596 register Lisp_Object map;
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2597 Lisp_Object keys;
20381
1dd3842977c0 (describe_map): Fix decl of arg ELT_DESCRIBER.
Andreas Schwab <schwab@suse.de>
parents: 20374
diff changeset
2598 void (*elt_describer) P_ ((Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2599 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2600 Lisp_Object shadow;
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2601 Lisp_Object *seen;
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2602 int nomenu;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2603 {
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2604 Lisp_Object elt_prefix;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2605 Lisp_Object tail, definition, event;
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2606 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2607 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2608 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2609 int first = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2610 struct gcpro gcpro1, gcpro2, gcpro3;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2611
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2612 if (!NILP (keys) && XFASTINT (Flength (keys)) > 0)
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2613 {
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2614 /* Call Fkey_description first, to avoid GC bug for the other string. */
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2615 tem = Fkey_description (keys);
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2616 elt_prefix = concat2 (tem, build_string (" "));
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2617 }
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2618 else
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2619 elt_prefix = Qnil;
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2620
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2621 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2622 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2623
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2624 /* This vector gets used to present single keys to Flookup_key. Since
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2625 that is done once per keymap element, we don't want to cons up a
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2626 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2627 kludge = Fmake_vector (make_number (1), Qnil);
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2628 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2629
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2630 GCPRO3 (elt_prefix, definition, kludge);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2631
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2632 for (tail = map; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2633 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2634 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2635
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2636 if (VECTORP (XCONS (tail)->car)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2637 || CHAR_TABLE_P (XCONS (tail)->car))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2638 describe_vector (XCONS (tail)->car,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2639 elt_prefix, elt_describer, partial, shadow, map,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2640 (int *)0, 0);
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2641 else if (CONSP (XCONS (tail)->car))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2642 {
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2643 event = XCONS (XCONS (tail)->car)->car;
7341
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
2644
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
2645 /* Ignore bindings whose "keys" are not really valid events.
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
2646 (We get these in the frames and buffers menu.) */
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
2647 if (! (SYMBOLP (event) || INTEGERP (event)))
7191
bd2f9c5ee54e (Fsingle_key_description): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents: 7186
diff changeset
2648 continue;
7341
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
2649
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2650 if (nomenu && EQ (event, Qmenu_bar))
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2651 continue;
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2652
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2653 definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2654
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2655 /* Don't show undefined commands or suppressed commands. */
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2656 if (NILP (definition)) continue;
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2657 if (SYMBOLP (definition) && partial)
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2658 {
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2659 tem = Fget (definition, suppress);
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2660 if (!NILP (tem))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2661 continue;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2662 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2663
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2664 /* Don't show a command that isn't really visible
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2665 because a local definition of the same key shadows it. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2666
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2667 XVECTOR (kludge)->contents[0] = event;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2668 if (!NILP (shadow))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2669 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2670 tem = shadow_lookup (shadow, kludge, Qt);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2671 if (!NILP (tem)) continue;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2672 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2673
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2674 tem = Flookup_key (map, kludge, Qt);
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2675 if (! EQ (tem, definition)) continue;
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2676
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2677 if (first)
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2678 {
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2679 previous_description_column = 0;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2680 insert ("\n", 1);
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2681 first = 0;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2682 }
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2683
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2684 if (!NILP (elt_prefix))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2685 insert1 (elt_prefix);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2686
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2687 /* THIS gets the string to describe the character EVENT. */
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2688 insert1 (Fsingle_key_description (event));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2689
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2690 /* Print a description of the definition of this character.
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2691 elt_describer will take care of spacing out far enough
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2692 for alignment purposes. */
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2693 (*elt_describer) (definition);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2694 }
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2695 else if (EQ (XCONS (tail)->car, Qkeymap))
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2696 {
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2697 /* The same keymap might be in the structure twice, if we're
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2698 using an inherited keymap. So skip anything we've already
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2699 encountered. */
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2700 tem = Fassq (tail, *seen);
7669
93b5868150b9 (describe_map): Fix the call to Fequal.
Richard M. Stallman <rms@gnu.org>
parents: 7341
diff changeset
2701 if (CONSP (tem) && !NILP (Fequal (XCONS (tem)->car, keys)))
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2702 break;
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2703 *seen = Fcons (Fcons (tail, keys), *seen);
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2704 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2705 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2706
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2707 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2708 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2709
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
2710 static void
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2711 describe_vector_princ (elt)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2712 Lisp_Object elt;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2713 {
3691
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
2714 Findent_to (make_number (16), make_number (1));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2715 Fprinc (elt, Qnil);
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2716 Fterpri (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2717 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2718
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2719 DEFUN ("describe-vector", Fdescribe_vector, Sdescribe_vector, 1, 1, 0,
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2720 "Insert a description of contents of VECTOR.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2721 This is text showing the elements of vector matched against indices.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2722 (vector)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2723 Lisp_Object vector;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2724 {
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2725 int count = specpdl_ptr - specpdl;
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2726
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2727 specbind (Qstandard_output, Fcurrent_buffer ());
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2728 CHECK_VECTOR_OR_CHAR_TABLE (vector, 0);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2729 describe_vector (vector, Qnil, describe_vector_princ, 0,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2730 Qnil, Qnil, (int *)0, 0);
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2731
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2732 return unbind_to (count, Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2733 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2734
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2735 /* Insert in the current buffer a description of the contents of VECTOR.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2736 We call ELT_DESCRIBER to insert the description of one value found
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2737 in VECTOR.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2738
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2739 ELT_PREFIX describes what "comes before" the keys or indices defined
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2740 by this vector. This is a human-readable string whose size
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2741 is not necessarily related to the situation.
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2742
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2743 If the vector is in a keymap, ELT_PREFIX is a prefix key which
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2744 leads to this keymap.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2745
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2746 If the vector is a chartable, ELT_PREFIX is the vector
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2747 of bytes that lead to the character set or portion of a character
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2748 set described by this chartable.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2749
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2750 If PARTIAL is nonzero, it means do not mention suppressed commands
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2751 (that assumes the vector is in a keymap).
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2752
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2753 SHADOW is a list of keymaps that shadow this map.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2754 If it is non-nil, then we look up the key in those maps
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2755 and we don't mention it now if it is defined by any of them.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2756
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2757 ENTIRE_MAP is the keymap in which this vector appears.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2758 If the definition in effect in the whole map does not match
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2759 the one in this vector, we ignore this one.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2760
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2761 When describing a sub-char-table, INDICES is a list of
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2762 indices at higher levels in this char-table,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2763 and CHAR_TABLE_DEPTH says how many levels down we have gone. */
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2764
20374
0b6c4f1041ae (describe_vector): Declaration fixed (delete `.' at the
Kenichi Handa <handa@m17n.org>
parents: 20319
diff changeset
2765 void
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2766 describe_vector (vector, elt_prefix, elt_describer,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2767 partial, shadow, entire_map,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2768 indices, char_table_depth)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2769 register Lisp_Object vector;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2770 Lisp_Object elt_prefix;
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
2771 void (*elt_describer) P_ ((Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2772 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2773 Lisp_Object shadow;
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2774 Lisp_Object entire_map;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2775 int *indices;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2776 int char_table_depth;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2777 {
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2778 Lisp_Object definition;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2779 Lisp_Object tem2;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2780 register int i;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2781 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2782 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2783 int first = 1;
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2784 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2785 /* Range of elements to be handled. */
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2786 int from, to;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2787 /* A flag to tell if a leaf in this level of char-table is not a
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2788 generic character (i.e. a complete multibyte character). */
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2789 int complete_char;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2790 int character;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2791 int starting_i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2792
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2793 if (indices == 0)
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18142
diff changeset
2794 indices = (int *) alloca (3 * sizeof (int));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2795
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2796 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2797
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2798 /* This vector gets used to present single keys to Flookup_key. Since
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2799 that is done once per vector element, we don't want to cons up a
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2800 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2801 kludge = Fmake_vector (make_number (1), Qnil);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2802 GCPRO3 (elt_prefix, definition, kludge);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2803
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2804 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2805 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2806
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2807 if (CHAR_TABLE_P (vector))
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2808 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2809 if (char_table_depth == 0)
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2810 {
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2811 /* VECTOR is a top level char-table. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2812 complete_char = 1;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2813 from = 0;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2814 to = CHAR_TABLE_ORDINARY_SLOTS;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2815 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2816 else
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2817 {
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2818 /* VECTOR is a sub char-table. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2819 if (char_table_depth >= 3)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2820 /* A char-table is never that deep. */
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2821 error ("Too deep char table");
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2822
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2823 complete_char
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2824 = (CHARSET_VALID_P (indices[0])
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2825 && ((CHARSET_DIMENSION (indices[0]) == 1
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2826 && char_table_depth == 1)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2827 || char_table_depth == 2));
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2828
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2829 /* Meaningful elements are from 32th to 127th. */
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2830 from = 32;
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2831 to = SUB_CHAR_TABLE_ORDINARY_SLOTS;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2832 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2833 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2834 else
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2835 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2836 /* This does the right thing for ordinary vectors. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2837
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2838 complete_char = 1;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2839 from = 0;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2840 to = XVECTOR (vector)->size;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2841 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2842
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2843 for (i = from; i < to; i++)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2844 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2845 QUIT;
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
2846
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2847 if (CHAR_TABLE_P (vector))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2848 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2849 if (char_table_depth == 0 && i >= CHAR_TABLE_SINGLE_BYTE_SLOTS)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2850 complete_char = 0;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2851
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2852 if (i >= CHAR_TABLE_SINGLE_BYTE_SLOTS
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2853 && !CHARSET_DEFINED_P (i - 128))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2854 continue;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2855
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2856 definition
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2857 = get_keyelt (XCHAR_TABLE (vector)->contents[i], 0);
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2858 }
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2859 else
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2860 definition = get_keyelt (XVECTOR (vector)->contents[i], 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2861
17511
10ead0052174 (describe_vector): Test for suppressed commands in
Richard M. Stallman <rms@gnu.org>
parents: 17510
diff changeset
2862 if (NILP (definition)) continue;
10ead0052174 (describe_vector): Test for suppressed commands in
Richard M. Stallman <rms@gnu.org>
parents: 17510
diff changeset
2863
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2864 /* Don't mention suppressed commands. */
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2865 if (SYMBOLP (definition) && partial)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2866 {
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2867 Lisp_Object tem;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2868
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2869 tem = Fget (definition, suppress);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2870
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2871 if (!NILP (tem)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2872 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2873
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2874 /* Set CHARACTER to the character this entry describes, if any.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2875 Also update *INDICES. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2876 if (CHAR_TABLE_P (vector))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2877 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2878 indices[char_table_depth] = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2879
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2880 if (char_table_depth == 0)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2881 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2882 character = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2883 indices[0] = i - 128;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2884 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2885 else if (complete_char)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2886 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2887 character
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2888 = MAKE_NON_ASCII_CHAR (indices[0], indices[1], indices[2]);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2889 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2890 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2891 character = 0;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2892 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2893 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2894 character = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2895
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2896 /* If this binding is shadowed by some other map, ignore it. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2897 if (!NILP (shadow) && complete_char)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2898 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2899 Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2900
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2901 XVECTOR (kludge)->contents[0] = make_number (character);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2902 tem = shadow_lookup (shadow, kludge, Qt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2903
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2904 if (!NILP (tem)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2905 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2906
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2907 /* Ignore this definition if it is shadowed by an earlier
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2908 one in the same keymap. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2909 if (!NILP (entire_map) && complete_char)
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2910 {
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2911 Lisp_Object tem;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2912
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2913 XVECTOR (kludge)->contents[0] = make_number (character);
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2914 tem = Flookup_key (entire_map, kludge, Qt);
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2915
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2916 if (! EQ (tem, definition))
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2917 continue;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2918 }
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2919
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2920 if (first)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2921 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2922 if (char_table_depth == 0)
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2923 insert ("\n", 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2924 first = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2925 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2926
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2927 /* For a sub char-table, show the depth by indentation.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2928 CHAR_TABLE_DEPTH can be greater than 0 only for a char-table. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2929 if (char_table_depth > 0)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2930 insert (" ", char_table_depth * 2); /* depth is 1 or 2. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2931
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2932 /* Output the prefix that applies to every entry in this map. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2933 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2934 insert1 (elt_prefix);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2935
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2936 /* Insert or describe the character this slot is for,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2937 or a description of what it is for. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2938 if (SUB_CHAR_TABLE_P (vector))
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2939 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2940 if (complete_char)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2941 insert_char (character);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2942 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2943 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2944 /* We need an octal representation for this block of
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2945 characters. */
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2946 char work[16];
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2947 sprintf (work, "(row %d)", i);
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2948 insert (work, strlen (work));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2949 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2950 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2951 else if (CHAR_TABLE_P (vector))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2952 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2953 if (complete_char)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2954 insert1 (Fsingle_key_description (make_number (character)));
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2955 else
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2956 {
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2957 /* Print the information for this character set. */
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2958 insert_string ("<");
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2959 tem2 = CHARSET_TABLE_INFO (i - 128, CHARSET_SHORT_NAME_IDX);
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2960 if (STRINGP (tem2))
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2961 insert_from_string (tem2, 0, 0, XSTRING (tem2)->size,
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2962 XSTRING (tem2)->size_byte, 0);
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2963 else
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2964 insert ("?", 1);
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2965 insert (">", 1);
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2966 }
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2967 }
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2968 else
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2969 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2970 insert1 (Fsingle_key_description (make_number (character)));
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2971 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2972
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2973 /* If we find a sub char-table within a char-table,
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2974 scan it recursively; it defines the details for
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2975 a character set or a portion of a character set. */
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2976 if (CHAR_TABLE_P (vector) && SUB_CHAR_TABLE_P (definition))
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2977 {
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2978 insert ("\n", 1);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2979 describe_vector (definition, elt_prefix, elt_describer,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2980 partial, shadow, entire_map,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2981 indices, char_table_depth + 1);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2982 continue;
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2983 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2984
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2985 starting_i = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2986
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2987 /* Find all consecutive characters or rows that have the same
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2988 definition. But, for elements of a top level char table, if
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2989 they are for charsets, we had better describe one by one even
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2990 if they have the same definition. */
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2991 if (CHAR_TABLE_P (vector))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2992 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2993 int limit = to;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2994
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2995 if (char_table_depth == 0)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2996 limit = CHAR_TABLE_SINGLE_BYTE_SLOTS;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2997
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2998 while (i + 1 < limit
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2999 && (tem2 = get_keyelt (XCHAR_TABLE (vector)->contents[i + 1], 0),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3000 !NILP (tem2))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3001 && !NILP (Fequal (tem2, definition)))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3002 i++;
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3003 }
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3004 else
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3005 while (i + 1 < to
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3006 && (tem2 = get_keyelt (XVECTOR (vector)->contents[i + 1], 0),
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3007 !NILP (tem2))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3008 && !NILP (Fequal (tem2, definition)))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3009 i++;
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3010
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3011
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3012 /* If we have a range of more than one character,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3013 print where the range reaches to. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3014
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3015 if (i != starting_i)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3016 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3017 insert (" .. ", 4);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3018
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3019 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3020 insert1 (elt_prefix);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3021
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3022 if (CHAR_TABLE_P (vector))
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3023 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3024 if (char_table_depth == 0)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3025 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3026 insert1 (Fsingle_key_description (make_number (i)));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3027 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3028 else if (complete_char)
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3029 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3030 indices[char_table_depth] = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3031 character
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3032 = MAKE_NON_ASCII_CHAR (indices[0], indices[1], indices[2]);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3033 insert_char (character);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3034 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3035 else
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3036 {
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
3037 /* We need an octal representation for this block of
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
3038 characters. */
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
3039 char work[16];
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
3040 sprintf (work, "(row %d)", i);
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
3041 insert (work, strlen (work));
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3042 }
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3043 }
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3044 else
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3045 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3046 insert1 (Fsingle_key_description (make_number (i)));
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3047 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3048 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3049
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3050 /* Print a description of the definition of this character.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3051 elt_describer will take care of spacing out far enough
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3052 for alignment purposes. */
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3053 (*elt_describer) (definition);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3054 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3055
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3056 /* For (sub) char-table, print `defalt' slot at last. */
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3057 if (CHAR_TABLE_P (vector) && !NILP (XCHAR_TABLE (vector)->defalt))
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3058 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3059 insert (" ", char_table_depth * 2);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3060 insert_string ("<<default>>");
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3061 (*elt_describer) (XCHAR_TABLE (vector)->defalt);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3062 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3063
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3064 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3065 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3066
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3067 /* Apropos - finding all symbols whose names match a regexp. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3068 Lisp_Object apropos_predicate;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3069 Lisp_Object apropos_accumulate;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3070
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3071 static void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3072 apropos_accum (symbol, string)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3073 Lisp_Object symbol, string;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3074 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3075 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3076
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3077 tem = Fstring_match (string, Fsymbol_name (symbol), Qnil);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3078 if (!NILP (tem) && !NILP (apropos_predicate))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3079 tem = call1 (apropos_predicate, symbol);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3080 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3081 apropos_accumulate = Fcons (symbol, apropos_accumulate);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3082 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3083
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3084 DEFUN ("apropos-internal", Fapropos_internal, Sapropos_internal, 1, 2, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3085 "Show all symbols whose names contain match for REGEXP.\n\
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3086 If optional 2nd arg PREDICATE is non-nil, (funcall PREDICATE SYMBOL) is done\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3087 for each symbol and a symbol is mentioned only if that returns non-nil.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3088 Return list of symbols found.")
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3089 (regexp, predicate)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3090 Lisp_Object regexp, predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3091 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3092 struct gcpro gcpro1, gcpro2;
14099
6215cbb7f702 (Fapropos_internal): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 14080
diff changeset
3093 CHECK_STRING (regexp, 0);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3094 apropos_predicate = predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3095 GCPRO2 (apropos_predicate, apropos_accumulate);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3096 apropos_accumulate = Qnil;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3097 map_obarray (Vobarray, apropos_accum, regexp);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3098 apropos_accumulate = Fsort (apropos_accumulate, Qstring_lessp);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3099 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3100 return apropos_accumulate;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3101 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3102
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3103 syms_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3104 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3105 Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3106
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3107 Qkeymap = intern ("keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3108 staticpro (&Qkeymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3109
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3110 /* Now we are ready to set up this property, so we can
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3111 create char tables. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3112 Fput (Qkeymap, Qchar_table_extra_slots, make_number (0));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3113
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3114 /* Initialize the keymaps standardly used.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3115 Each one is the value of a Lisp variable, and is also
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3116 pointed to by a C variable */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3117
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3118 global_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3119 Fset (intern ("global-map"), global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3120
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3121 current_global_map = global_map;
16227
6acf08913847 (syms_of_keymap): staticpro global_map.
Erik Naggum <erik@naggum.no>
parents: 16125
diff changeset
3122 staticpro (&global_map);
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3123 staticpro (&current_global_map);
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3124
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3125 meta_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3126 Fset (intern ("esc-map"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3127 Ffset (intern ("ESC-prefix"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3128
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3129 control_x_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3130 Fset (intern ("ctl-x-map"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3131 Ffset (intern ("Control-X-prefix"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3132
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3133 DEFVAR_LISP ("define-key-rebound-commands", &Vdefine_key_rebound_commands,
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3134 "List of commands given new key bindings recently.\n\
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3135 This is used for internal purposes during Emacs startup;\n\
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3136 don't alter it yourself.");
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3137 Vdefine_key_rebound_commands = Qt;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3138
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3139 DEFVAR_LISP ("minibuffer-local-map", &Vminibuffer_local_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3140 "Default keymap to use when reading from the minibuffer.");
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3141 Vminibuffer_local_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3142
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3143 DEFVAR_LISP ("minibuffer-local-ns-map", &Vminibuffer_local_ns_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3144 "Local keymap for the minibuffer when spaces are not allowed.");
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3145 Vminibuffer_local_ns_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3146
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3147 DEFVAR_LISP ("minibuffer-local-completion-map", &Vminibuffer_local_completion_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3148 "Local keymap for minibuffer input with completion.");
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3149 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3150
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3151 DEFVAR_LISP ("minibuffer-local-must-match-map", &Vminibuffer_local_must_match_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3152 "Local keymap for minibuffer input with completion, for exact match.");
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3153 Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3154
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3155 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3156 "Alist of keymaps to use for minor modes.\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3157 Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3158 key sequences and look up bindings iff VARIABLE's value is non-nil.\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3159 If two active keymaps bind the same key, the keymap appearing earlier\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3160 in the list takes precedence.");
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3161 Vminor_mode_map_alist = Qnil;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3162
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3163 DEFVAR_LISP ("minor-mode-overriding-map-alist", &Vminor_mode_overriding_map_alist,
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3164 "Alist of keymaps to use for minor modes, in current major mode.\n\
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3165 This variable is a alist just like `minor-mode-map-alist', and it is\n\
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3166 used the same way (and before `minor-mode-map-alist'); however,\n\
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3167 it is provided for major modes to bind locally.");
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3168 Vminor_mode_overriding_map_alist = Qnil;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3169
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3170 DEFVAR_LISP ("function-key-map", &Vfunction_key_map,
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3171 "Keymap mapping ASCII function key sequences onto their preferred forms.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3172 This allows Emacs to recognize function keys sent from ASCII\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3173 terminals at any point in a key sequence.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3174 \n\
8731
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3175 The `read-key-sequence' function replaces any subsequence bound by\n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3176 `function-key-map' with its binding. More precisely, when the active\n\
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3177 keymaps have no binding for the current key sequence but\n\
8731
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3178 `function-key-map' binds a suffix of the sequence to a vector or string,\n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3179 `read-key-sequence' replaces the matching suffix with its binding, and\n\
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3180 continues with the new sequence.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3181 \n\
8731
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3182 The events that come from bindings in `function-key-map' are not\n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3183 themselves looked up in `function-key-map'.\n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3184 \n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3185 For example, suppose `function-key-map' binds `ESC O P' to [f1].\n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3186 Typing `ESC O P' to `read-key-sequence' would return [f1]. Typing\n\
4138
42faad1466fa * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4023
diff changeset
3187 `C-x ESC O P' would return [?\\C-x f1]. If [f1] were a prefix\n\
42faad1466fa * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4023
diff changeset
3188 key, typing `ESC O P x' would return [f1 x].");
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3189 Vfunction_key_map = Fmake_sparse_keymap (Qnil);
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3190
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3191 DEFVAR_LISP ("key-translation-map", &Vkey_translation_map,
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3192 "Keymap of key translations that can override keymaps.\n\
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3193 This keymap works like `function-key-map', but comes after that,\n\
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3194 and applies even for keys that have ordinary bindings.");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3195 Vkey_translation_map = Qnil;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3196
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3197 Qsingle_key_description = intern ("single-key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3198 staticpro (&Qsingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3199
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3200 Qkey_description = intern ("key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3201 staticpro (&Qkey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3202
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3203 Qkeymapp = intern ("keymapp");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3204 staticpro (&Qkeymapp);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3205
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
3206 Qnon_ascii = intern ("non-ascii");
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
3207 staticpro (&Qnon_ascii);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
3208
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3209 defsubr (&Skeymapp);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
3210 defsubr (&Skeymap_parent);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
3211 defsubr (&Sset_keymap_parent);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3212 defsubr (&Smake_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3213 defsubr (&Smake_sparse_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3214 defsubr (&Scopy_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3215 defsubr (&Skey_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3216 defsubr (&Slocal_key_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3217 defsubr (&Sglobal_key_binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3218 defsubr (&Sminor_mode_key_binding);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3219 defsubr (&Sdefine_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3220 defsubr (&Slookup_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3221 defsubr (&Sdefine_prefix_command);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3222 defsubr (&Suse_global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3223 defsubr (&Suse_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3224 defsubr (&Scurrent_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3225 defsubr (&Scurrent_global_map);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3226 defsubr (&Scurrent_minor_mode_maps);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3227 defsubr (&Saccessible_keymaps);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3228 defsubr (&Skey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3229 defsubr (&Sdescribe_vector);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3230 defsubr (&Ssingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3231 defsubr (&Stext_char_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3232 defsubr (&Swhere_is_internal);
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
3233 defsubr (&Sdescribe_bindings_internal);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3234 defsubr (&Sapropos_internal);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3235 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3236
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3237 keys_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3238 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3239 Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3240
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3241 initial_define_key (global_map, 033, "ESC-prefix");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3242 initial_define_key (global_map, Ctl('X'), "Control-X-prefix");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3243 }