annotate src/keymap.c @ 18941:3fcfe59102ac

Customized.
author Richard M. Stallman <rms@gnu.org>
date Thu, 24 Jul 1997 07:43:07 +0000
parents 614b916ff5bf
children 2195c8746e05
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
11235
e6bdaaa6ce1b Update copyright.
Karl Heuer <kwzh@gnu.org>
parents: 11089
diff changeset
2 Copyright (C) 1985, 86, 87, 88, 93, 94, 95 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
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
74 /* Keymap mapping ASCII function key sequences onto their preferred forms.
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
75 Initialized by the terminal-specific lisp files. See DEFVAR for more
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
76 documentation. */
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
77 Lisp_Object Vfunction_key_map;
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
78
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
79 /* 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
80 Lisp_Object Vkey_translation_map;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
81
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
82 /* 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
83 when nil was stored here.
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
84 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
85 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
86 Lisp_Object Vdefine_key_rebound_commands;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
87
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
88 Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89
2886
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
90 /* 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
91 in a string key sequence is equivalent to prefixing with this
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
92 character. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 extern Lisp_Object meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
95 extern Lisp_Object Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
96
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
97 static Lisp_Object define_as_prefix ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 static Lisp_Object describe_buffer_bindings ();
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
99 static void describe_command (), describe_translation ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 static void describe_map ();
17832
0cbd45e72b2d Declare Fcopy_keymap as Lisp_Object in advance to
Kenichi Handa <handa@m17n.org>
parents: 17795
diff changeset
101 Lisp_Object Fcopy_keymap ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
103 /* Keymap object support - constructors and predicates. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
104
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
105 DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 "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
107 VECTOR is a vector which holds the bindings for the ASCII\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 characters. ALIST is an assoc-list which holds bindings for function keys,\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 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
110 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
111 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
112 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
113 (string)
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
114 Lisp_Object string;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115 {
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
116 Lisp_Object tail;
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
117 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
118 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
119 else
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
120 tail = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121 return Fcons (Qkeymap,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
122 Fcons (Fmake_char_table (Qkeymap, Qnil), tail));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
125 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
126 "Construct and return a new sparse-keymap list.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 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
128 which binds the character CHAR to DEFINITION, or (SYMBOL . DEFINITION),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129 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
130 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
131 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
132 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
133 (string)
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
134 Lisp_Object string;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 {
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
136 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
137 return Fcons (Qkeymap, Fcons (string, Qnil));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 return Fcons (Qkeymap, Qnil);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 /* This function is used for installing the standard key bindings
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 at initialization time.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 For example:
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
146 initial_define_key (control_x_map, Ctl('X'), "exchange-point-and-mark"); */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 initial_define_key (keymap, key, defname)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 int key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 char *defname;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 store_in_keymap (keymap, make_number (key), intern (defname));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
157 void
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
158 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
159 Lisp_Object keymap;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
160 char *keyname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
161 char *defname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
162 {
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
163 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
164 }
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
165
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 /* Define character fromchar in map frommap as an alias for character
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 tochar in map tomap. Subsequent redefinitions of the latter WILL
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 affect the former. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 #if 0
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 synkey (frommap, fromchar, tomap, tochar)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 struct Lisp_Vector *frommap, *tomap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 int fromchar, tochar;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 Lisp_Object v, c;
9273
129621997564 (synkey, Fdescribe_bindings, describe_command): Use new accessor macros
Karl Heuer <kwzh@gnu.org>
parents: 9123
diff changeset
177 XSETVECTOR (v, tomap);
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
178 XSETFASTINT (c, tochar);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 frommap->contents[fromchar] = Fcons (v, c);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 #endif /* 0 */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 DEFUN ("keymapp", Fkeymapp, Skeymapp, 1, 1, 0,
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
184 "Return t if OBJECT is a keymap.\n\
362
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
185 \n\
2790
cf431814ce6a (access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents: 2755
diff changeset
186 A keymap is a list (keymap . ALIST),\n\
6457
13aa19ca4b4f (Fkeymapp): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6456
diff changeset
187 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
188 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
189 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
190 is also allowed as an element.")
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 (object)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 Lisp_Object object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
194 return (NILP (get_keymap_1 (object, 0, 0)) ? Qnil : Qt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 /* 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
198 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
199
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
200 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
201 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
202 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
203
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
204 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
205 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
206
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
207 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
208 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
209 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
210 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
211 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
212
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 Lisp_Object
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
214 get_keymap_1 (object, error, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 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
216 int error, autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
218 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
220 autoload_retry:
647
529171c8b71c entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 517
diff changeset
221 tem = indirect_function (object);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 if (CONSP (tem) && EQ (XCONS (tem)->car, Qkeymap))
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 return tem;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
224
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
225 /* 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
226 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
227 if (autoload
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
228 && SYMBOLP (object)
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
229 && CONSP (tem)
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
230 && 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
231 {
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
232 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
233
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
234 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
235 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
236 {
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
237 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
238
3691
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
239 GCPRO2 (tem, object);
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
240 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
241 UNGCPRO;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
242
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
243 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
244 }
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
245 }
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
246
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 if (error)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 wrong_type_argument (Qkeymapp, object);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
249 else
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
250 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
253
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
254 /* 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
255 If OBJECT doesn't denote a keymap at all, signal an error. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 get_keymap (object)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 Lisp_Object object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 {
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
260 return get_keymap_1 (object, 1, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
262
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
263 /* 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
264 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
265
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
266 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
267 "Return the parent keymap of KEYMAP.")
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
268 (keymap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
269 Lisp_Object keymap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
270 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
271 Lisp_Object list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
272
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
273 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
274
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
275 /* Skip past the initial element `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
276 list = XCONS (keymap)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
277 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
278 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
279 /* See if there is another `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
280 if (EQ (Qkeymap, XCONS (list)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
281 return list;
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
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
284 return Qnil;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
285 }
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 /* 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
288
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
289 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
290 "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
291 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
292 (keymap, parent)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
293 Lisp_Object keymap, parent;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
294 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
295 Lisp_Object list, prev;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
296 int i;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
297
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
298 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
299 if (!NILP (parent))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
300 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
301
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
302 /* Skip past the initial element `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
303 prev = keymap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
304 while (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 list = XCONS (prev)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
307 /* 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
308 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
309 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
310 {
15422
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
311 /* 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
312 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
313 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
314 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
315
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
316 XCONS (prev)->cdr = parent;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
317 break;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
318 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
319 prev = list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
320 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
321
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
322 /* 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
323
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
324 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
325 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
326 /* 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
327 if (EQ (XCONS (list)->car, Qkeymap))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
328 break;
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 /* 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
331 if (CONSP (XCONS (list)->car)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
332 && CONSP (XCONS (XCONS (list)->car)->cdr))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
333 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
334 XCONS (XCONS (list)->car)->cdr);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
335
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
336 if (VECTORP (XCONS (list)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
337 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
338 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
339 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
340 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
341
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
342 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
343 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
344 Lisp_Object *indices
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
345 = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
346
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
347 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
348 keymap, 0, indices);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
349 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
350 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
351
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
352 return parent;
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 /* 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
356 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
357 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
358
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
359 fix_submap_inheritance (map, event, submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
360 Lisp_Object map, event, submap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
361 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
362 Lisp_Object map_parent, parent_entry;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
363
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
364 /* 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
365 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
366
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
367 if (CONSP (submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
368 && STRINGP (XCONS (submap)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
369 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
370 submap = XCONS (submap)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
371 /* 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
372 following the menu item name. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
373 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
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 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
376 if (CONSP (submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
377 && CONSP (XCONS (submap)->car))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
378 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
379 Lisp_Object carcar;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
380 carcar = XCONS (XCONS (submap)->car)->car;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
381 if (NILP (carcar) || VECTORP (carcar))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
382 submap = XCONS (submap)->cdr;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
383 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
384 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
385
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
386 /* 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
387 if (! CONSP (submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
388 || ! EQ (XCONS (submap)->car, Qkeymap))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
389 return;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
390
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
391 map_parent = Fkeymap_parent (map);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
392 if (! NILP (map_parent))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
393 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
394 else
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
395 parent_entry = Qnil;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
396
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
397 /* 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
398 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
399 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
400 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
401
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
402 if (! EQ (parent_entry, submap))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
403 Fset_keymap_parent (submap, parent_entry);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
404 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
405
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
406 /* 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
407 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
408 event, not a sequence.
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
409
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
410 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
411 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
412 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
413
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
414 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
415
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
416 If NOINHERIT, don't accept a subkeymap found in an inherited keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 Lisp_Object
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
419 access_keymap (map, idx, t_ok, noinherit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 Lisp_Object idx;
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
422 int t_ok;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
423 int noinherit;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 {
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
425 int noprefix = 0;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
426 Lisp_Object val;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
427
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 /* If idx is a list (some sort of mouse click, perhaps?),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 the index we want to use is the car of the list, which
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 ought to be a symbol. */
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
431 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
433 /* 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
434 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
435 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
436 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
437 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
438 /* 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
439 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
440 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
443 Lisp_Object tail;
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
444 Lisp_Object t_binding;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
446 t_binding = Qnil;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
447 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
448 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
449 Lisp_Object binding;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
451 binding = XCONS (tail)->car;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
452 if (SYMBOLP (binding))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
453 {
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
454 /* If NOINHERIT, stop finding prefix definitions
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
455 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
456 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
457 noprefix = 1;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
458 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
459 else if (CONSP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
460 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
461 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
462 {
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
463 val = XCONS (binding)->cdr;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
464 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
465 return Qnil;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
466 if (CONSP (val))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
467 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
468 return val;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
469 }
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
470 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
471 t_binding = XCONS (binding)->cdr;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
472 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
473 else if (VECTORP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
474 {
9957
940847846909 (access_keymap, store_in_keymap): Use NATNUMP instead of its expansion.
Karl Heuer <kwzh@gnu.org>
parents: 9946
diff changeset
475 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
476 {
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
477 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
478 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
479 return Qnil;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
480 if (CONSP (val))
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
481 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
482 return val;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
483 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
484 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
485 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
486 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
487 /* 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
488 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
489 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
490 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
491 && ! (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
492 & (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
493 | 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
494 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
495 val = Faref (binding, idx);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
496 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
497 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
498 if (CONSP (val))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
499 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
500 return val;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
501 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
502 }
1264
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
503
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
504 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 }
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
506
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
507 return t_binding;
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
508 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511 /* Given OBJECT which was found in a slot in a keymap,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 trace indirect definitions to get the actual definition of that slot.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 An indirect definition is a list of the form
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 (KEYMAP . INDEX), where KEYMAP is a keymap or a symbol defined as one
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 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
516
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 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
518 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
519
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
520 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
521 that are referred to with indirection. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 Lisp_Object
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
524 get_keyelt (object, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 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
526 int autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 register Lisp_Object map, tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
532 /* 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
533 map = get_keymap_1 (Fcar_safe (object), 0, autoload);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 tem = Fkeymapp (map);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
535 if (!NILP (tem))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
536 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
537 Lisp_Object key;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
538 key = Fcdr (object);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
539 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
540 {
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18142
diff changeset
541 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
542 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
543 object = access_keymap (map,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
544 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
545 0, 0);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
546 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
547 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
548 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
549 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
550
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551 /* If the keymap contents looks like (STRING . DEFN),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 use DEFN.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553 Keymap alist elements like (CHAR MENUSTRING . DEFN)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 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
555 else if (CONSP (object)
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
556 && 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
557 {
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
558 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
559 /* 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
560 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
561 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
562 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
563 /* 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
564 if (CONSP (object)
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
565 && CONSP (XCONS (object)->car))
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
566 {
6021
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
567 Lisp_Object carcar;
de651e959736 (get_keyelt): Cached equiv-key data is now a sublist.
Richard M. Stallman <rms@gnu.org>
parents: 6008
diff changeset
568 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
569 if (NILP (carcar) || VECTORP (carcar))
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
570 object = XCONS (object)->cdr;
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
571 }
1160
f7b55bfe1c05 (get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents: 1120
diff changeset
572 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575 /* Anything else is really the value. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
576 return object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581 store_in_keymap (keymap, idx, def)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 register Lisp_Object idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584 register Lisp_Object def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 {
10367
e1c7a3f0c15f (store_in_keymap): Copy a cons only if car is a string.
Richard M. Stallman <rms@gnu.org>
parents: 10305
diff changeset
586 /* 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
587 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
588 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
589 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
590
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
591 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
592 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
593
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 /* If idx is a list (some sort of mouse click, perhaps?),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 the index we want to use is the car of the list, which
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 ought to be a symbol. */
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
597 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
599 /* 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
600 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
601 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
602 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
603 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
604 /* 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
605 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
606 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
608 /* 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
609 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
610 Lisp_Object tail;
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 /* 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
613 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
614 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
615 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
616 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
617 front of the keymap. */
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
618 Lisp_Object insertion_point;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
619
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
620 insertion_point = keymap;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
621 for (tail = XCONS (keymap)->cdr; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
623 Lisp_Object elt;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
624
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
625 elt = XCONS (tail)->car;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
626 if (VECTORP (elt))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
627 {
9957
940847846909 (access_keymap, store_in_keymap): Use NATNUMP instead of its expansion.
Karl Heuer <kwzh@gnu.org>
parents: 9946
diff changeset
628 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
629 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
630 XVECTOR (elt)->contents[XFASTINT (idx)] = def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
631 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
632 }
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
633 insertion_point = tail;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
634 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
635 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
636 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
637 /* 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
638 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
639 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
640 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
641 && ! (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
642 & (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
643 | 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
644 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
645 Faset (elt, idx, def);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
646 return def;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
647 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
648 insertion_point = tail;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
649 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
650 else if (CONSP (elt))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
651 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
652 if (EQ (idx, XCONS (elt)->car))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
653 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
654 XCONS (elt)->cdr = def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
655 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
656 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
657 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
658 else if (SYMBOLP (elt))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
659 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
660 /* 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
661 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
662 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
663 should be inserted before it. */
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
664 if (EQ (elt, Qkeymap))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
665 goto keymap_end;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
666 }
1441
929409595312 * keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents: 1388
diff changeset
667
929409595312 * keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents: 1388
diff changeset
668 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
670
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
671 keymap_end:
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
672 /* 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
673 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
674 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
675 = Fcons (Fcons (idx, def), XCONS (insertion_point)->cdr);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
677
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 return def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
681 Lisp_Object
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
682 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
683 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
684 {
17861
f84a12392eab (copy_keymap_1): Do nothing if ELT isn't a keymap.
Richard M. Stallman <rms@gnu.org>
parents: 17832
diff changeset
685 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
686 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
687 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
688
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
690 "Return a copy of the keymap KEYMAP.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 The copy starts out with the same definitions of KEYMAP,\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 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
693 Any key definitions that are subkeymaps are recursively copied.\n\
d1e5cf833d37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 250
diff changeset
694 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
695 is not copied.")
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 (keymap)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
698 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699 register Lisp_Object copy, tail;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 copy = Fcopy_alist (get_keymap (keymap));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
702
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
703 for (tail = copy; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
705 Lisp_Object elt;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
706
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
707 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
708 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
709 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
710 Lisp_Object *indices
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
711 = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
712
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
713 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
714 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
715
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
716 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
717 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
718 else if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
720 int i;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
722 elt = Fcopy_sequence (elt);
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
723 XCONS (tail)->car = elt;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724
2790
cf431814ce6a (access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents: 2755
diff changeset
725 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
726 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
727 && ! 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
728 XVECTOR (elt)->contents[i]
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
729 = Fcopy_keymap (XVECTOR (elt)->contents[i]);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 }
6456
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
731 else if (CONSP (elt))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
732 {
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
733 /* Skip the optional menu string. */
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
734 if (CONSP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
735 && 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
736 {
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
737 Lisp_Object tem;
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
738
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
739 /* 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
740 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
741 XCONS (XCONS (elt)->cdr)->cdr);
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
742 elt = XCONS (elt)->cdr;
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
743
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
744 /* 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
745 if (CONSP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
746 && 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
747 {
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
748 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
749 XCONS (XCONS (elt)->cdr)->cdr);
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
750 elt = XCONS (elt)->cdr;
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
751 }
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
752 /* 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
753 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
754 if (CONSP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
755 && 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
756 && (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
757 || VECTORP (tem)))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
758 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
759 }
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
760 if (CONSP (elt)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
761 && ! SYMBOLP (XCONS (elt)->cdr)
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
762 && ! NILP (Fkeymapp (XCONS (elt)->cdr)))
9854df0e91e1 (Fcopy_keymap): Account for menus and equiv-key cache.
Karl Heuer <kwzh@gnu.org>
parents: 6021
diff changeset
763 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
764 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767 return copy;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
770 /* Simple Keymap mutators and accessors. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
771
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
772 /* 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
773
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
774 DEFUN ("define-key", Fdefine_key, Sdefine_key, 3, 3, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
775 "Args KEYMAP, KEY, DEF. Define key sequence KEY, in KEYMAP, as DEF.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
776 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
777 meaning a sequence of keystrokes and events.\n\
5100
33de23a28204 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5055
diff changeset
778 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
779 can be included if you use a vector.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780 DEF is anything that can be a key's definition:\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
781 nil (means key is undefined in this keymap),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782 a command (a Lisp function suitable for interactive calling)\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 a string (treated as a keyboard macro),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 a keymap (to define a prefix key),\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 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
786 function definition, which should at that time be one of the above,\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 or another symbol whose function definition is used, etc.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 a cons (STRING . DEFN), meaning that DEFN is the definition\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 (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
790 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
791 \n\
d04df545062f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 362
diff changeset
792 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
793 the front of KEYMAP.")
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 (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
795 Lisp_Object keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
796 Lisp_Object key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
797 Lisp_Object def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
798 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 int metized = 0;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
804 int meta_bit;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 int length;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
806 struct gcpro gcpro1, gcpro2, gcpro3;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
808 keymap = get_keymap_1 (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
810 if (!VECTORP (key) && !STRINGP (key))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811 key = wrong_type_argument (Qarrayp, key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
813 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 if (length == 0)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
817 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
818 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
819
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
820 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
821
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
822 if (VECTORP (key))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
823 meta_bit = meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
824 else
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
825 meta_bit = 0x80;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
826
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
827 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
828 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
829 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
830 c = Faref (key, make_number (idx));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
832 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
833 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
834
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
835 if (INTEGERP (c)
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
836 && (XINT (c) & meta_bit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
837 && !metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
838 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839 c = meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 metized = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 {
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
844 if (INTEGERP (c))
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
845 XSETINT (c, XINT (c) & ~meta_bit);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848 idx++;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
850
6473
76bb655df959 (Fdefine_key): Check for non-events in keyvector.
Karl Heuer <kwzh@gnu.org>
parents: 6457
diff changeset
851 if (! INTEGERP (c) && ! SYMBOLP (c) && ! CONSP (c))
8517
a7fe53588b6f (Fdefine_key): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 8473
diff changeset
852 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
853
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854 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
855 RETURN_UNGCPRO (store_in_keymap (keymap, c, def));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
857 cmd = get_keyelt (access_keymap (keymap, c, 0, 1), 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
858
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
859 /* If this key is undefined, make it a prefix. */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
860 if (NILP (cmd))
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
861 cmd = define_as_prefix (keymap, c);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
862
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
863 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
864 if (NILP (keymap))
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
865 /* 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
866 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
867 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
868 XSTRING (Fkey_description (key))->data);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
869 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
870 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
871
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872 /* 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
873 /* GC is possible in this function if it autoloads a keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
874
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
875 DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
876 "In keymap KEYMAP, look up key sequence KEY. Return the definition.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
877 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
878 \n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
879 A number as value means KEY is \"too long\";\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880 that is, characters or symbols in it except for the last one\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
881 fail to be a valid sequence of prefix characters in KEYMAP.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
882 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
883 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
884 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
885 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
886 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
887 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
888 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
889 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
890 (keymap, key, accept_default)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891 register Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892 Lisp_Object key;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
893 Lisp_Object accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
894 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
898 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
899 int metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
900 int length;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
901 int t_ok = ! NILP (accept_default);
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
902 int meta_bit;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
903 struct gcpro gcpro1;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
904
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
905 keymap = get_keymap_1 (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
906
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
907 if (!VECTORP (key) && !STRINGP (key))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908 key = wrong_type_argument (Qarrayp, key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
910 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911 if (length == 0)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912 return keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
913
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
914 if (VECTORP (key))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
915 meta_bit = meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
916 else
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
917 meta_bit = 0x80;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
918
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
919 GCPRO1 (key);
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
920
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
922 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
923 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
924 c = Faref (key, make_number (idx));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
925
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
926 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
927 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
928
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
929 if (INTEGERP (c)
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
930 && (XINT (c) & meta_bit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
931 && !metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
932 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
933 c = meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
934 metized = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
935 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
936 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937 {
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
938 if (INTEGERP (c))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
939 XSETINT (c, XINT (c) & ~meta_bit);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
940
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
941 metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
942 idx++;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
945 cmd = get_keyelt (access_keymap (keymap, c, t_ok, 0), 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 if (idx == length)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
947 RETURN_UNGCPRO (cmd);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
949 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
950 if (NILP (keymap))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
951 RETURN_UNGCPRO (make_number (idx));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
952
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
954 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
956
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
957 /* 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
958 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
959 Return the keymap. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
960
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
961 static Lisp_Object
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
962 define_as_prefix (keymap, c)
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
963 Lisp_Object keymap, c;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
964 {
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
965 Lisp_Object inherit, cmd;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
966
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
967 cmd = Fmake_sparse_keymap (Qnil);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
968 /* 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
969 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
970 inherit the other prefix definition. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
971 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
972 #if 0
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
973 /* 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
974 keymap A inherits from B,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
975 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
976 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
977 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
978 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
979 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
980
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
981 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
982 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
983 as a prefix with no subcommands.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
984
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
985 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
986 if (NILP (inherit))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
987 {
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
988 /* If there's an inherited keymap
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
989 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
990 make it define this key. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
991 Lisp_Object tail;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
992
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
993 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
994 if (EQ (XCONS (tail)->car, Qkeymap))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
995 break;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
996
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
997 if (!NILP (tail))
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
998 inherit = define_as_prefix (tail, c);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
999 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
1000 #endif
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1001
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1002 cmd = nconc2 (cmd, inherit);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1003 store_in_keymap (keymap, c, cmd);
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 return cmd;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1006 }
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1007
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1008 /* 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
1009
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1010 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1011 append_key (key_sequence, key)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1012 Lisp_Object key_sequence, key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014 Lisp_Object args[2];
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 args[0] = key_sequence;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1018 args[1] = Fcons (key, Qnil);
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1019 return Fvconcat (2, args);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1023 /* Global, local, and minor mode keymap stuff. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1024
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1025 /* 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
1026 some systems, static gets macro-defined to be the empty string.
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1027 Ickypoo. */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1028 static Lisp_Object *cmm_modes, *cmm_maps;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1029 static int cmm_size;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1030
12542
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1031 /* 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
1032 static Lisp_Object
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1033 current_minor_maps_error ()
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1034 {
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1035 return Qnil;
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1036 }
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1037
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1038 /* 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
1039 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
1040
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1041 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
1042 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
1043 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
1044 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
1045 new assoclist, list, what have you) for each invocation would
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1046 result in a lot of consing over time.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1047
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1048 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
1049 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
1050 which would call this function again, resulting in an infinite
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1051 loop. Instead, we'll use realloc/malloc and silently truncate the
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1052 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
1053 code signals the error. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1054 int
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1055 current_minor_maps (modeptr, mapptr)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1056 Lisp_Object **modeptr, **mapptr;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1057 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1058 int i = 0;
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1059 Lisp_Object alist, assoc, var, val;
465
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 for (alist = Vminor_mode_map_alist;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1062 CONSP (alist);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1063 alist = XCONS (alist)->cdr)
9946
571ddbef914a (current_minor_maps): Avoid assignments in arguments to a type-test macro.
Karl Heuer <kwzh@gnu.org>
parents: 9862
diff changeset
1064 if ((assoc = XCONS (alist)->car, CONSP (assoc))
571ddbef914a (current_minor_maps): Avoid assignments in arguments to a type-test macro.
Karl Heuer <kwzh@gnu.org>
parents: 9862
diff changeset
1065 && (var = XCONS (assoc)->car, SYMBOLP (var))
571ddbef914a (current_minor_maps): Avoid assignments in arguments to a type-test macro.
Karl Heuer <kwzh@gnu.org>
parents: 9862
diff changeset
1066 && (val = find_symbol_value (var), ! EQ (val, Qunbound))
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1067 && ! NILP (val))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1068 {
12542
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1069 Lisp_Object temp;
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1070
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1071 if (i >= cmm_size)
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1072 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1073 Lisp_Object *newmodes, *newmaps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1074
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1075 if (cmm_maps)
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1076 {
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2358
diff changeset
1077 BLOCK_INPUT;
5691
a93fc56763fd Scale by sizeof when allocating objects.
Karl Heuer <kwzh@gnu.org>
parents: 5613
diff changeset
1078 cmm_size *= 2;
5704
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1079 newmodes
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1080 = (Lisp_Object *) realloc (cmm_modes,
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1081 cmm_size * sizeof (Lisp_Object));
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1082 newmaps
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1083 = (Lisp_Object *) realloc (cmm_maps,
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1084 cmm_size * sizeof (Lisp_Object));
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2358
diff changeset
1085 UNBLOCK_INPUT;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1086 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1087 else
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1088 {
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2358
diff changeset
1089 BLOCK_INPUT;
5691
a93fc56763fd Scale by sizeof when allocating objects.
Karl Heuer <kwzh@gnu.org>
parents: 5613
diff changeset
1090 cmm_size = 30;
5704
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1091 newmodes
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1092 = (Lisp_Object *) malloc (cmm_size * sizeof (Lisp_Object));
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1093 newmaps
a966bcdd01d0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 5691
diff changeset
1094 = (Lisp_Object *) malloc (cmm_size * sizeof (Lisp_Object));
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2358
diff changeset
1095 UNBLOCK_INPUT;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1096 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1097
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1098 if (newmaps && newmodes)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1099 {
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1100 cmm_modes = newmodes;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1101 cmm_maps = newmaps;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1102 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1103 else
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1104 break;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1105 }
12542
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1106
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1107 /* Get the keymap definition--or nil if it is not defined. */
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1108 temp = internal_condition_case_1 (Findirect_function,
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1109 XCONS (assoc)->cdr,
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1110 Qerror, current_minor_maps_error);
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1111 if (!NILP (temp))
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1112 {
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1113 cmm_modes[i] = var;
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1114 cmm_maps [i] = temp;
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1115 i++;
f86a10208f7e (current_minor_maps): Catch errors in Findirect_function.
Karl Heuer <kwzh@gnu.org>
parents: 12297
diff changeset
1116 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1117 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1118
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1119 if (modeptr) *modeptr = cmm_modes;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1120 if (mapptr) *mapptr = cmm_maps;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1121 return i;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1122 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1123
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1124 /* 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
1125
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1126 DEFUN ("key-binding", Fkey_binding, Skey_binding, 1, 2, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1127 "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
1128 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
1129 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
1130 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1131 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
1132 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
1133 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
1134 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
1135 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
1136 (key, accept_default)
6834
6a77fcbb5d44 (Fkey_binding): Declare accept_default.
Richard M. Stallman <rms@gnu.org>
parents: 6774
diff changeset
1137 Lisp_Object key, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1138 {
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1139 Lisp_Object *maps, value;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1140 int nmaps, i;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1141 struct gcpro gcpro1;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1142
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1143 GCPRO1 (key);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1144
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1145 if (!NILP (current_kboard->Voverriding_terminal_local_map))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1146 {
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1147 value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1148 key, accept_default);
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1149 if (! NILP (value) && !INTEGERP (value))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1150 RETURN_UNGCPRO (value);
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1151 }
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1152 else if (!NILP (Voverriding_local_map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1153 {
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1154 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
1155 if (! NILP (value) && !INTEGERP (value))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1156 RETURN_UNGCPRO (value);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1157 }
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1158 else
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1159 {
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1160 Lisp_Object local;
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1161
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1162 nmaps = current_minor_maps (0, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1163 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1164 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1165
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1166 for (i = 0; i < nmaps; i++)
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1167 if (! NILP (maps[i]))
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1168 {
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1169 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
1170 if (! NILP (value) && !INTEGERP (value))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1171 RETURN_UNGCPRO (value);
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1172 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1173
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1174 local = get_local_map (PT, current_buffer);
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1175
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1176 if (! NILP (local))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1177 {
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
1178 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
1179 if (! NILP (value) && !INTEGERP (value))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1180 RETURN_UNGCPRO (value);
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1181 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1182 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1183
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1184 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
1185 UNGCPRO;
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1186 if (! NILP (value) && !INTEGERP (value))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1187 return value;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1188
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1189 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1190 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1191
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1192 /* 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
1193
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1194 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
1195 "Return the binding for command KEYS in current local keymap only.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1196 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
1197 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
1198 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1199 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
1200 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
1201 (keys, accept_default)
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1202 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1203 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1204 register Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1205 map = current_buffer->keymap;
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1206 if (NILP (map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1207 return Qnil;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1208 return Flookup_key (map, keys, accept_default);
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 ("global-key-binding", Fglobal_key_binding, Sglobal_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 global keymap only.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215 KEYS is a string, a sequence of keystrokes.\n\
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1216 The binding is probably a symbol with a function definition.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1217 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
1218 \(which see).\n\
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1219 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1220 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
1221 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
1222 (keys, accept_default)
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1223 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224 {
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1225 return Flookup_key (current_global_map, keys, accept_default);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1227
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1228 /* 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
1229
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1230 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
1231 "Find the visible minor mode bindings of KEY.\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1232 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
1233 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
1234 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
1235 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
1236 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
1237 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
1238 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
1239 \n\
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1240 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
1241 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
1242 (key, accept_default)
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1243 Lisp_Object key, accept_default;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1244 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1245 Lisp_Object *modes, *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1246 int nmaps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1247 Lisp_Object binding;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1248 int i, j;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1249 struct gcpro gcpro1, gcpro2;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1250
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1251 nmaps = current_minor_maps (&modes, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1252 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1253 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1254
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1255 binding = Qnil;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1256 GCPRO2 (key, binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1257
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1258 for (i = j = 0; i < nmaps; i++)
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1259 if (! NILP (maps[i])
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1260 && ! 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
1261 && !INTEGERP (binding))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1262 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1263 if (! NILP (get_keymap (binding)))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1264 maps[j++] = Fcons (modes[i], binding);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1265 else if (j == 0)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1266 RETURN_UNGCPRO (Fcons (Fcons (modes[i], binding), Qnil));
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1267 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1268
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1269 UNGCPRO;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1270 return Flist (j, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1271 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1272
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1273 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
1274 "Define COMMAND as a prefix command. COMMAND should be a symbol.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1275 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
1276 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
1277 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
1278 as a function.")
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1279 (command, mapvar)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1280 Lisp_Object command, mapvar;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1281 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1282 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
1283 map = Fmake_sparse_keymap (Qnil);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1284 Ffset (command, map);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1285 if (!NILP (mapvar))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1286 Fset (mapvar, map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1287 else
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1288 Fset (command, map);
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1289 return command;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1290 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1291
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1292 DEFUN ("use-global-map", Fuse_global_map, Suse_global_map, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1293 "Select KEYMAP as the global keymap.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1294 (keymap)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1295 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1296 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1297 keymap = get_keymap (keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1298 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
1299
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1300 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1301 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1302
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1303 DEFUN ("use-local-map", Fuse_local_map, Suse_local_map, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1304 "Select KEYMAP as the local keymap.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1305 If KEYMAP is nil, that means no local keymap.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1306 (keymap)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1307 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1308 {
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1309 if (!NILP (keymap))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1310 keymap = get_keymap (keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1311
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1312 current_buffer->keymap = keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1313
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1315 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1317 DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_map, 0, 0, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1318 "Return current buffer's local keymap, or nil if it has none.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1319 ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1320 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1321 return current_buffer->keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1322 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1323
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1324 DEFUN ("current-global-map", Fcurrent_global_map, Scurrent_global_map, 0, 0, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 "Return the current global keymap.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1326 ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1327 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1328 return current_global_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1330
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1331 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
1332 "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
1333 ()
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1334 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1335 Lisp_Object *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1336 int nmaps = current_minor_maps (0, &maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1337
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1338 return Flist (nmaps, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1339 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1341 /* Help functions for describing and documenting keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1342
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1343 static Lisp_Object accessible_keymaps_char_table ();
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1344
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1345 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1346
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1347 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
1348 1, 2, 0,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1349 "Find all keymaps accessible via prefix characters from KEYMAP.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1350 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
1351 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
1352 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
1353 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
1354 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
1355 (keymap, prefix)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1356 Lisp_Object keymap, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1357 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1358 Lisp_Object maps, good_maps, tail;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1359 int prefixlen = 0;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1360
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1361 /* 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
1362
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1363 if (!NILP (prefix))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1364 prefixlen = XINT (Flength (prefix));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1365
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1366 if (!NILP (prefix))
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1367 {
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1368 /* 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
1369 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
1370 Lisp_Object tem;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1371 tem = Flookup_key (keymap, prefix, Qt);
8473
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
1372 /* 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
1373 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
1374 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
1375 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
1376 if (!NILP (tem))
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1377 {
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1378 /* 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
1379 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
1380 if (STRINGP (prefix))
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1381 {
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1382 int i;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1383 Lisp_Object copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1384
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1385 copy = Fmake_vector (make_number (XSTRING (prefix)->size), Qnil);
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1386 for (i = 0; i < XSTRING (prefix)->size; i++)
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1387 {
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1388 int c = XSTRING (prefix)->data[i];
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1389 if (c & 0200)
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1390 c ^= 0200 | meta_modifier;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1391 XVECTOR (copy)->contents[i] = make_number (c);
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1392 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1393 prefix = copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1394 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1395 maps = Fcons (Fcons (prefix, tem), Qnil);
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
1396 }
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1397 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1398 return Qnil;
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1399 }
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1400 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1401 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
1402 get_keymap (keymap)),
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
1403 Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 /* For each map in the list maps,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1406 look at any other maps it points to,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1407 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
1408
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1409 This is a breadth-first traversal, where tail is the queue of
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1410 nodes, and maps accumulates a list of all nodes visited. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1411
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1412 for (tail = maps; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1413 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1414 register Lisp_Object thisseq, thismap;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1415 Lisp_Object last;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1416 /* 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
1417 int is_metized;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1418
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1419 thisseq = Fcar (Fcar (tail));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1420 thismap = Fcdr (Fcar (tail));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1421 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
1422 is_metized = (XINT (last) >= 0
17264
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1423 /* 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
1424 && XINT (last) >= prefixlen
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1425 && EQ (Faref (thisseq, last), meta_prefix_char));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1426
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1427 for (; CONSP (thismap); thismap = XCONS (thismap)->cdr)
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1428 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1429 Lisp_Object elt;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1430
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1431 elt = XCONS (thismap)->car;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1433 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1435 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
1436 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1437 Lisp_Object *indices
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1438 = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1439
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1440 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
1441 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
1442 0, indices);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1443 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1444 else if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1445 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1446 register int i;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1447
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1448 /* 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
1449 for (i = 0; i < XVECTOR (elt)->size; i++)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1450 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1451 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1452 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1453
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
1454 cmd = get_keyelt (XVECTOR (elt)->contents[i], 0);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1455 if (NILP (cmd)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1456 tem = Fkeymapp (cmd);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1457 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1458 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1459 cmd = get_keymap (cmd);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1460 /* Ignore keymaps that are already added to maps. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1461 tem = Frassq (cmd, maps);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1462 if (NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1463 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1464 /* If the last key in thisseq is meta-prefix-char,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1465 turn it into a meta-ized keystroke. We know
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1466 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
1467 ascii keystroke since we're processing a
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1468 keymap table. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469 if (is_metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1470 {
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1471 int meta_bit = meta_modifier;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1472 tem = Fcopy_sequence (thisseq);
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1473
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1474 Faset (tem, last, make_number (i | meta_bit));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1475
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1476 /* This new sequence is the same length as
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1477 thisseq, so stick it in the list right
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1478 after this one. */
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1479 XCONS (tail)->cdr
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1480 = Fcons (Fcons (tem, cmd), XCONS (tail)->cdr);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1481 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1482 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1483 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1484 tem = append_key (thisseq, make_number (i));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1485 nconc2 (tail, Fcons (Fcons (tem, cmd), Qnil));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1486 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1487 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1488 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1489 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1490 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1491 else if (CONSP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1492 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1493 register Lisp_Object cmd, tem, filter;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1494
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
1495 cmd = get_keyelt (XCONS (elt)->cdr, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1496 /* Ignore definitions that aren't keymaps themselves. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1497 tem = Fkeymapp (cmd);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1498 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1499 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1500 /* Ignore keymaps that have been seen already. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1501 cmd = get_keymap (cmd);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1502 tem = Frassq (cmd, maps);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1503 if (NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1504 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1505 /* Let elt be the event defined by this map entry. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1506 elt = XCONS (elt)->car;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1507
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1508 /* If the last key in thisseq is meta-prefix-char, and
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1509 this entry is a binding for an ascii keystroke,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1510 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
1511 if (is_metized && INTEGERP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1512 {
17264
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1513 Lisp_Object element;
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1514
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1515 element = thisseq;
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
1516 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
1517 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
1518 XINT (elt) | meta_modifier);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1519
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1520 /* This new sequence is the same length as
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1521 thisseq, so stick it in the list right
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1522 after this one. */
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1523 XCONS (tail)->cdr
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1524 = Fcons (Fcons (tem, cmd), XCONS (tail)->cdr);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1525 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1526 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1527 nconc2 (tail,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1528 Fcons (Fcons (append_key (thisseq, elt), cmd),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1529 Qnil));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1530 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1531 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1532 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1533 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1534 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1535
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1536 if (NILP (prefix))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1537 return maps;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1538
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1539 /* 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
1540
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1541 good_maps = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1542 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
1543 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1544 Lisp_Object elt, thisseq;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1545 elt = XCONS (maps)->car;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1546 thisseq = XCONS (elt)->car;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1547 /* 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
1548 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
1549 if (XINT (Flength (thisseq)) >= prefixlen)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1550 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1551 int i;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1552 for (i = 0; i < prefixlen; i++)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1553 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1554 Lisp_Object i1;
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1555 XSETFASTINT (i1, i);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1556 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
1557 break;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1558 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1559 if (i == prefixlen)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1560 good_maps = Fcons (elt, good_maps);
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1561 }
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
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
1564 return Fnreverse (good_maps);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1565 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1566
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1567 static Lisp_Object
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1568 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
1569 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
1570 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1571 Lisp_Object tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1572 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
1573
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1574 if (NILP (cmd))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1575 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1576
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1577 maps = XCONS (args)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1578 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
1579 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
1580
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1581 tem = Fkeymapp (cmd);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1582 if (!NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1583 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1584 cmd = get_keymap (cmd);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1585 /* 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
1586 tem = Frassq (cmd, maps);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1587 if (NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1588 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1589 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
1590 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
1591 }
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 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1594 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1595
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1596 Lisp_Object Qsingle_key_description, Qkey_description;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1597
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1598 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1599
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1600 DEFUN ("key-description", Fkey_description, Skey_description, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1601 "Return a pretty description of key-sequence KEYS.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1602 Control characters turn into \"C-foo\" sequences, meta into \"M-foo\"\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1603 spaces are put between sequence elements, etc.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1604 (keys)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1605 Lisp_Object keys;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1606 {
7809
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1607 int len;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1608 int i;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1609 Lisp_Object sep;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1610 Lisp_Object *args;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1611
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
1612 if (STRINGP (keys))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1613 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1614 Lisp_Object vector;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1615 vector = Fmake_vector (Flength (keys), Qnil);
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1616 for (i = 0; i < XSTRING (keys)->size; i++)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1617 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1618 if (XSTRING (keys)->data[i] & 0x80)
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1619 XSETFASTINT (XVECTOR (vector)->contents[i],
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1620 meta_modifier | (XSTRING (keys)->data[i] & ~0x80));
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1621 else
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1622 XSETFASTINT (XVECTOR (vector)->contents[i],
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1623 XSTRING (keys)->data[i]);
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1624 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1625 keys = vector;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1626 }
8922
67b7eb875a1e (Fkey_description): Reverse condition.
Karl Heuer <kwzh@gnu.org>
parents: 8866
diff changeset
1627 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
1628 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
1629
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1630 /* In effect, this computes
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1631 (mapconcat 'single-key-description keys " ")
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1632 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
1633
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1634 len = XVECTOR (keys)->size;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1635 sep = build_string (" ");
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1636 /* 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
1637 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
1638
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1639 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
1640 {
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1641 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
1642 args[i * 2 + 1] = sep;
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1643 }
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1644
cf23573fa6fb (Fkey_description): Avoid using Fmapconcat--do it directly.
Richard M. Stallman <rms@gnu.org>
parents: 7669
diff changeset
1645 return Fconcat (len * 2 - 1, args);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1646 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1647
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1648 char *
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1649 push_key_description (c, p)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1650 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1651 register char *p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1652 {
2343
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
1653 /* 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
1654 c &= meta_modifier | ~ - meta_modifier;
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
1655
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1656 if (c & alt_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1657 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1658 *p++ = 'A';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1659 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1660 c -= alt_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1661 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1662 if (c & ctrl_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1663 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1664 *p++ = 'C';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1665 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1666 c -= ctrl_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1667 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1668 if (c & hyper_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1669 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1670 *p++ = 'H';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1671 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1672 c -= hyper_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1673 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1674 if (c & meta_modifier)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1675 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1676 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1677 *p++ = '-';
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1678 c -= meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1679 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1680 if (c & shift_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1681 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1682 *p++ = 'S';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1683 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1684 c -= shift_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 if (c & super_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1687 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1688 *p++ = 's';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1689 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1690 c -= super_modifier;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1691 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1692 if (c < 040)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1693 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1694 if (c == 033)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1695 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1696 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1697 *p++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1698 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1699 }
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1700 else if (c == '\t')
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1701 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1702 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1703 *p++ = 'A';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1704 *p++ = 'B';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1705 }
16875
d9956cf6699b (push_key_description): Print C-j, not TAB.
Richard M. Stallman <rms@gnu.org>
parents: 16465
diff changeset
1706 else if (c == Ctl ('M'))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1707 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1708 *p++ = 'R';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1709 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1710 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1711 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1712 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1713 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1714 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1715 *p++ = '-';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1716 if (c > 0 && c <= Ctl ('Z'))
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1717 *p++ = c + 0140;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1718 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1719 *p++ = c + 0100;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1722 else if (c == 0177)
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++ = 'D';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1725 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1726 *p++ = 'L';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1728 else if (c == ' ')
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++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1731 *p++ = 'P';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1732 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1733 }
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1734 else if (c < 128)
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1735 *p++ = c;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1736 else if (c < 256)
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1737 *p++ = c;
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1738 else if (c < 512)
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1739 {
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1740 *p++ = '\\';
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
1741 *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
1742 *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
1743 *p++ = (7 & (c >> 0)) + '0';
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1744 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1745 else
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1746 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1747 *p++ = '\\';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1748 *p++ = (7 & (c >> 15)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1749 *p++ = (7 & (c >> 12)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1750 *p++ = (7 & (c >> 9)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1751 *p++ = (7 & (c >> 6)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1752 *p++ = (7 & (c >> 3)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1753 *p++ = (7 & (c >> 0)) + '0';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1754 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1755
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1756 return p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1757 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1758
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1759 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1760
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1761 DEFUN ("single-key-description", Fsingle_key_description, Ssingle_key_description, 1, 1, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1762 "Return a pretty description of command character KEY.\n\
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1763 Control characters turn into C-whatever, etc.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1764 (key)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1765 Lisp_Object key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1766 {
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1767 char tem[20];
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1768
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
1769 key = EVENT_HEAD (key);
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1770
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1771 if (INTEGERP (key)) /* Normal character */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1772 {
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1773 *push_key_description (XUINT (key), tem) = 0;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1774 return build_string (tem);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1775 }
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1776 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
1777 return Fsymbol_name (key);
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1778 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
1779 return Fcopy_sequence (key);
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1780 else
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
1781 error ("KEY must be an integer, cons, symbol, or string");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1782 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1783
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1784 char *
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1785 push_text_char_description (c, p)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1786 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1787 register char *p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1788 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1789 if (c >= 0200)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1790 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1791 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1792 *p++ = '-';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1793 c -= 0200;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1794 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1795 if (c < 040)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1796 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1797 *p++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1798 *p++ = c + 64; /* 'A' - 1 */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1799 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1800 else if (c == 0177)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1801 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1802 *p++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1803 *p++ = '?';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1804 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1805 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1806 *p++ = c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1807 return p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1808 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1809
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1810 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1811
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1812 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
1813 "Return a pretty description of file-character CHARACTER.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1814 Control characters turn into \"^char\", etc.")
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1815 (character)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1816 Lisp_Object character;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 char tem[6];
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1820 CHECK_NUMBER (character, 0);
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1821
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1822 if (!SINGLE_BYTE_CHAR_P (XFASTINT (character)))
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1823 {
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1824 char *str;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1825 int len = non_ascii_char_to_string (XFASTINT (character), tem, &str);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1826
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1827 return make_string (str, len);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1828 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
1829
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1830 *push_text_char_description (XINT (character) & 0377, tem) = 0;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1831
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1832 return build_string (tem);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1833 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1834
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1835 /* 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
1836 a meta bit. */
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1837 static int
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1838 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
1839 Lisp_Object seq;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1840 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1841 int i;
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1842 int len = XINT (Flength (seq));
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
1843
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1844 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
1845 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1846 Lisp_Object ii, elt;
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
1847
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1848 XSETFASTINT (ii, i);
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
1849 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
1850
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1851 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
1852 || (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
1853 return 0;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1854 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1855
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1856 return 1;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1857 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
1858
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1859
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1860 /* where-is - finding a command in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1861
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1862 static Lisp_Object where_is_internal_1 ();
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1863 static Lisp_Object where_is_internal_2 ();
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1864
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1865 /* 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
1866
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1867 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
1868 "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
1869 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
1870 If KEYMAP is nil, search all the currently active keymaps.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1871 \n\
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1872 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
1873 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
1874 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
1875 no matter what it is.\n\
11089
3759523c1773 (Fwhere_is_internal): Fix missing \n\.
Karl Heuer <kwzh@gnu.org>
parents: 10840
diff changeset
1876 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
1877 and entirely reject menu bindings.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1878 \n\
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1879 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
1880 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
1881 indirect definition itself.")
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1882 (definition, keymap, firstonly, noindirect)
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1883 Lisp_Object definition, keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1884 Lisp_Object firstonly, noindirect;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1885 {
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1886 Lisp_Object maps;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1887 Lisp_Object found, sequences;
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1888 int keymap_specified = !NILP (keymap);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1889 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
1890 /* 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
1891 int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1892
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1893 if (! keymap_specified)
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1894 {
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1895 #ifdef USE_TEXT_PROPERTIES
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1896 keymap = get_local_map (PT, current_buffer);
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1897 #else
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1898 keymap = current_buffer->keymap;
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1899 #endif
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1900 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1901
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1902 if (!NILP (keymap))
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1903 maps = nconc2 (Faccessible_keymaps (get_keymap (keymap), Qnil),
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1904 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
1905 Qnil));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1906 else
5785
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1907 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
1908
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1909 /* 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
1910 if (! keymap_specified)
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1911 {
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1912 Lisp_Object minors;
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1913 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
1914 while (!NILP (minors))
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1915 {
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1916 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
1917 Qnil),
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1918 maps);
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1919 minors = XCONS (minors)->cdr;
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1920 }
e761c2b18894 (Fwhere_is_internal): Take just one keymap arg.
Richard M. Stallman <rms@gnu.org>
parents: 5704
diff changeset
1921 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1922
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1923 GCPRO5 (definition, keymap, maps, found, sequences);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1924 found = Qnil;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1925 sequences = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1926
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1927 for (; !NILP (maps); maps = Fcdr (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1928 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1929 /* 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
1930 register Lisp_Object this, map;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1931
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1932 /* In order to fold [META-PREFIX-CHAR CHAR] sequences into
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1933 [M-CHAR] sequences, check if last character of the sequence
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1934 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
1935 Lisp_Object last;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1936 int last_is_meta;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1937
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1938 this = Fcar (Fcar (maps));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1939 map = Fcdr (Fcar (maps));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1940 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
1941 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
1942 && EQ (Faref (this, last), meta_prefix_char));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1943
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1944 QUIT;
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1945
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1946 while (CONSP (map))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1947 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1948 /* 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
1949 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
1950 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
1951 loop body over both keymap and vector bindings.
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1952
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1953 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
1954 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
1955 have finished off the vector. */
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1956 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
1957 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
1958 map = XCONS (map)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1959
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1960 sequences = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1961
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1962 QUIT;
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
1963
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1964 /* 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
1965 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
1966 if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1967 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1968 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1969 int i;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1970 /* 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
1971 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
1972 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1973 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
1974 XSETFASTINT (key, i);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1975 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
1976 noindirect, keymap, this,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1977 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
1978 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1979 sequences = Fcons (sequence, sequences);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1980 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1981 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1982 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
1983 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1984 Lisp_Object *indices
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1985 = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1986 Lisp_Object args;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1987 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
1988 Fcons (keymap, Qnil)),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1989 Fcons (Fcons (this, last),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1990 Fcons (make_number (nomenus),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1991 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
1992
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1993 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
1994 0, indices);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1995 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
1996 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1997 else if (CONSP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1998 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1999 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2000
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2001 key = XCONS (elt)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2002 binding = XCONS (elt)->cdr;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2003
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2004 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
2005 noindirect, keymap, this,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2006 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
2007 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2008 sequences = Fcons (sequence, sequences);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2009 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2010
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2011
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2012 for (; ! NILP (sequences); sequences = XCONS (sequences)->cdr)
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 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2015
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2016 sequence = XCONS (sequences)->car;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2017
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2018 /* 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
2019 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
2020 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
2021 found = Fcons (sequence, found);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2022
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2023 /* 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
2024 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
2025 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
2026 we find. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2027 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
2028 RETURN_UNGCPRO (sequence);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2029 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
2030 RETURN_UNGCPRO (sequence);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2031 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2032 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2033 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2034
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2035 UNGCPRO;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2036
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2037 found = Fnreverse (found);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2038
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2039 /* 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
2040 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
2041 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
2042 if (! NILP (firstonly))
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2043 return Fcar (found);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2044
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2045 return found;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2046 }
17788
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 /* 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
2049 ARGS has the form
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2050 (((DEFINITION . NOINDIRECT) . (KEYMAP . RESULT))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2051 .
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2052 ((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
2053 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
2054 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
2055
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2056 static Lisp_Object
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2057 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
2058 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
2059 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2060 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
2061 Lisp_Object result, sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2062 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
2063
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2064 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
2065 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
2066 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
2067 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
2068 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
2069 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
2070 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
2071 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
2072
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2073 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
2074 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
2075
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2076 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2077 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
2078 = Fcons (sequence, result);
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 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2081 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2082
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2083 static Lisp_Object
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2084 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
2085 nomenus, last_is_meta)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2086 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
2087 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
2088 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2089 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2090 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
2091
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2092 /* 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
2093 if (NILP (noindirect))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2094 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2095 if (nomenus)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2096 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2097 while (1)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2098 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2099 Lisp_Object map, tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2100 /* 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
2101 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
2102 tem = Fkeymapp (map);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2103 if (!NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2104 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
2105 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2106 break;
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 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
2109 if (CONSP (definition)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2110 && STRINGP (XCONS (definition)->car))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2111 return Qnil;
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 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2114 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
2115 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2116
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2117 /* 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
2118 the target. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2119
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2120 if (CONSP (definition))
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 Lisp_Object tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2123 tem = Fequal (binding, definition);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2124 if (NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2125 return Qnil;
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 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2128 if (!EQ (binding, definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2129 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2130
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2131 /* 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
2132 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
2133 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
2134 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2135 sequence = Fcopy_sequence (this);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2136 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
2137 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2138 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2139 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
2140
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2141 /* 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
2142 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
2143
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2144 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
2145 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
2146 ignore this key.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2147
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2148 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
2149 means undefined. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2150 if (keymap_specified)
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 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
2153 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
2154 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2155 if (CONSP (definition))
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 Lisp_Object tem;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2158 tem = Fequal (binding, definition);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2159 if (NILP (tem))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2160 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2161 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2162 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2163 if (!EQ (binding, definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2164 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2165 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2166 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2167 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2168 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2169 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
2170 if (!EQ (binding, definition))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2171 return Qnil;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2172 }
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 return sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2175 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2176
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2177 /* describe-bindings - summarizing all the bindings in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2178
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2179 DEFUN ("describe-bindings", Fdescribe_bindings, Sdescribe_bindings, 0, 1, "",
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2180 "Show a list of all defined keys, and their definitions.\n\
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2181 The list is put in a buffer, which is displayed.\n\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2182 An optional argument PREFIX, if non-nil, should be a key sequence;\n\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2183 then we display only bindings that start with that prefix.")
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2184 (prefix)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2185 Lisp_Object prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2186 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2187 register Lisp_Object thisbuf;
9273
129621997564 (synkey, Fdescribe_bindings, describe_command): Use new accessor macros
Karl Heuer <kwzh@gnu.org>
parents: 9123
diff changeset
2188 XSETBUFFER (thisbuf, current_buffer);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2189 internal_with_output_to_temp_buffer ("*Help*",
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2190 describe_buffer_bindings,
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2191 Fcons (thisbuf, prefix));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2192 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2193 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2194
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2195 /* ARG is (BUFFER . PREFIX). */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2196
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2197 static Lisp_Object
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2198 describe_buffer_bindings (arg)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2199 Lisp_Object arg;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2200 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2201 Lisp_Object descbuf, prefix, shadow;
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2202 register Lisp_Object start1;
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2203 struct gcpro gcpro1;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2204
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2205 char *alternate_heading
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2206 = "\
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2207 Alternate Characters (use anywhere the nominal character is listed):\n\
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2208 nominal alternate\n\
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2209 ------- ---------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2210
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2211 descbuf = XCONS (arg)->car;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2212 prefix = XCONS (arg)->cdr;
4575
bf0f07186369 (describe_buffer_bindings): Declare shadow just once.
Richard M. Stallman <rms@gnu.org>
parents: 4138
diff changeset
2213 shadow = Qnil;
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2214 GCPRO1 (shadow);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2215
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2216 Fset_buffer (Vstandard_output);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2217
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2218 /* Report on alternates for keys. */
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2219 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
2220 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2221 int c;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2222 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
2223 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
2224
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2225 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
2226 if (translate[c] != c)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2227 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2228 char buf[20];
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2229 char *bufend;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2230
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2231 if (alternate_heading)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2232 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2233 insert_string (alternate_heading);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2234 alternate_heading = 0;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2235 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2236
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2237 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
2238 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2239 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
2240 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
2241 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2242
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2243 insert ("\n", 1);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2244 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2245
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2246 insert ("\n", 1);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2247 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2248
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2249 if (!NILP (Vkey_translation_map))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2250 describe_map_tree (Vkey_translation_map, 0, Qnil, prefix,
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2251 "Key translations", 0, 1, 0);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2252
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2253 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2254 int i, nmaps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2255 Lisp_Object *modes, *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2256
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2257 /* 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
2258 minor modes correctly. */
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2259 Fset_buffer (descbuf);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2260
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2261 if (!NILP (current_kboard->Voverriding_terminal_local_map)
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2262 || !NILP (Voverriding_local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2263 nmaps = 0;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2264 else
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2265 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
2266 Fset_buffer (Vstandard_output);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2267
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2268 /* Print the minor mode maps. */
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2269 for (i = 0; i < nmaps; i++)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2270 {
6695
c66bed2f25af (describe_buffer_bindings): Move XSYMBOL to after SYMBOLP.
Karl Heuer <kwzh@gnu.org>
parents: 6524
diff changeset
2271 /* 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
2272 is constructed at run time.
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2273 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
2274 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
2275 char *title, *p;
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2276
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2277 if (!SYMBOLP (modes[i]))
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2278 abort();
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2279
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2280 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
2281 *p++ = '`';
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2282 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
2283 XSYMBOL (modes[i])->name->size);
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2284 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
2285 *p++ = '\'';
6695
c66bed2f25af (describe_buffer_bindings): Move XSYMBOL to after SYMBOLP.
Karl Heuer <kwzh@gnu.org>
parents: 6524
diff changeset
2286 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
2287 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
2288 *p = 0;
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2289
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
2290 describe_map_tree (maps[i], 1, shadow, prefix, title, 0, 0, 0);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2291 shadow = Fcons (maps[i], shadow);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2292 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2293 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2294
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2295 /* Print the (major mode) local map. */
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2296 if (!NILP (current_kboard->Voverriding_terminal_local_map))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2297 start1 = current_kboard->Voverriding_terminal_local_map;
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
2298 else if (!NILP (Voverriding_local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2299 start1 = Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2300 else
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2301 start1 = XBUFFER (descbuf)->keymap;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
2302
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2303 if (!NILP (start1))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2304 {
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
2305 describe_map_tree (start1, 1, shadow, prefix,
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2306 "Major Mode Bindings", 0, 0, 0);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2307 shadow = Fcons (start1, shadow);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2308 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2309
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
2310 describe_map_tree (current_global_map, 1, shadow, prefix,
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2311 "Global Bindings", 0, 0, 1);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2312
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2313 /* 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
2314 if (!NILP (Vfunction_key_map))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2315 describe_map_tree (Vfunction_key_map, 0, Qnil, prefix,
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2316 "Function key map translations", 0, 1, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2317
9862
d35ed70c84d4 (describe_buffer_bindings): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents: 9312
diff changeset
2318 call0 (intern ("help-mode"));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2319 Fset_buffer (descbuf);
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2320 UNGCPRO;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2321 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2322 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2323
13947
65488aa49b87 (Flookup_key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13771
diff changeset
2324 /* Insert a description of the key bindings in STARTMAP,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2325 followed by those of all maps reachable through STARTMAP.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2326 If PARTIAL is nonzero, omit certain "uninteresting" commands
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2327 (such as `undefined').
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2328 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
2329 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
2330 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
2331 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
2332 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
2333 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
2334
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2335 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
2336 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
2337
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2338 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
2339 to look through. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2340
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2341 void
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2342 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
2343 always_title)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2344 Lisp_Object startmap, shadow, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2345 int partial;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2346 char *title;
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2347 int nomenu;
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2348 int transl;
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2349 int always_title;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2350 {
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2351 Lisp_Object maps, seen, sub_shadows;
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2352 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
2353 int something = 0;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2354 char *key_heading
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2355 = "\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2356 key binding\n\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2357 --- -------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2358
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2359 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
2360 seen = Qnil;
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2361 sub_shadows = Qnil;
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2362 GCPRO3 (maps, seen, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2363
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2364 if (nomenu)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2365 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2366 Lisp_Object list;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2367
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2368 /* 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
2369 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
2370 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2371 Lisp_Object elt, prefix, tem;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2372
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2373 elt = Fcar (list);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2374 prefix = Fcar (elt);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2375 if (XVECTOR (prefix)->size >= 1)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2376 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2377 tem = Faref (prefix, make_number (0));
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2378 if (EQ (tem, Qmenu_bar))
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2379 maps = Fdelq (elt, maps);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2380 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2381 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2382 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
2383
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
2384 if (!NILP (maps) || always_title)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2385 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2386 if (title)
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2387 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2388 insert_string (title);
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2389 if (!NILP (prefix))
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2390 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2391 insert_string (" Starting With ");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2392 insert1 (Fkey_description (prefix));
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2393 }
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2394 insert_string (":\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2395 }
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2396 insert_string (key_heading);
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2397 something = 1;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2398 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2399
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2400 for (; !NILP (maps); maps = Fcdr (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2401 {
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
2402 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
2403
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2404 elt = Fcar (maps);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2405 prefix = Fcar (elt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2406
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2407 sub_shadows = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2408
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2409 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
2410 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2411 Lisp_Object shmap;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2412
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2413 shmap = XCONS (tail)->car;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2414
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2415 /* 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
2416 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
2417 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
2418 || (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
2419 ;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2420 /* 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
2421 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
2422 what we should use. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2423 else
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2424 {
6859
f34b91fa388c (describe_map_tree): Fix call to Flookup_key.
Richard M. Stallman <rms@gnu.org>
parents: 6834
diff changeset
2425 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
2426 if (INTEGERP (shmap))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2427 shmap = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2428 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2429
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2430 /* 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
2431 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
2432 describe this map at all. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2433 if (!NILP (shmap) && NILP (Fkeymapp (shmap)))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2434 goto skip;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2435
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2436 if (!NILP (shmap))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2437 sub_shadows = Fcons (shmap, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2438 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2439
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2440 describe_map (Fcdr (elt), Fcar (elt),
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2441 transl ? describe_translation : describe_command,
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2442 partial, sub_shadows, &seen, nomenu);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2443
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2444 skip: ;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2445 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2446
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2447 if (something)
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2448 insert_string ("\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
2449
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2450 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2451 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2452
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2453 static int previous_description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2454
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2455 static void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2456 describe_command (definition)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2457 Lisp_Object definition;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2458 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2459 register Lisp_Object tem1;
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2460 int column = current_column ();
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2461 int description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2462
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2463 /* If column 16 is no good, go to col 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2464 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
2465 if (column > 30)
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2466 {
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2467 insert_char ('\n');
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2468 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2469 }
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2470 else if (column > 14 || (column > 10 && previous_description_column == 32))
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2471 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2472 else
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2473 description_column = 16;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2474
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2475 Findent_to (make_number (description_column), make_number (1));
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2476 previous_description_column = description_column;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2477
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2478 if (SYMBOLP (definition))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2479 {
9273
129621997564 (synkey, Fdescribe_bindings, describe_command): Use new accessor macros
Karl Heuer <kwzh@gnu.org>
parents: 9123
diff changeset
2480 XSETSTRING (tem1, XSYMBOL (definition)->name);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2481 insert1 (tem1);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2482 insert_string ("\n");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2483 }
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2484 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
2485 insert_string ("Keyboard Macro\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2486 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2487 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2488 tem1 = Fkeymapp (definition);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2489 if (!NILP (tem1))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2490 insert_string ("Prefix Command\n");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2491 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2492 insert_string ("??\n");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2493 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2494 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2495
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2496 static void
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2497 describe_translation (definition)
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2498 Lisp_Object definition;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2499 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2500 register Lisp_Object tem1;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2501
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2502 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
2503
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2504 if (SYMBOLP (definition))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2505 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2506 XSETSTRING (tem1, XSYMBOL (definition)->name);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2507 insert1 (tem1);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2508 insert_string ("\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2509 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2510 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
2511 {
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
2512 insert1 (Fkey_description (definition));
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
2513 insert_string ("\n");
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
2514 }
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2515 else
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2516 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2517 tem1 = Fkeymapp (definition);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2518 if (!NILP (tem1))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2519 insert_string ("Prefix Command\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2520 else
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2521 insert_string ("??\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2522 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2523 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2524
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2525 /* 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
2526 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
2527
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2528 static Lisp_Object
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2529 shadow_lookup (shadow, key, flag)
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2530 Lisp_Object shadow, key, flag;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2531 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2532 Lisp_Object tail, value;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2533
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2534 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
2535 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2536 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
2537 if (!NILP (value))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2538 return value;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2539 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2540 return Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2541 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2542
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2543 /* 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
2544 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
2545 PARTIAL, SHADOW, NOMENU are as in `describe_map_tree' above. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2546
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2547 static void
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2548 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
2549 register Lisp_Object map;
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2550 Lisp_Object keys;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2551 int (*elt_describer) ();
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2552 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2553 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
2554 Lisp_Object *seen;
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2555 int nomenu;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2556 {
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2557 Lisp_Object elt_prefix;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2558 Lisp_Object tail, definition, event;
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2559 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2560 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2561 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2562 int first = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2563 struct gcpro gcpro1, gcpro2, gcpro3;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2564
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2565 if (!NILP (keys) && XFASTINT (Flength (keys)) > 0)
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2566 {
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2567 /* 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
2568 tem = Fkey_description (keys);
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2569 elt_prefix = concat2 (tem, build_string (" "));
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2570 }
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2571 else
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2572 elt_prefix = Qnil;
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2573
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2574 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2575 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2576
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2577 /* 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
2578 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
2579 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2580 kludge = Fmake_vector (make_number (1), Qnil);
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2581 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2582
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2583 GCPRO3 (elt_prefix, definition, kludge);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2584
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2585 for (tail = map; CONSP (tail); tail = XCONS (tail)->cdr)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2586 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2587 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2588
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2589 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
2590 || 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
2591 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
2592 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
2593 (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
2594 else if (CONSP (XCONS (tail)->car))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2595 {
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2596 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
2597
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
2598 /* 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
2599 (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
2600 if (! (SYMBOLP (event) || INTEGERP (event)))
7191
bd2f9c5ee54e (Fsingle_key_description): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents: 7186
diff changeset
2601 continue;
7341
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
2602
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2603 if (nomenu && EQ (event, Qmenu_bar))
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2604 continue;
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
2605
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2606 definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2607
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2608 /* Don't show undefined commands or suppressed commands. */
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2609 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
2610 if (SYMBOLP (definition) && partial)
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2611 {
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2612 tem = Fget (definition, suppress);
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2613 if (!NILP (tem))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2614 continue;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2615 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2616
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2617 /* 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
2618 because a local definition of the same key shadows it. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2619
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2620 XVECTOR (kludge)->contents[0] = event;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2621 if (!NILP (shadow))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2622 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2623 tem = shadow_lookup (shadow, kludge, Qt);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2624 if (!NILP (tem)) continue;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2625 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2626
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
2627 tem = Flookup_key (map, kludge, Qt);
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2628 if (! EQ (tem, definition)) continue;
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2629
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2630 if (first)
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2631 {
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
2632 previous_description_column = 0;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2633 insert ("\n", 1);
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2634 first = 0;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2635 }
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2636
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2637 if (!NILP (elt_prefix))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2638 insert1 (elt_prefix);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2639
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2640 /* THIS gets the string to describe the character EVENT. */
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2641 insert1 (Fsingle_key_description (event));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2642
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2643 /* 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
2644 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
2645 for alignment purposes. */
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
2646 (*elt_describer) (definition);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2647 }
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2648 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
2649 {
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2650 /* 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
2651 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
2652 encountered. */
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2653 tem = Fassq (tail, *seen);
7669
93b5868150b9 (describe_map): Fix the call to Fequal.
Richard M. Stallman <rms@gnu.org>
parents: 7341
diff changeset
2654 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
2655 break;
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
2656 *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
2657 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2658 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2659
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2660 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2661 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2662
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2663 static int
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2664 describe_vector_princ (elt)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2665 Lisp_Object elt;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2666 {
3691
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
2667 Findent_to (make_number (16), make_number (1));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2668 Fprinc (elt, Qnil);
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2669 Fterpri (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2670 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2671
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2672 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
2673 "Insert a description of contents of VECTOR.\n\
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2674 This is text showing the elements of vector matched against indices.")
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2675 (vector)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2676 Lisp_Object vector;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2677 {
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2678 int count = specpdl_ptr - specpdl;
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2679
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2680 specbind (Qstandard_output, Fcurrent_buffer ());
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2681 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
2682 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
2683 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
2684
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
2685 return unbind_to (count, Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2686 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2687
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2688 /* 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
2689 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
2690 in VECTOR.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2691
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2692 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
2693 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
2694 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
2695
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2696 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
2697 leads to this keymap.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2698
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2699 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
2700 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
2701 set described by this chartable.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2702
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2703 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
2704 (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
2705
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2706 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
2707 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
2708 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
2709
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2710 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
2711 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
2712 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
2713
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2714 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
2715 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
2716 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
2717
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2718 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
2719 partial, shadow, entire_map,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2720 indices, char_table_depth)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2721 register Lisp_Object vector;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2722 Lisp_Object elt_prefix;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2723 int (*elt_describer) ();
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2724 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2725 Lisp_Object shadow;
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2726 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
2727 int *indices;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2728 int char_table_depth;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2729 {
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2730 Lisp_Object definition;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2731 Lisp_Object tem2;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2732 register int i;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2733 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2734 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2735 int first = 1;
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2736 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2737 /* Range of elements to be handled. */
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2738 int from, to;
17111
60ad27660a65 (describe_vector): Do not descibe deeper char-table if
Kenichi Handa <handa@m17n.org>
parents: 17036
diff changeset
2739 /* Flag to tell if we should handle multibyte characters. */
60ad27660a65 (describe_vector): Do not descibe deeper char-table if
Kenichi Handa <handa@m17n.org>
parents: 17036
diff changeset
2740 int multibyte = !NILP (current_buffer->enable_multibyte_characters);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2741 /* 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
2742 generic character (i.e. a complete multibyte character). */
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2743 int complete_char;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2744 int character;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2745 int starting_i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2746
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2747 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
2748 indices = (int *) alloca (3 * sizeof (int));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2749
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2750 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2751
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2752 /* This vector gets used to present single keys to Flookup_key. Since
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2753 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
2754 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2755 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
2756 GCPRO3 (elt_prefix, definition, kludge);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2757
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2758 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2759 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2760
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2761 if (CHAR_TABLE_P (vector))
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2762 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2763 if (char_table_depth == 0)
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2764 {
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2765 /* 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
2766 complete_char = 1;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2767 from = 0;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2768 to = CHAR_TABLE_ORDINARY_SLOTS;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2769 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2770 else
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2771 {
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2772 /* 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
2773 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
2774 /* 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
2775 error ("Too deep char table");
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2776
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2777 complete_char
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2778 = (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
2779 && ((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
2780 && char_table_depth == 1)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2781 || char_table_depth == 2));
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2782
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2783 /* Meaningful elements are from 32th to 127th. */
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2784 from = 32;
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2785 to = SUB_CHAR_TABLE_ORDINARY_SLOTS;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2786 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2787 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2788 else
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2789 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2790 /* 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
2791
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2792 complete_char = 1;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2793 from = 0;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2794 to = XVECTOR (vector)->size;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2795 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2796
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2797 for (i = from; i < to; i++)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2798 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2799 QUIT;
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
2800
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2801 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
2802 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2803 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
2804 complete_char = 0;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2805
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2806 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
2807 && !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
2808 continue;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2809
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2810 definition
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2811 = 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
2812 }
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2813 else
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2814 definition = get_keyelt (XVECTOR (vector)->contents[i], 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2815
17511
10ead0052174 (describe_vector): Test for suppressed commands in
Richard M. Stallman <rms@gnu.org>
parents: 17510
diff changeset
2816 if (NILP (definition)) continue;
10ead0052174 (describe_vector): Test for suppressed commands in
Richard M. Stallman <rms@gnu.org>
parents: 17510
diff changeset
2817
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2818 /* Don't mention suppressed commands. */
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2819 if (SYMBOLP (definition) && partial)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2820 {
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2821 Lisp_Object tem;
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 tem = Fget (definition, suppress);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2824
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2825 if (!NILP (tem)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2826 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2827
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2828 /* 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
2829 Also update *INDICES. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2830 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
2831 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2832 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
2833
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2834 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
2835 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2836 character = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2837 indices[0] = i - 128;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2838 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2839 else if (complete_char)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2840 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2841 character
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2842 = 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
2843 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2844 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2845 character = 0;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2846 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2847 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2848 character = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2849
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2850 /* 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
2851 if (!NILP (shadow) && complete_char)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2852 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2853 Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2854
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2855 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
2856 tem = shadow_lookup (shadow, kludge, Qt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2857
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2858 if (!NILP (tem)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2859 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2860
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2861 /* 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
2862 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
2863 if (!NILP (entire_map) && complete_char)
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2864 {
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2865 Lisp_Object tem;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2866
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2867 XVECTOR (kludge)->contents[0] = make_number (character);
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2868 tem = Flookup_key (entire_map, kludge, Qt);
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2869
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2870 if (! EQ (tem, definition))
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2871 continue;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2872 }
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
2873
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2874 if (first)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2875 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2876 if (char_table_depth == 0)
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2877 insert ("\n", 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2878 first = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2879 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2880
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2881 /* 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
2882 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
2883 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
2884 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
2885
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2886 /* 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
2887 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2888 insert1 (elt_prefix);
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 /* 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
2891 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
2892 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
2893 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2894 if (complete_char)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2895 insert_char (character);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2896 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2897 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2898 /* 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
2899 characters. */
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2900 char work[16];
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2901 sprintf (work, "(row %d)", i);
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2902 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
2903 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2904 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2905 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
2906 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2907 if (complete_char)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2908 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
2909 else
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2910 {
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2911 /* 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
2912 insert_string ("<");
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2913 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
2914 if (STRINGP (tem2))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2915 insert_from_string (tem2, 0 , XSTRING (tem2)->size, 0);
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2916 else
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2917 insert ("?", 1);
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2918 insert (">", 1);
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2919 }
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2920 }
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2921 else
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2922 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2923 insert1 (Fsingle_key_description (make_number (character)));
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2924 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2925
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2926 /* 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
2927 scan it recursively; it defines the details for
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2928 a character set or a portion of a character set. */
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2929 if (multibyte && CHAR_TABLE_P (vector) && SUB_CHAR_TABLE_P (definition))
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2930 {
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2931 insert ("\n", 1);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2932 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
2933 partial, shadow, entire_map,
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2934 indices, char_table_depth + 1);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2935 continue;
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2936 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2937
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2938 starting_i = i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2939
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2940 /* 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
2941 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
2942 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
2943 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
2944 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
2945 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2946 int limit = to;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2947
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2948 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
2949 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
2950
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2951 while (i + 1 < limit
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2952 && (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
2953 !NILP (tem2))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2954 && !NILP (Fequal (tem2, definition)))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2955 i++;
17327
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 else
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2958 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
2959 && (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
2960 !NILP (tem2))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2961 && !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
2962 i++;
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
2963
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2964
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2965 /* If we have a range of more than one character,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2966 print where the range reaches to. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2967
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2968 if (i != starting_i)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2969 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2970 insert (" .. ", 4);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2971
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2972 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2973 insert1 (elt_prefix);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2974
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2975 if (CHAR_TABLE_P (vector))
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2976 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2977 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
2978 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2979 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
2980 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2981 else if (complete_char)
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2982 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2983 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
2984 character
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2985 = 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
2986 insert_char (character);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2987 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2988 else
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2989 {
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2990 /* 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
2991 characters. */
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2992 char work[16];
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2993 sprintf (work, "(row %d)", i);
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
2994 insert (work, strlen (work));
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2995 }
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2996 }
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2997 else
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
2998 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2999 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
3000 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3001 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3002
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3003 /* Print a description of the definition of this character.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3004 elt_describer will take care of spacing out far enough
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3005 for alignment purposes. */
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3006 (*elt_describer) (definition);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3007 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3008
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3009 /* For (sub) char-table, print `defalt' slot at last. */
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3010 if (CHAR_TABLE_P (vector) && !NILP (XCHAR_TABLE (vector)->defalt))
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3011 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3012 insert (" ", char_table_depth * 2);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3013 insert_string ("<<default>>");
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3014 (*elt_describer) (XCHAR_TABLE (vector)->defalt);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3015 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3016
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3017 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3018 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3019
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3020 /* Apropos - finding all symbols whose names match a regexp. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3021 Lisp_Object apropos_predicate;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3022 Lisp_Object apropos_accumulate;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3023
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3024 static void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3025 apropos_accum (symbol, string)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3026 Lisp_Object symbol, string;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3027 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3028 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3029
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3030 tem = Fstring_match (string, Fsymbol_name (symbol), Qnil);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3031 if (!NILP (tem) && !NILP (apropos_predicate))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3032 tem = call1 (apropos_predicate, symbol);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3033 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3034 apropos_accumulate = Fcons (symbol, apropos_accumulate);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3035 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3036
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3037 DEFUN ("apropos-internal", Fapropos_internal, Sapropos_internal, 1, 2, 0,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3038 "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
3039 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
3040 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
3041 Return list of symbols found.")
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3042 (regexp, predicate)
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3043 Lisp_Object regexp, predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3044 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3045 struct gcpro gcpro1, gcpro2;
14099
6215cbb7f702 (Fapropos_internal): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 14080
diff changeset
3046 CHECK_STRING (regexp, 0);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3047 apropos_predicate = predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3048 GCPRO2 (apropos_predicate, apropos_accumulate);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3049 apropos_accumulate = Qnil;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3050 map_obarray (Vobarray, apropos_accum, regexp);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3051 apropos_accumulate = Fsort (apropos_accumulate, Qstring_lessp);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3052 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3053 return apropos_accumulate;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3054 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3055
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3056 syms_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3057 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3058 Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3059
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3060 Qkeymap = intern ("keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3061 staticpro (&Qkeymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3062
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3063 /* 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
3064 create char tables. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3065 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
3066
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3067 /* 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
3068 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
3069 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
3070
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3071 global_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3072 Fset (intern ("global-map"), global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3073
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3074 current_global_map = global_map;
16227
6acf08913847 (syms_of_keymap): staticpro global_map.
Erik Naggum <erik@naggum.no>
parents: 16125
diff changeset
3075 staticpro (&global_map);
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3076 staticpro (&current_global_map);
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3077
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3078 meta_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3079 Fset (intern ("esc-map"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3080 Ffset (intern ("ESC-prefix"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3081
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3082 control_x_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3083 Fset (intern ("ctl-x-map"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3084 Ffset (intern ("Control-X-prefix"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3085
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3086 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
3087 "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
3088 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
3089 don't alter it yourself.");
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3090 Vdefine_key_rebound_commands = Qt;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3091
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3092 DEFVAR_LISP ("minibuffer-local-map", &Vminibuffer_local_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3093 "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
3094 Vminibuffer_local_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3095
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3096 DEFVAR_LISP ("minibuffer-local-ns-map", &Vminibuffer_local_ns_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3097 "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
3098 Vminibuffer_local_ns_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3099
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3100 DEFVAR_LISP ("minibuffer-local-completion-map", &Vminibuffer_local_completion_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3101 "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
3102 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3103
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3104 DEFVAR_LISP ("minibuffer-local-must-match-map", &Vminibuffer_local_must_match_map,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3105 "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
3106 Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3107
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3108 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3109 "Alist of keymaps to use for minor modes.\n\
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3110 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
3111 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
3112 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
3113 in the list takes precedence.");
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3114 Vminor_mode_map_alist = Qnil;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3115
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3116 DEFVAR_LISP ("function-key-map", &Vfunction_key_map,
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3117 "Keymap mapping ASCII function key sequences onto their preferred forms.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3118 This allows Emacs to recognize function keys sent from ASCII\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3119 terminals at any point in a key sequence.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3120 \n\
8731
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3121 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
3122 `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
3123 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
3124 `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
3125 `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
3126 continues with the new sequence.\n\
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3127 \n\
8731
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3128 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
3129 themselves looked up in `function-key-map'.\n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3130 \n\
7ebb77d4aff2 (syms_of_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8517
diff changeset
3131 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
3132 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
3133 `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
3134 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
3135 Vfunction_key_map = Fmake_sparse_keymap (Qnil);
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3136
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3137 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
3138 "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
3139 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
3140 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
3141 Vkey_translation_map = Qnil;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3142
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3143 Qsingle_key_description = intern ("single-key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3144 staticpro (&Qsingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3145
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3146 Qkey_description = intern ("key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3147 staticpro (&Qkey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3148
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3149 Qkeymapp = intern ("keymapp");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3150 staticpro (&Qkeymapp);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3151
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
3152 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
3153 staticpro (&Qnon_ascii);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
3154
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3155 defsubr (&Skeymapp);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
3156 defsubr (&Skeymap_parent);
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
3157 defsubr (&Sset_keymap_parent);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3158 defsubr (&Smake_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3159 defsubr (&Smake_sparse_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3160 defsubr (&Scopy_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3161 defsubr (&Skey_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3162 defsubr (&Slocal_key_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3163 defsubr (&Sglobal_key_binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3164 defsubr (&Sminor_mode_key_binding);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3165 defsubr (&Sdefine_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3166 defsubr (&Slookup_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3167 defsubr (&Sdefine_prefix_command);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3168 defsubr (&Suse_global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3169 defsubr (&Suse_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3170 defsubr (&Scurrent_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3171 defsubr (&Scurrent_global_map);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3172 defsubr (&Scurrent_minor_mode_maps);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3173 defsubr (&Saccessible_keymaps);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3174 defsubr (&Skey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3175 defsubr (&Sdescribe_vector);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3176 defsubr (&Ssingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3177 defsubr (&Stext_char_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3178 defsubr (&Swhere_is_internal);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3179 defsubr (&Sdescribe_bindings);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3180 defsubr (&Sapropos_internal);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3181 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3182
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3183 keys_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3184 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3185 Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3186
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3187 initial_define_key (global_map, 033, "ESC-prefix");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3188 initial_define_key (global_map, Ctl('X'), "Control-X-prefix");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3189 }