Mercurial > emacs
annotate src/keymap.c @ 5164:04d6b9e7782a
(vc-make-backup-files): Doc fix.
(vc-rcs-status): Use colon, not dash, in the string LOCKS.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 25 Nov 1993 03:46:27 +0000 |
parents | 33de23a28204 |
children | bec1126c6c00 |
rev | line source |
---|---|
250 | 1 /* Manipulation of keymaps |
2961 | 2 Copyright (C) 1985, 1986, 1987, 1988, 1993 Free Software Foundation, Inc. |
250 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
647 | 8 the Free Software Foundation; either version 2, or (at your option) |
250 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4575
diff
changeset
|
21 #include <config.h> |
250 | 22 #include <stdio.h> |
23 #undef NULL | |
24 #include "lisp.h" | |
25 #include "commands.h" | |
26 #include "buffer.h" | |
517 | 27 #include "keyboard.h" |
2059 | 28 #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
|
29 #include "blockinput.h" |
250 | 30 |
31 #define min(a, b) ((a) < (b) ? (a) : (b)) | |
32 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
33 /* The number of elements in keymap vectors. */ |
250 | 34 #define DENSE_TABLE_SIZE (0200) |
35 | |
36 /* Actually allocate storage for these variables */ | |
37 | |
38 Lisp_Object current_global_map; /* Current global keymap */ | |
39 | |
40 Lisp_Object global_map; /* default global key bindings */ | |
41 | |
42 Lisp_Object meta_map; /* The keymap used for globally bound | |
43 ESC-prefixed default commands */ | |
44 | |
45 Lisp_Object control_x_map; /* The keymap used for globally bound | |
46 C-x-prefixed default commands */ | |
47 | |
48 /* was MinibufLocalMap */ | |
49 Lisp_Object Vminibuffer_local_map; | |
50 /* The keymap used by the minibuf for local | |
51 bindings when spaces are allowed in the | |
52 minibuf */ | |
53 | |
54 /* was MinibufLocalNSMap */ | |
55 Lisp_Object Vminibuffer_local_ns_map; | |
56 /* The keymap used by the minibuf for local | |
57 bindings when spaces are not encouraged | |
58 in the minibuf */ | |
59 | |
60 /* keymap used for minibuffers when doing completion */ | |
61 /* was MinibufLocalCompletionMap */ | |
62 Lisp_Object Vminibuffer_local_completion_map; | |
63 | |
64 /* keymap used for minibuffers when doing completion and require a match */ | |
65 /* was MinibufLocalMustMatchMap */ | |
66 Lisp_Object Vminibuffer_local_must_match_map; | |
67 | |
465 | 68 /* Alist of minor mode variables and keymaps. */ |
69 Lisp_Object Vminor_mode_map_alist; | |
70 | |
517 | 71 /* Keymap mapping ASCII function key sequences onto their preferred forms. |
72 Initialized by the terminal-specific lisp files. See DEFVAR for more | |
73 documentation. */ | |
74 Lisp_Object Vfunction_key_map; | |
75 | |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
76 Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii; |
250 | 77 |
2886 | 78 /* A char with the CHAR_META bit set in a vector or the 0200 bit set |
79 in a string key sequence is equivalent to prefixing with this | |
80 character. */ | |
250 | 81 extern Lisp_Object meta_prefix_char; |
82 | |
83 void describe_map_tree (); | |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
84 static Lisp_Object define_as_prefix (); |
250 | 85 static Lisp_Object describe_buffer_bindings (); |
86 static void describe_command (); | |
87 static void describe_map (); | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
88 static void describe_map_2 (); |
250 | 89 |
465 | 90 /* Keymap object support - constructors and predicates. */ |
91 | |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
92 DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0, |
250 | 93 "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
|
94 VECTOR is a vector which holds the bindings for the ASCII\n\ |
250 | 95 characters. ALIST is an assoc-list which holds bindings for function keys,\n\ |
96 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
|
97 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
|
98 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
|
99 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
|
100 (string) |
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
101 Lisp_Object string; |
250 | 102 { |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
103 Lisp_Object tail; |
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
104 if (!NILP (string)) |
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
105 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
|
106 else |
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
107 tail = Qnil; |
250 | 108 return Fcons (Qkeymap, |
109 Fcons (Fmake_vector (make_number (DENSE_TABLE_SIZE), Qnil), | |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
110 tail)); |
250 | 111 } |
112 | |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
113 DEFUN ("make-sparse-keymap", Fmake_sparse_keymap, Smake_sparse_keymap, 0, 1, 0, |
250 | 114 "Construct and return a new sparse-keymap list.\n\ |
115 Its car is `keymap' and its cdr is an alist of (CHAR . DEFINITION),\n\ | |
116 which binds the character CHAR to DEFINITION, or (SYMBOL . DEFINITION),\n\ | |
117 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
|
118 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
|
119 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
|
120 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
|
121 (string) |
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
122 Lisp_Object string; |
250 | 123 { |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
124 if (!NILP (string)) |
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
125 return Fcons (Qkeymap, Fcons (string, Qnil)); |
250 | 126 return Fcons (Qkeymap, Qnil); |
127 } | |
128 | |
129 /* This function is used for installing the standard key bindings | |
130 at initialization time. | |
131 | |
132 For example: | |
133 | |
1388
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
134 initial_define_key (control_x_map, Ctl('X'), "exchange-point-and-mark"); */ |
250 | 135 |
136 void | |
137 initial_define_key (keymap, key, defname) | |
138 Lisp_Object keymap; | |
139 int key; | |
140 char *defname; | |
141 { | |
142 store_in_keymap (keymap, make_number (key), intern (defname)); | |
143 } | |
144 | |
1388
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
145 void |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
146 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
|
147 Lisp_Object keymap; |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
148 char *keyname; |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
149 char *defname; |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
150 { |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
151 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
|
152 } |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
153 |
250 | 154 /* Define character fromchar in map frommap as an alias for character |
155 tochar in map tomap. Subsequent redefinitions of the latter WILL | |
156 affect the former. */ | |
157 | |
158 #if 0 | |
159 void | |
160 synkey (frommap, fromchar, tomap, tochar) | |
161 struct Lisp_Vector *frommap, *tomap; | |
162 int fromchar, tochar; | |
163 { | |
164 Lisp_Object v, c; | |
165 XSET (v, Lisp_Vector, tomap); | |
166 XFASTINT (c) = tochar; | |
167 frommap->contents[fromchar] = Fcons (v, c); | |
168 } | |
169 #endif /* 0 */ | |
170 | |
171 DEFUN ("keymapp", Fkeymapp, Skeymapp, 1, 1, 0, | |
172 "Return t if ARG is a keymap.\n\ | |
362 | 173 \n\ |
2790
cf431814ce6a
(access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents:
2755
diff
changeset
|
174 A keymap is a list (keymap . ALIST),\n\ |
362 | 175 or a symbol whose function definition is a keymap is itself a keymap.\n\ |
176 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
|
177 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
|
178 is also allowed as an element.") |
250 | 179 (object) |
180 Lisp_Object object; | |
181 { | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
182 return (NILP (get_keymap_1 (object, 0, 0)) ? Qnil : Qt); |
250 | 183 } |
184 | |
185 /* 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
|
186 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
|
187 |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
188 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
|
189 is an autoload form, do the autoload and try again. |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
190 |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
191 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
|
192 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
|
193 |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
194 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
|
195 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
|
196 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
|
197 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
|
198 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
|
199 |
250 | 200 Lisp_Object |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
201 get_keymap_1 (object, error, autoload) |
250 | 202 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
|
203 int error, autoload; |
250 | 204 { |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
205 Lisp_Object tem; |
250 | 206 |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
207 autoload_retry: |
647 | 208 tem = indirect_function (object); |
250 | 209 if (CONSP (tem) && EQ (XCONS (tem)->car, Qkeymap)) |
210 return tem; | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
211 |
1566
892c9f61217a
* keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents:
1517
diff
changeset
|
212 /* 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
|
213 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
|
214 if (autoload |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
215 && XTYPE (object) == Lisp_Symbol |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
216 && CONSP (tem) |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
217 && 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
|
218 { |
1566
892c9f61217a
* keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents:
1517
diff
changeset
|
219 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
|
220 |
892c9f61217a
* keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents:
1517
diff
changeset
|
221 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
|
222 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
|
223 { |
892c9f61217a
* keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents:
1517
diff
changeset
|
224 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
|
225 |
3691
49ce2242f5c1
(get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
3674
diff
changeset
|
226 GCPRO2 (tem, object); |
49ce2242f5c1
(get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
3674
diff
changeset
|
227 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
|
228 UNGCPRO; |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
229 |
1566
892c9f61217a
* keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents:
1517
diff
changeset
|
230 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
|
231 } |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
232 } |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
233 |
250 | 234 if (error) |
235 wrong_type_argument (Qkeymapp, object); | |
465 | 236 else |
237 return Qnil; | |
250 | 238 } |
239 | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
240 |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
241 /* 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
|
242 If OBJECT doesn't denote a keymap at all, signal an error. */ |
250 | 243 Lisp_Object |
244 get_keymap (object) | |
245 Lisp_Object object; | |
246 { | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
247 return get_keymap_1 (object, 0, 0); |
250 | 248 } |
249 | |
250 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
251 /* 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
|
252 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
|
253 event, not a sequence. |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
254 |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
255 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
|
256 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
|
257 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
|
258 |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
259 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
|
260 |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
261 If NOINHERIT, don't accept a subkeymap found in an inherited keymap. */ |
250 | 262 |
263 Lisp_Object | |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
264 access_keymap (map, idx, t_ok, noinherit) |
250 | 265 Lisp_Object map; |
266 Lisp_Object idx; | |
1388
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
267 int t_ok; |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
268 int noinherit; |
250 | 269 { |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
270 int noprefix = 0; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
271 Lisp_Object val; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
272 |
250 | 273 /* If idx is a list (some sort of mouse click, perhaps?), |
274 the index we want to use is the car of the list, which | |
275 ought to be a symbol. */ | |
1315
884c3d7e7172
* keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents:
1264
diff
changeset
|
276 idx = EVENT_HEAD (idx); |
250 | 277 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
278 /* 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
|
279 be put in the canonical order. */ |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
280 if (XTYPE (idx) == Lisp_Symbol) |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
281 idx = reorder_modifiers (idx); |
3515
9d0af0f2dc0d
(access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents:
3425
diff
changeset
|
282 else if (INTEGERP (idx)) |
9d0af0f2dc0d
(access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents:
3425
diff
changeset
|
283 /* 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
|
284 with more than 24 bits of integer. */ |
3632
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
285 XFASTINT (idx) = XINT (idx) & (CHAR_META | (CHAR_META - 1)); |
250 | 286 |
287 { | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
288 Lisp_Object tail; |
1388
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
289 Lisp_Object t_binding = Qnil; |
250 | 290 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
291 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
|
292 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
293 Lisp_Object binding = XCONS (tail)->car; |
250 | 294 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
295 switch (XTYPE (binding)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
296 { |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
297 case Lisp_Symbol: |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
298 /* If NOINHERIT, stop finding prefix definitions |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
299 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
|
300 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
|
301 noprefix = 1; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
302 break; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
303 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
304 case Lisp_Cons: |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
305 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
|
306 { |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
307 val = XCONS (binding)->cdr; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
308 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
|
309 return Qnil; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
310 return val; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
311 } |
1388
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
312 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
|
313 t_binding = XCONS (binding)->cdr; |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
314 break; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
315 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
316 case Lisp_Vector: |
2790
cf431814ce6a
(access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents:
2755
diff
changeset
|
317 if (XTYPE (idx) == Lisp_Int |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
318 && XINT (idx) >= 0 |
2790
cf431814ce6a
(access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents:
2755
diff
changeset
|
319 && XINT (idx) < XVECTOR (binding)->size) |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
320 { |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
321 val = XVECTOR (binding)->contents[XINT (idx)]; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
322 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
|
323 return Qnil; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
324 return val; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
325 } |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
326 break; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
327 } |
1264
6ba9d5aaace6
* keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents:
1236
diff
changeset
|
328 |
6ba9d5aaace6
* keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents:
1236
diff
changeset
|
329 QUIT; |
250 | 330 } |
1388
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
331 |
02226bff1476
* keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents:
1315
diff
changeset
|
332 return t_binding; |
1236
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
333 } |
250 | 334 } |
335 | |
336 /* Given OBJECT which was found in a slot in a keymap, | |
337 trace indirect definitions to get the actual definition of that slot. | |
338 An indirect definition is a list of the form | |
339 (KEYMAP . INDEX), where KEYMAP is a keymap or a symbol defined as one | |
340 and INDEX is the object to look up in KEYMAP to yield the definition. | |
341 | |
342 Also if OBJECT has a menu string as the first element, | |
1160
f7b55bfe1c05
(get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents:
1120
diff
changeset
|
343 remove that. Also remove a menu help string as second element. */ |
250 | 344 |
345 Lisp_Object | |
346 get_keyelt (object) | |
347 register Lisp_Object object; | |
348 { | |
349 while (1) | |
350 { | |
351 register Lisp_Object map, tem; | |
352 | |
1236
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
353 /* If the contents are (KEYMAP . ELEMENT), go indirect. */ |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
354 map = get_keymap_1 (Fcar_safe (object), 0, 0); |
250 | 355 tem = Fkeymapp (map); |
485 | 356 if (!NILP (tem)) |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
357 object = access_keymap (map, Fcdr (object), 0, 0); |
250 | 358 |
359 /* If the keymap contents looks like (STRING . DEFN), | |
360 use DEFN. | |
361 Keymap alist elements like (CHAR MENUSTRING . DEFN) | |
362 will be used by HierarKey menus. */ | |
363 else if (XTYPE (object) == Lisp_Cons | |
364 && XTYPE (XCONS (object)->car) == Lisp_String) | |
1160
f7b55bfe1c05
(get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents:
1120
diff
changeset
|
365 { |
f7b55bfe1c05
(get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents:
1120
diff
changeset
|
366 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
|
367 /* 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
|
368 following the menu item name. */ |
f7b55bfe1c05
(get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents:
1120
diff
changeset
|
369 if (XTYPE (object) == Lisp_Cons |
f7b55bfe1c05
(get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents:
1120
diff
changeset
|
370 && XTYPE (XCONS (object)->car) == Lisp_String) |
f7b55bfe1c05
(get_keyelt): Skip menu help string after menu item name.
Richard M. Stallman <rms@gnu.org>
parents:
1120
diff
changeset
|
371 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
|
372 } |
250 | 373 |
374 else | |
375 /* Anything else is really the value. */ | |
376 return object; | |
377 } | |
378 } | |
379 | |
380 Lisp_Object | |
381 store_in_keymap (keymap, idx, def) | |
382 Lisp_Object keymap; | |
383 register Lisp_Object idx; | |
384 register Lisp_Object def; | |
385 { | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
386 if (XTYPE (keymap) != Lisp_Cons |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
387 || ! EQ (XCONS (keymap)->car, Qkeymap)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
388 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
|
389 |
250 | 390 /* If idx is a list (some sort of mouse click, perhaps?), |
391 the index we want to use is the car of the list, which | |
392 ought to be a symbol. */ | |
1315
884c3d7e7172
* keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents:
1264
diff
changeset
|
393 idx = EVENT_HEAD (idx); |
250 | 394 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
395 /* 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
|
396 be put in the canonical order. */ |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
397 if (XTYPE (idx) == Lisp_Symbol) |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
398 idx = reorder_modifiers (idx); |
3515
9d0af0f2dc0d
(access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents:
3425
diff
changeset
|
399 else if (INTEGERP (idx)) |
9d0af0f2dc0d
(access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents:
3425
diff
changeset
|
400 /* 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
|
401 with more than 24 bits of integer. */ |
3632
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
402 XFASTINT (idx) = XINT (idx) & (CHAR_META | (CHAR_META - 1)); |
250 | 403 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
404 /* 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
|
405 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
406 Lisp_Object tail; |
250 | 407 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
408 /* 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
|
409 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
|
410 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
|
411 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
|
412 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
|
413 front of the keymap. */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
414 Lisp_Object insertion_point = keymap; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
415 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
416 for (tail = XCONS (keymap)->cdr; CONSP (tail); tail = XCONS (tail)->cdr) |
250 | 417 { |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
418 Lisp_Object elt = XCONS (tail)->car; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
419 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
420 switch (XTYPE (elt)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
421 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
422 case Lisp_Vector: |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
423 if (XTYPE (idx) == Lisp_Int |
2790
cf431814ce6a
(access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents:
2755
diff
changeset
|
424 && XINT (idx) >= 0 && XINT (idx) < XVECTOR (elt)->size) |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
425 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
426 XVECTOR (elt)->contents[XFASTINT (idx)] = def; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
427 return def; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
428 } |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
429 insertion_point = tail; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
430 break; |
250 | 431 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
432 case Lisp_Cons: |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
433 if (EQ (idx, XCONS (elt)->car)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
434 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
435 XCONS (elt)->cdr = def; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
436 return def; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
437 } |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
438 break; |
250 | 439 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
440 case Lisp_Symbol: |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
441 /* 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
|
442 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
|
443 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
|
444 should be inserted before it. */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
445 if (EQ (elt, Qkeymap)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
446 goto keymap_end; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
447 break; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
448 } |
1441
929409595312
* keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents:
1388
diff
changeset
|
449 |
929409595312
* keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents:
1388
diff
changeset
|
450 QUIT; |
250 | 451 } |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
452 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
453 keymap_end: |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
454 /* 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
|
455 IDX. Let's add one. */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
456 XCONS (insertion_point)->cdr = |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
457 Fcons (Fcons (idx, def), XCONS (insertion_point)->cdr); |
250 | 458 } |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
459 |
250 | 460 return def; |
461 } | |
462 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
463 |
250 | 464 DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0, |
465 "Return a copy of the keymap KEYMAP.\n\ | |
466 The copy starts out with the same definitions of KEYMAP,\n\ | |
467 but changing either the copy or KEYMAP does not affect the other.\n\ | |
362 | 468 Any key definitions that are subkeymaps are recursively copied.\n\ |
469 However, a key definition which is a symbol whose definition is a keymap\n\ | |
470 is not copied.") | |
250 | 471 (keymap) |
472 Lisp_Object keymap; | |
473 { | |
474 register Lisp_Object copy, tail; | |
475 | |
476 copy = Fcopy_alist (get_keymap (keymap)); | |
477 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
478 for (tail = copy; CONSP (tail); tail = XCONS (tail)->cdr) |
250 | 479 { |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
480 Lisp_Object elt = XCONS (tail)->car; |
250 | 481 |
2790
cf431814ce6a
(access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents:
2755
diff
changeset
|
482 if (XTYPE (elt) == Lisp_Vector) |
250 | 483 { |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
484 int i; |
250 | 485 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
486 elt = Fcopy_sequence (elt); |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
487 XCONS (tail)->car = elt; |
250 | 488 |
2790
cf431814ce6a
(access_keymap): Handle any length vector.
Richard M. Stallman <rms@gnu.org>
parents:
2755
diff
changeset
|
489 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
|
490 if (XTYPE (XVECTOR (elt)->contents[i]) != Lisp_Symbol |
3674
cfa45731460e
(Fcopy_keymap): Check Fkeymapp value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
3632
diff
changeset
|
491 && ! NILP (Fkeymapp (XVECTOR (elt)->contents[i]))) |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
492 XVECTOR (elt)->contents[i] = |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
493 Fcopy_keymap (XVECTOR (elt)->contents[i]); |
250 | 494 } |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
495 else if (CONSP (elt) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
496 && XTYPE (XCONS (elt)->cdr) != Lisp_Symbol |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
497 && ! NILP (Fkeymapp (XCONS (elt)->cdr))) |
250 | 498 XCONS (elt)->cdr = Fcopy_keymap (XCONS (elt)->cdr); |
499 } | |
500 | |
501 return copy; | |
502 } | |
503 | |
465 | 504 /* Simple Keymap mutators and accessors. */ |
505 | |
250 | 506 DEFUN ("define-key", Fdefine_key, Sdefine_key, 3, 3, 0, |
507 "Args KEYMAP, KEY, DEF. Define key sequence KEY, in KEYMAP, as DEF.\n\ | |
508 KEYMAP is a keymap. KEY is a string or a vector of symbols and characters\n\ | |
509 meaning a sequence of keystrokes and events.\n\ | |
5100 | 510 Non-ASCII characters with codes above 127 (such as ISO Latin-1)\n\ |
511 can be included if you use a vector.\n\ | |
250 | 512 DEF is anything that can be a key's definition:\n\ |
513 nil (means key is undefined in this keymap),\n\ | |
514 a command (a Lisp function suitable for interactive calling)\n\ | |
515 a string (treated as a keyboard macro),\n\ | |
516 a keymap (to define a prefix key),\n\ | |
517 a symbol. When the key is looked up, the symbol will stand for its\n\ | |
518 function definition, which should at that time be one of the above,\n\ | |
519 or another symbol whose function definition is used, etc.\n\ | |
520 a cons (STRING . DEFN), meaning that DEFN is the definition\n\ | |
521 (DEFN should be a valid definition in its own right),\n\ | |
368 | 522 or a cons (KEYMAP . CHAR), meaning use definition of CHAR in map KEYMAP.\n\ |
523 \n\ | |
524 If KEYMAP is a sparse keymap, the pair binding KEY to DEF is added at\n\ | |
525 the front of KEYMAP.") | |
250 | 526 (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
|
527 Lisp_Object keymap; |
250 | 528 Lisp_Object key; |
529 Lisp_Object def; | |
530 { | |
531 register int idx; | |
532 register Lisp_Object c; | |
533 register Lisp_Object tem; | |
534 register Lisp_Object cmd; | |
535 int metized = 0; | |
2059 | 536 int meta_bit; |
250 | 537 int length; |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
538 struct gcpro gcpro1, gcpro2, gcpro3; |
250 | 539 |
540 keymap = get_keymap (keymap); | |
541 | |
542 if (XTYPE (key) != Lisp_Vector | |
543 && XTYPE (key) != Lisp_String) | |
544 key = wrong_type_argument (Qarrayp, key); | |
545 | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
546 length = XFASTINT (Flength (key)); |
250 | 547 if (length == 0) |
548 return Qnil; | |
549 | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
550 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
|
551 |
2059 | 552 if (XTYPE (key) == Lisp_Vector) |
553 meta_bit = meta_modifier; | |
554 else | |
555 meta_bit = 0x80; | |
556 | |
250 | 557 idx = 0; |
558 while (1) | |
559 { | |
560 c = Faref (key, make_number (idx)); | |
561 | |
562 if (XTYPE (c) == Lisp_Int | |
2059 | 563 && (XINT (c) & meta_bit) |
250 | 564 && !metized) |
565 { | |
566 c = meta_prefix_char; | |
567 metized = 1; | |
568 } | |
569 else | |
570 { | |
571 if (XTYPE (c) == Lisp_Int) | |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
572 XSETINT (c, XINT (c) & ~meta_bit); |
250 | 573 |
574 metized = 0; | |
575 idx++; | |
576 } | |
577 | |
578 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
|
579 RETURN_UNGCPRO (store_in_keymap (keymap, c, def)); |
250 | 580 |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
581 cmd = get_keyelt (access_keymap (keymap, c, 0, 1)); |
250 | 582 |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
583 /* If this key is undefined, make it a prefix. */ |
485 | 584 if (NILP (cmd)) |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
585 cmd = define_as_prefix (keymap, c); |
250 | 586 |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
587 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
|
588 if (NILP (keymap)) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
589 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
590 /* We must use Fkey_description rather than just passing key to |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
591 error; key might be a vector, not a string. */ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
592 Lisp_Object description = Fkey_description (key); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
593 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
594 error ("Key sequence %s uses invalid prefix characters", |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
595 XSTRING (description)->data); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1566
diff
changeset
|
596 } |
250 | 597 } |
598 } | |
599 | |
600 /* Value is number if KEY is too long; NIL if valid but has no definition. */ | |
601 | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
602 DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0, |
250 | 603 "In keymap KEYMAP, look up key sequence KEY. Return the definition.\n\ |
604 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
|
605 \n\ |
250 | 606 A number as value means KEY is \"too long\";\n\ |
607 that is, characters or symbols in it except for the last one\n\ | |
608 fail to be a valid sequence of prefix characters in KEYMAP.\n\ | |
609 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
|
610 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
|
611 \n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
612 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
|
613 bindings, used when nothing else in the keymap applies; this makes it\n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
614 useable as a general function for probing keymaps. However, if the\n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
615 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
|
616 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
|
617 (keymap, key, accept_default) |
250 | 618 register Lisp_Object keymap; |
619 Lisp_Object key; | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
620 Lisp_Object accept_default; |
250 | 621 { |
622 register int idx; | |
623 register Lisp_Object tem; | |
624 register Lisp_Object cmd; | |
625 register Lisp_Object c; | |
626 int metized = 0; | |
627 int length; | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
628 int t_ok = ! NILP (accept_default); |
2059 | 629 int meta_bit; |
250 | 630 |
631 keymap = get_keymap (keymap); | |
632 | |
633 if (XTYPE (key) != Lisp_Vector | |
634 && XTYPE (key) != Lisp_String) | |
635 key = wrong_type_argument (Qarrayp, key); | |
636 | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
637 length = XFASTINT (Flength (key)); |
250 | 638 if (length == 0) |
639 return keymap; | |
640 | |
2059 | 641 if (XTYPE (key) == Lisp_Vector) |
642 meta_bit = meta_modifier; | |
643 else | |
644 meta_bit = 0x80; | |
645 | |
250 | 646 idx = 0; |
647 while (1) | |
648 { | |
649 c = Faref (key, make_number (idx)); | |
650 | |
651 if (XTYPE (c) == Lisp_Int | |
2059 | 652 && (XINT (c) & meta_bit) |
250 | 653 && !metized) |
654 { | |
655 c = meta_prefix_char; | |
656 metized = 1; | |
657 } | |
658 else | |
659 { | |
660 if (XTYPE (c) == Lisp_Int) | |
2059 | 661 XSETINT (c, XINT (c) & ~meta_bit); |
250 | 662 |
663 metized = 0; | |
664 idx++; | |
665 } | |
666 | |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
667 cmd = get_keyelt (access_keymap (keymap, c, t_ok, 0)); |
250 | 668 if (idx == length) |
669 return cmd; | |
670 | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
671 keymap = get_keymap_1 (cmd, 0, 0); |
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
672 if (NILP (keymap)) |
250 | 673 return make_number (idx); |
674 | |
675 QUIT; | |
676 } | |
677 } | |
678 | |
3735
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
679 /* 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
|
680 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
|
681 Return the keymap. */ |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
682 |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
683 static Lisp_Object |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
684 define_as_prefix (keymap, c) |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
685 Lisp_Object keymap, c; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
686 { |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
687 Lisp_Object inherit, cmd; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
688 |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
689 cmd = Fmake_sparse_keymap (Qnil); |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
690 /* 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
|
691 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
|
692 inherit the other prefix definition. */ |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
693 inherit = access_keymap (keymap, c, 0, 0); |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
694 if (NILP (inherit)) |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
695 { |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
696 /* If there's an inherited keymap |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
697 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
|
698 make it define this key. */ |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
699 Lisp_Object tail; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
700 |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
701 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
|
702 if (EQ (XCONS (tail)->car, Qkeymap)) |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
703 break; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
704 |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
705 if (!NILP (tail)) |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
706 inherit = define_as_prefix (tail, c); |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
707 } |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
708 |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
709 cmd = nconc2 (cmd, inherit); |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
710 store_in_keymap (keymap, c, cmd); |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
711 |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
712 return cmd; |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
713 } |
7193a99a87c1
Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents:
3691
diff
changeset
|
714 |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
715 /* 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
|
716 |
250 | 717 Lisp_Object |
718 append_key (key_sequence, key) | |
719 Lisp_Object key_sequence, key; | |
720 { | |
721 Lisp_Object args[2]; | |
722 | |
723 args[0] = key_sequence; | |
724 | |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
725 args[1] = Fcons (key, Qnil); |
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
726 return Fvconcat (2, args); |
250 | 727 } |
728 | |
729 | |
465 | 730 /* Global, local, and minor mode keymap stuff. */ |
731 | |
485 | 732 /* We can't put these variables inside current_minor_maps, since under |
517 | 733 some systems, static gets macro-defined to be the empty string. |
734 Ickypoo. */ | |
485 | 735 static Lisp_Object *cmm_modes, *cmm_maps; |
736 static int cmm_size; | |
737 | |
465 | 738 /* Store a pointer to an array of the keymaps of the currently active |
739 minor modes in *buf, and return the number of maps it contains. | |
740 | |
741 This function always returns a pointer to the same buffer, and may | |
742 free or reallocate it, so if you want to keep it for a long time or | |
743 hand it out to lisp code, copy it. This procedure will be called | |
744 for every key sequence read, so the nice lispy approach (return a | |
745 new assoclist, list, what have you) for each invocation would | |
746 result in a lot of consing over time. | |
747 | |
748 If we used xrealloc/xmalloc and ran out of memory, they would throw | |
749 back to the command loop, which would try to read a key sequence, | |
750 which would call this function again, resulting in an infinite | |
751 loop. Instead, we'll use realloc/malloc and silently truncate the | |
752 list, let the key sequence be read, and hope some other piece of | |
753 code signals the error. */ | |
754 int | |
755 current_minor_maps (modeptr, mapptr) | |
756 Lisp_Object **modeptr, **mapptr; | |
757 { | |
758 int i = 0; | |
517 | 759 Lisp_Object alist, assoc, var, val; |
465 | 760 |
761 for (alist = Vminor_mode_map_alist; | |
762 CONSP (alist); | |
763 alist = XCONS (alist)->cdr) | |
764 if (CONSP (assoc = XCONS (alist)->car) | |
765 && XTYPE (var = XCONS (assoc)->car) == Lisp_Symbol | |
517 | 766 && ! EQ ((val = find_symbol_value (var)), Qunbound) |
767 && ! NILP (val)) | |
465 | 768 { |
485 | 769 if (i >= cmm_size) |
465 | 770 { |
771 Lisp_Object *newmodes, *newmaps; | |
772 | |
485 | 773 if (cmm_maps) |
465 | 774 { |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2358
diff
changeset
|
775 BLOCK_INPUT; |
485 | 776 newmodes = (Lisp_Object *) realloc (cmm_modes, cmm_size *= 2); |
777 newmaps = (Lisp_Object *) realloc (cmm_maps, cmm_size); | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2358
diff
changeset
|
778 UNBLOCK_INPUT; |
465 | 779 } |
780 else | |
781 { | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2358
diff
changeset
|
782 BLOCK_INPUT; |
485 | 783 newmodes = (Lisp_Object *) malloc (cmm_size = 30); |
784 newmaps = (Lisp_Object *) malloc (cmm_size); | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2358
diff
changeset
|
785 UNBLOCK_INPUT; |
465 | 786 } |
787 | |
788 if (newmaps && newmodes) | |
789 { | |
485 | 790 cmm_modes = newmodes; |
791 cmm_maps = newmaps; | |
465 | 792 } |
793 else | |
794 break; | |
795 } | |
485 | 796 cmm_modes[i] = var; |
2755
ed10207955a4
(current_minor_maps): Call Findirect_function, so symbols
Richard M. Stallman <rms@gnu.org>
parents:
2752
diff
changeset
|
797 cmm_maps [i] = Findirect_function (XCONS (assoc)->cdr); |
465 | 798 i++; |
799 } | |
800 | |
485 | 801 if (modeptr) *modeptr = cmm_modes; |
802 if (mapptr) *mapptr = cmm_maps; | |
465 | 803 return i; |
804 } | |
805 | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
806 DEFUN ("key-binding", Fkey_binding, Skey_binding, 1, 2, 0, |
250 | 807 "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
|
808 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
|
809 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
|
810 \n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
811 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
|
812 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
|
813 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
|
814 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
|
815 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
|
816 (key, accept_default) |
250 | 817 Lisp_Object key; |
818 { | |
465 | 819 Lisp_Object *maps, value; |
820 int nmaps, i; | |
821 | |
822 nmaps = current_minor_maps (0, &maps); | |
823 for (i = 0; i < nmaps; i++) | |
485 | 824 if (! NILP (maps[i])) |
465 | 825 { |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
826 value = Flookup_key (maps[i], key, accept_default); |
485 | 827 if (! NILP (value) && XTYPE (value) != Lisp_Int) |
465 | 828 return value; |
829 } | |
830 | |
485 | 831 if (! NILP (current_buffer->keymap)) |
250 | 832 { |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
833 value = Flookup_key (current_buffer->keymap, key, accept_default); |
485 | 834 if (! NILP (value) && XTYPE (value) != Lisp_Int) |
250 | 835 return value; |
836 } | |
465 | 837 |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
838 value = Flookup_key (current_global_map, key, accept_default); |
485 | 839 if (! NILP (value) && XTYPE (value) != Lisp_Int) |
465 | 840 return value; |
841 | |
842 return Qnil; | |
250 | 843 } |
844 | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
845 DEFUN ("local-key-binding", Flocal_key_binding, Slocal_key_binding, 1, 2, 0, |
250 | 846 "Return the binding for command KEYS in current local keymap only.\n\ |
847 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
|
848 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
|
849 \n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
850 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
|
851 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
|
852 (keys, accept_default) |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
853 Lisp_Object keys, accept_default; |
250 | 854 { |
855 register Lisp_Object map; | |
856 map = current_buffer->keymap; | |
485 | 857 if (NILP (map)) |
250 | 858 return Qnil; |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
859 return Flookup_key (map, keys, accept_default); |
250 | 860 } |
861 | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
862 DEFUN ("global-key-binding", Fglobal_key_binding, Sglobal_key_binding, 1, 2, 0, |
250 | 863 "Return the binding for command KEYS in current global keymap only.\n\ |
864 KEYS is a string, a sequence of keystrokes.\n\ | |
517 | 865 The binding is probably a symbol with a function definition.\n\ |
866 This function's return values are the same as those of lookup-key\n\ | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
867 (which see).\n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
868 \n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
869 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
|
870 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
|
871 (keys, accept_default) |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
872 Lisp_Object keys, accept_default; |
250 | 873 { |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
874 return Flookup_key (current_global_map, keys, accept_default); |
250 | 875 } |
876 | |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
877 DEFUN ("minor-mode-key-binding", Fminor_mode_key_binding, Sminor_mode_key_binding, 1, 2, 0, |
465 | 878 "Find the visible minor mode bindings of KEY.\n\ |
879 Return an alist of pairs (MODENAME . BINDING), where MODENAME is the\n\ | |
880 the symbol which names the minor mode binding KEY, and BINDING is\n\ | |
881 KEY's definition in that mode. In particular, if KEY has no\n\ | |
882 minor-mode bindings, return nil. If the first binding is a\n\ | |
883 non-prefix, all subsequent bindings will be omitted, since they would\n\ | |
884 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
|
885 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
|
886 \n\ |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
887 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
|
888 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
|
889 (key, accept_default) |
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
890 Lisp_Object key, accept_default; |
465 | 891 { |
892 Lisp_Object *modes, *maps; | |
893 int nmaps; | |
894 Lisp_Object binding; | |
895 int i, j; | |
896 | |
897 nmaps = current_minor_maps (&modes, &maps); | |
898 | |
899 for (i = j = 0; i < nmaps; i++) | |
485 | 900 if (! NILP (maps[i]) |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
901 && ! NILP (binding = Flookup_key (maps[i], key, accept_default)) |
465 | 902 && XTYPE (binding) != Lisp_Int) |
903 { | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
904 if (! NILP (get_keymap (binding))) |
465 | 905 maps[j++] = Fcons (modes[i], binding); |
906 else if (j == 0) | |
907 return Fcons (Fcons (modes[i], binding), Qnil); | |
908 } | |
909 | |
910 return Flist (j, maps); | |
911 } | |
912 | |
250 | 913 DEFUN ("global-set-key", Fglobal_set_key, Sglobal_set_key, 2, 2, |
914 "kSet key globally: \nCSet key %s to command: ", | |
915 "Give KEY a global binding as COMMAND.\n\ | |
916 COMMAND is a symbol naming an interactively-callable function.\n\ | |
3542 | 917 KEY is a key sequence (a string or vector of characters or event types).\n\ |
5100 | 918 Non-ASCII characters with codes above 127 (such as ISO Latin-1)\n\ |
919 can be included if you use a vector.\n\ | |
250 | 920 Note that if KEY has a local binding in the current buffer\n\ |
921 that local binding will continue to shadow any global binding.") | |
922 (keys, function) | |
923 Lisp_Object keys, function; | |
924 { | |
925 if (XTYPE (keys) != Lisp_Vector | |
926 && XTYPE (keys) != Lisp_String) | |
927 keys = wrong_type_argument (Qarrayp, keys); | |
928 | |
929 Fdefine_key (current_global_map, keys, function); | |
930 return Qnil; | |
931 } | |
932 | |
933 DEFUN ("local-set-key", Flocal_set_key, Slocal_set_key, 2, 2, | |
934 "kSet key locally: \nCSet key %s locally to command: ", | |
935 "Give KEY a local binding as COMMAND.\n\ | |
936 COMMAND is a symbol naming an interactively-callable function.\n\ | |
3542 | 937 KEY is a key sequence (a string or vector of characters or event types).\n\ |
5100 | 938 Non-ASCII characters with codes above 127 (such as ISO Latin-1)\n\ |
939 can be included if you use a vector.\n\ | |
250 | 940 The binding goes in the current buffer's local map,\n\ |
941 which is shared with other buffers in the same major mode.") | |
942 (keys, function) | |
943 Lisp_Object keys, function; | |
944 { | |
945 register Lisp_Object map; | |
946 map = current_buffer->keymap; | |
485 | 947 if (NILP (map)) |
250 | 948 { |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
949 map = Fmake_sparse_keymap (Qnil); |
250 | 950 current_buffer->keymap = map; |
951 } | |
952 | |
953 if (XTYPE (keys) != Lisp_Vector | |
954 && XTYPE (keys) != Lisp_String) | |
955 keys = wrong_type_argument (Qarrayp, keys); | |
956 | |
957 Fdefine_key (map, keys, function); | |
958 return Qnil; | |
959 } | |
960 | |
961 DEFUN ("global-unset-key", Fglobal_unset_key, Sglobal_unset_key, | |
962 1, 1, "kUnset key globally: ", | |
963 "Remove global binding of KEY.\n\ | |
964 KEY is a string representing a sequence of keystrokes.") | |
965 (keys) | |
966 Lisp_Object keys; | |
967 { | |
968 return Fglobal_set_key (keys, Qnil); | |
969 } | |
970 | |
971 DEFUN ("local-unset-key", Flocal_unset_key, Slocal_unset_key, 1, 1, | |
972 "kUnset key locally: ", | |
973 "Remove local binding of KEY.\n\ | |
974 KEY is a string representing a sequence of keystrokes.") | |
975 (keys) | |
976 Lisp_Object keys; | |
977 { | |
485 | 978 if (!NILP (current_buffer->keymap)) |
250 | 979 Flocal_set_key (keys, Qnil); |
980 return Qnil; | |
981 } | |
982 | |
983 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
|
984 "Define COMMAND as a prefix command. COMMAND should be a symbol.\n\ |
250 | 985 A new sparse keymap is stored as COMMAND's function definition and its value.\n\ |
362 | 986 If a second optional argument MAPVAR is given, the map is stored as\n\ |
987 its value instead of as COMMAND's value; but COMMAND is still defined\n\ | |
988 as a function.") | |
250 | 989 (name, mapvar) |
990 Lisp_Object name, mapvar; | |
991 { | |
992 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
|
993 map = Fmake_sparse_keymap (Qnil); |
250 | 994 Ffset (name, map); |
485 | 995 if (!NILP (mapvar)) |
250 | 996 Fset (mapvar, map); |
997 else | |
998 Fset (name, map); | |
999 return name; | |
1000 } | |
1001 | |
1002 DEFUN ("use-global-map", Fuse_global_map, Suse_global_map, 1, 1, 0, | |
1003 "Select KEYMAP as the global keymap.") | |
1004 (keymap) | |
1005 Lisp_Object keymap; | |
1006 { | |
1007 keymap = get_keymap (keymap); | |
1008 current_global_map = keymap; | |
1009 return Qnil; | |
1010 } | |
1011 | |
1012 DEFUN ("use-local-map", Fuse_local_map, Suse_local_map, 1, 1, 0, | |
1013 "Select KEYMAP as the local keymap.\n\ | |
1014 If KEYMAP is nil, that means no local keymap.") | |
1015 (keymap) | |
1016 Lisp_Object keymap; | |
1017 { | |
485 | 1018 if (!NILP (keymap)) |
250 | 1019 keymap = get_keymap (keymap); |
1020 | |
1021 current_buffer->keymap = keymap; | |
1022 | |
1023 return Qnil; | |
1024 } | |
1025 | |
1026 DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_map, 0, 0, 0, | |
1027 "Return current buffer's local keymap, or nil if it has none.") | |
1028 () | |
1029 { | |
1030 return current_buffer->keymap; | |
1031 } | |
1032 | |
1033 DEFUN ("current-global-map", Fcurrent_global_map, Scurrent_global_map, 0, 0, 0, | |
1034 "Return the current global keymap.") | |
1035 () | |
1036 { | |
1037 return current_global_map; | |
1038 } | |
465 | 1039 |
1040 DEFUN ("current-minor-mode-maps", Fcurrent_minor_mode_maps, Scurrent_minor_mode_maps, 0, 0, 0, | |
1041 "Return a list of keymaps for the minor modes of the current buffer.") | |
1042 () | |
1043 { | |
1044 Lisp_Object *maps; | |
1045 int nmaps = current_minor_maps (0, &maps); | |
1046 | |
1047 return Flist (nmaps, maps); | |
1048 } | |
250 | 1049 |
465 | 1050 /* Help functions for describing and documenting keymaps. */ |
1051 | |
250 | 1052 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
|
1053 1, 2, 0, |
250 | 1054 "Find all keymaps accessible via prefix characters from KEYMAP.\n\ |
1055 Returns a list of elements of the form (KEYS . MAP), where the sequence\n\ | |
1056 KEYS starting from KEYMAP gets you to MAP. These elements are ordered\n\ | |
3962
38041a5069a8
(Faccessible_keymaps): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
3952
diff
changeset
|
1057 so that the KEYS increase in length. The first element is (\"\" . KEYMAP).\n\ |
38041a5069a8
(Faccessible_keymaps): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
3952
diff
changeset
|
1058 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
|
1059 then the value includes only maps for prefixes that start with PREFIX.") |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1060 (startmap, prefix) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1061 Lisp_Object startmap, prefix; |
250 | 1062 { |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1063 Lisp_Object maps, good_maps, tail; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1064 int prefixlen = 0; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1065 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1066 if (!NILP (prefix)) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1067 prefixlen = XINT (Flength (prefix)); |
250 | 1068 |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1069 maps = Fcons (Fcons (Fmake_vector (make_number (0), Qnil), |
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1070 get_keymap (startmap)), |
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1071 Qnil); |
250 | 1072 |
1073 /* For each map in the list maps, | |
1074 look at any other maps it points to, | |
1075 and stick them at the end if they are not already in the list. | |
1076 | |
1077 This is a breadth-first traversal, where tail is the queue of | |
1078 nodes, and maps accumulates a list of all nodes visited. */ | |
1079 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1080 for (tail = maps; CONSP (tail); tail = XCONS (tail)->cdr) |
250 | 1081 { |
1082 register Lisp_Object thisseq = Fcar (Fcar (tail)); | |
1083 register Lisp_Object thismap = Fcdr (Fcar (tail)); | |
1084 Lisp_Object last = make_number (XINT (Flength (thisseq)) - 1); | |
1085 | |
1086 /* Does the current sequence end in the meta-prefix-char? */ | |
1087 int is_metized = (XINT (last) >= 0 | |
1088 && EQ (Faref (thisseq, last), meta_prefix_char)); | |
1089 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1090 for (; CONSP (thismap); thismap = XCONS (thismap)->cdr) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1091 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1092 Lisp_Object elt = XCONS (thismap)->car; |
250 | 1093 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1094 QUIT; |
250 | 1095 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1096 if (XTYPE (elt) == Lisp_Vector) |
250 | 1097 { |
1098 register int i; | |
1099 | |
1100 /* 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
|
1101 for (i = 0; i < XVECTOR (elt)->size; i++) |
250 | 1102 { |
1103 register Lisp_Object tem; | |
1104 register Lisp_Object cmd; | |
1105 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1106 cmd = get_keyelt (XVECTOR (elt)->contents[i]); |
485 | 1107 if (NILP (cmd)) continue; |
250 | 1108 tem = Fkeymapp (cmd); |
485 | 1109 if (!NILP (tem)) |
250 | 1110 { |
1111 cmd = get_keymap (cmd); | |
1112 /* Ignore keymaps that are already added to maps. */ | |
1113 tem = Frassq (cmd, maps); | |
485 | 1114 if (NILP (tem)) |
250 | 1115 { |
1116 /* If the last key in thisseq is meta-prefix-char, | |
1117 turn it into a meta-ized keystroke. We know | |
1118 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
|
1119 ascii keystroke since we're processing a |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1120 keymap table. */ |
250 | 1121 if (is_metized) |
1122 { | |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1123 int meta_bit = meta_modifier; |
250 | 1124 tem = Fcopy_sequence (thisseq); |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1125 |
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1126 Faset (tem, last, make_number (i | meta_bit)); |
250 | 1127 |
1128 /* This new sequence is the same length as | |
1129 thisseq, so stick it in the list right | |
1130 after this one. */ | |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1131 XCONS (tail)->cdr |
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1132 = Fcons (Fcons (tem, cmd), XCONS (tail)->cdr); |
250 | 1133 } |
1134 else | |
1135 { | |
1136 tem = append_key (thisseq, make_number (i)); | |
1137 nconc2 (tail, Fcons (Fcons (tem, cmd), Qnil)); | |
1138 } | |
1139 } | |
1140 } | |
1141 } | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1142 } |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1143 else if (CONSP (elt)) |
250 | 1144 { |
1145 register Lisp_Object cmd = get_keyelt (XCONS (elt)->cdr); | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1146 register Lisp_Object tem, filter; |
250 | 1147 |
1148 /* Ignore definitions that aren't keymaps themselves. */ | |
1149 tem = Fkeymapp (cmd); | |
485 | 1150 if (!NILP (tem)) |
250 | 1151 { |
1152 /* Ignore keymaps that have been seen already. */ | |
1153 cmd = get_keymap (cmd); | |
1154 tem = Frassq (cmd, maps); | |
485 | 1155 if (NILP (tem)) |
250 | 1156 { |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1157 /* Let elt be the event defined by this map entry. */ |
250 | 1158 elt = XCONS (elt)->car; |
1159 | |
1160 /* If the last key in thisseq is meta-prefix-char, and | |
1161 this entry is a binding for an ascii keystroke, | |
1162 turn it into a meta-ized keystroke. */ | |
1163 if (is_metized && XTYPE (elt) == Lisp_Int) | |
1164 { | |
1165 tem = Fcopy_sequence (thisseq); | |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1166 Faset (tem, last, |
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1167 make_number (XINT (elt) | meta_modifier)); |
250 | 1168 |
1169 /* This new sequence is the same length as | |
1170 thisseq, so stick it in the list right | |
1171 after this one. */ | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1172 XCONS (tail)->cdr |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1173 = Fcons (Fcons (tem, cmd), XCONS (tail)->cdr); |
250 | 1174 } |
1175 else | |
1176 nconc2 (tail, | |
1177 Fcons (Fcons (append_key (thisseq, elt), cmd), | |
1178 Qnil)); | |
1179 } | |
1180 } | |
1181 } | |
1182 } | |
1183 } | |
1184 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1185 if (NILP (prefix)) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1186 return maps; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1187 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1188 /* 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
|
1189 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1190 good_maps = Qnil; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1191 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
|
1192 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1193 Lisp_Object elt, thisseq; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1194 elt = XCONS (maps)->car; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1195 thisseq = XCONS (elt)->car; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1196 /* 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
|
1197 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
|
1198 if (XINT (Flength (thisseq)) >= prefixlen) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1199 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1200 int i; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1201 for (i = 0; i < prefixlen; i++) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1202 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1203 Lisp_Object i1; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1204 XFASTINT (i1) = i; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1205 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
|
1206 break; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1207 } |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1208 if (i == prefixlen) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1209 good_maps = Fcons (elt, good_maps); |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1210 } |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1211 } |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1212 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1213 return Fnreverse (good_maps); |
250 | 1214 } |
1215 | |
1216 Lisp_Object Qsingle_key_description, Qkey_description; | |
1217 | |
1218 DEFUN ("key-description", Fkey_description, Skey_description, 1, 1, 0, | |
1219 "Return a pretty description of key-sequence KEYS.\n\ | |
1220 Control characters turn into \"C-foo\" sequences, meta into \"M-foo\"\n\ | |
1221 spaces are put between sequence elements, etc.") | |
1222 (keys) | |
1223 Lisp_Object keys; | |
1224 { | |
2059 | 1225 if (XTYPE (keys) == Lisp_String) |
1226 { | |
1227 Lisp_Object vector; | |
1228 int i; | |
1229 vector = Fmake_vector (Flength (keys), Qnil); | |
1230 for (i = 0; i < XSTRING (keys)->size; i++) | |
1231 { | |
1232 if (XSTRING (keys)->data[i] & 0x80) | |
1233 XFASTINT (XVECTOR (vector)->contents[i]) | |
1234 = meta_modifier | (XSTRING (keys)->data[i] & ~0x80); | |
1235 else | |
1236 XFASTINT (XVECTOR (vector)->contents[i]) | |
1237 = XSTRING (keys)->data[i]; | |
1238 } | |
1239 keys = vector; | |
1240 } | |
250 | 1241 return Fmapconcat (Qsingle_key_description, keys, build_string (" ")); |
1242 } | |
1243 | |
1244 char * | |
1245 push_key_description (c, p) | |
1246 register unsigned int c; | |
1247 register char *p; | |
1248 { | |
2343
ddb30eaf2f56
(push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents:
2093
diff
changeset
|
1249 /* 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
|
1250 c &= meta_modifier | ~ - meta_modifier; |
ddb30eaf2f56
(push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents:
2093
diff
changeset
|
1251 |
2059 | 1252 if (c & alt_modifier) |
1253 { | |
1254 *p++ = 'A'; | |
1255 *p++ = '-'; | |
1256 c -= alt_modifier; | |
1257 } | |
1258 if (c & ctrl_modifier) | |
1259 { | |
1260 *p++ = 'C'; | |
1261 *p++ = '-'; | |
1262 c -= ctrl_modifier; | |
1263 } | |
1264 if (c & hyper_modifier) | |
1265 { | |
1266 *p++ = 'H'; | |
1267 *p++ = '-'; | |
1268 c -= hyper_modifier; | |
1269 } | |
1270 if (c & meta_modifier) | |
250 | 1271 { |
1272 *p++ = 'M'; | |
1273 *p++ = '-'; | |
2059 | 1274 c -= meta_modifier; |
1275 } | |
1276 if (c & shift_modifier) | |
1277 { | |
1278 *p++ = 'S'; | |
1279 *p++ = '-'; | |
1280 c -= shift_modifier; | |
1281 } | |
1282 if (c & super_modifier) | |
1283 { | |
1284 *p++ = 's'; | |
1285 *p++ = '-'; | |
1286 c -= super_modifier; | |
250 | 1287 } |
1288 if (c < 040) | |
1289 { | |
1290 if (c == 033) | |
1291 { | |
1292 *p++ = 'E'; | |
1293 *p++ = 'S'; | |
1294 *p++ = 'C'; | |
1295 } | |
2059 | 1296 else if (c == '\t') |
250 | 1297 { |
1298 *p++ = 'T'; | |
1299 *p++ = 'A'; | |
1300 *p++ = 'B'; | |
1301 } | |
1302 else if (c == Ctl('J')) | |
1303 { | |
1304 *p++ = 'L'; | |
1305 *p++ = 'F'; | |
1306 *p++ = 'D'; | |
1307 } | |
1308 else if (c == Ctl('M')) | |
1309 { | |
1310 *p++ = 'R'; | |
1311 *p++ = 'E'; | |
1312 *p++ = 'T'; | |
1313 } | |
1314 else | |
1315 { | |
1316 *p++ = 'C'; | |
1317 *p++ = '-'; | |
1318 if (c > 0 && c <= Ctl ('Z')) | |
1319 *p++ = c + 0140; | |
1320 else | |
1321 *p++ = c + 0100; | |
1322 } | |
1323 } | |
1324 else if (c == 0177) | |
1325 { | |
1326 *p++ = 'D'; | |
1327 *p++ = 'E'; | |
1328 *p++ = 'L'; | |
1329 } | |
1330 else if (c == ' ') | |
1331 { | |
1332 *p++ = 'S'; | |
1333 *p++ = 'P'; | |
1334 *p++ = 'C'; | |
1335 } | |
2059 | 1336 else if (c < 256) |
1337 *p++ = c; | |
250 | 1338 else |
2059 | 1339 { |
1340 *p++ = '\\'; | |
1341 *p++ = (7 & (c >> 15)) + '0'; | |
1342 *p++ = (7 & (c >> 12)) + '0'; | |
1343 *p++ = (7 & (c >> 9)) + '0'; | |
1344 *p++ = (7 & (c >> 6)) + '0'; | |
1345 *p++ = (7 & (c >> 3)) + '0'; | |
1346 *p++ = (7 & (c >> 0)) + '0'; | |
1347 } | |
250 | 1348 |
1349 return p; | |
1350 } | |
1351 | |
1352 DEFUN ("single-key-description", Fsingle_key_description, Ssingle_key_description, 1, 1, 0, | |
1353 "Return a pretty description of command character KEY.\n\ | |
1354 Control characters turn into C-whatever, etc.") | |
1355 (key) | |
1356 Lisp_Object key; | |
1357 { | |
2059 | 1358 char tem[20]; |
250 | 1359 |
1315
884c3d7e7172
* keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents:
1264
diff
changeset
|
1360 key = EVENT_HEAD (key); |
517 | 1361 |
250 | 1362 switch (XTYPE (key)) |
1363 { | |
1364 case Lisp_Int: /* Normal character */ | |
2059 | 1365 *push_key_description (XUINT (key), tem) = 0; |
250 | 1366 return build_string (tem); |
1367 | |
1368 case Lisp_Symbol: /* Function key or event-symbol */ | |
1369 return Fsymbol_name (key); | |
1370 | |
1371 default: | |
1372 error ("KEY must be an integer, cons, or symbol."); | |
1373 } | |
1374 } | |
1375 | |
1376 char * | |
1377 push_text_char_description (c, p) | |
1378 register unsigned int c; | |
1379 register char *p; | |
1380 { | |
1381 if (c >= 0200) | |
1382 { | |
1383 *p++ = 'M'; | |
1384 *p++ = '-'; | |
1385 c -= 0200; | |
1386 } | |
1387 if (c < 040) | |
1388 { | |
1389 *p++ = '^'; | |
1390 *p++ = c + 64; /* 'A' - 1 */ | |
1391 } | |
1392 else if (c == 0177) | |
1393 { | |
1394 *p++ = '^'; | |
1395 *p++ = '?'; | |
1396 } | |
1397 else | |
1398 *p++ = c; | |
1399 return p; | |
1400 } | |
1401 | |
1402 DEFUN ("text-char-description", Ftext_char_description, Stext_char_description, 1, 1, 0, | |
1403 "Return a pretty description of file-character CHAR.\n\ | |
1404 Control characters turn into \"^char\", etc.") | |
1405 (chr) | |
1406 Lisp_Object chr; | |
1407 { | |
1408 char tem[6]; | |
1409 | |
1410 CHECK_NUMBER (chr, 0); | |
1411 | |
1412 *push_text_char_description (XINT (chr) & 0377, tem) = 0; | |
1413 | |
1414 return build_string (tem); | |
1415 } | |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1416 |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1417 /* 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
|
1418 a meta bit. */ |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1419 static int |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1420 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
|
1421 Lisp_Object seq; |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1422 { |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1423 Lisp_Object i; |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1424 int len = XINT (Flength (seq)); |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1425 |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1426 for (XFASTINT (i) = 0; XFASTINT (i) < len; XFASTINT (i)++) |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1427 { |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1428 Lisp_Object elt = Faref (seq, i); |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1429 |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1430 if (XTYPE (elt) != Lisp_Int |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1431 || (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
|
1432 return 0; |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1433 } |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1434 |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1435 return 1; |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1436 } |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1437 |
250 | 1438 |
465 | 1439 /* where-is - finding a command in a set of keymaps. */ |
1440 | |
250 | 1441 DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 5, 0, |
1442 "Return list of keys that invoke DEFINITION in KEYMAP or KEYMAP1.\n\ | |
1443 If KEYMAP is nil, search only KEYMAP1.\n\ | |
1444 If KEYMAP1 is nil, use the current global map.\n\ | |
1445 \n\ | |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1446 If optional 4th arg FIRSTONLY is non-nil, return a string representing\n\ |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1447 the first key sequence found, rather than a list of all possible key\n\ |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1448 sequences. If FIRSTONLY is t, avoid key sequences which use non-ASCII\n\ |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1449 keys and therefore may not be usable on ASCII terminals. If FIRSTONLY\n\ |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1450 is the symbol `non-ascii', return the first binding found, no matter\n\ |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1451 what its components.\n\ |
250 | 1452 \n\ |
1453 If optional 5th arg NOINDIRECT is non-nil, don't follow indirections\n\ | |
1454 to other keymaps or slots. This makes it possible to search for an\n\ | |
1455 indirect definition itself.") | |
1456 (definition, local_keymap, global_keymap, firstonly, noindirect) | |
1457 Lisp_Object definition, local_keymap, global_keymap; | |
1458 Lisp_Object firstonly, noindirect; | |
1459 { | |
1460 register Lisp_Object maps; | |
1461 Lisp_Object found; | |
1462 | |
485 | 1463 if (NILP (global_keymap)) |
250 | 1464 global_keymap = current_global_map; |
1465 | |
485 | 1466 if (!NILP (local_keymap)) |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1467 maps = nconc2 (Faccessible_keymaps (get_keymap (local_keymap), Qnil), |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1468 Faccessible_keymaps (get_keymap (global_keymap), Qnil)); |
250 | 1469 else |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1470 maps = Faccessible_keymaps (get_keymap (global_keymap), Qnil); |
250 | 1471 |
1472 found = Qnil; | |
1473 | |
485 | 1474 for (; !NILP (maps); maps = Fcdr (maps)) |
250 | 1475 { |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1476 /* Key sequence to reach map */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1477 register Lisp_Object this = Fcar (Fcar (maps)); |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1478 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1479 /* The map that it reaches */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1480 register Lisp_Object map = Fcdr (Fcar (maps)); |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1481 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1482 /* If Fcar (map) is a VECTOR, the current element within that vector. */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1483 int i = 0; |
250 | 1484 |
1485 /* In order to fold [META-PREFIX-CHAR CHAR] sequences into | |
1486 [M-CHAR] sequences, check if last character of the sequence | |
1487 is the meta-prefix char. */ | |
1488 Lisp_Object last = make_number (XINT (Flength (this)) - 1); | |
1489 int last_is_meta = (XINT (last) >= 0 | |
1490 && EQ (Faref (this, last), meta_prefix_char)); | |
1491 | |
1236
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1492 QUIT; |
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1493 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1494 while (CONSP (map)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1495 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1496 /* 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
|
1497 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
|
1498 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
|
1499 loop body over both keymap and vector bindings. |
250 | 1500 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1501 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
|
1502 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
|
1503 have finished off the vector. */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1504 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1505 Lisp_Object elt = XCONS (map)->car; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1506 Lisp_Object key, binding, sequence; |
250 | 1507 |
1236
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1508 QUIT; |
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1509 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1510 /* 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
|
1511 advance map and i to the next binding. */ |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1512 if (XTYPE (elt) == Lisp_Vector) |
250 | 1513 { |
1514 /* In a vector, look at each element. */ | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1515 binding = XVECTOR (elt)->contents[i]; |
250 | 1516 XFASTINT (key) = i; |
1517 i++; | |
1518 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1519 /* If we've just finished scanning a vector, advance map |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1520 to the next element, and reset i in anticipation of the |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1521 next vector we may find. */ |
2752
93eda5bbc4df
(Faccessible_keymaps): Use whatever size the vector has.
Richard M. Stallman <rms@gnu.org>
parents:
2727
diff
changeset
|
1522 if (i >= XVECTOR (elt)->size) |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1523 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1524 map = XCONS (map)->cdr; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1525 i = 0; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1526 } |
250 | 1527 } |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1528 else if (CONSP (elt)) |
250 | 1529 { |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1530 key = Fcar (Fcar (map)); |
250 | 1531 binding = Fcdr (Fcar (map)); |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1532 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1533 map = XCONS (map)->cdr; |
250 | 1534 } |
1535 else | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1536 /* We want to ignore keymap elements that are neither |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1537 vectors nor conses. */ |
1236
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1538 { |
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1539 map = XCONS (map)->cdr; |
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1540 continue; |
5e8c234e5f03
* keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents:
1209
diff
changeset
|
1541 } |
250 | 1542 |
1543 /* Search through indirections unless that's not wanted. */ | |
485 | 1544 if (NILP (noindirect)) |
250 | 1545 binding = get_keyelt (binding); |
1546 | |
1547 /* End this iteration if this element does not match | |
1548 the target. */ | |
1549 | |
1550 if (XTYPE (definition) == Lisp_Cons) | |
1551 { | |
1552 Lisp_Object tem; | |
1553 tem = Fequal (binding, definition); | |
485 | 1554 if (NILP (tem)) |
250 | 1555 continue; |
1556 } | |
1557 else | |
1558 if (!EQ (binding, definition)) | |
1559 continue; | |
1560 | |
1561 /* We have found a match. | |
1562 Construct the key sequence where we found it. */ | |
1563 if (XTYPE (key) == Lisp_Int && last_is_meta) | |
1564 { | |
1565 sequence = Fcopy_sequence (this); | |
2093
ce8bad247b1a
(Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents:
2059
diff
changeset
|
1566 Faset (sequence, last, make_number (XINT (key) | meta_modifier)); |
250 | 1567 } |
1568 else | |
1569 sequence = append_key (this, key); | |
1570 | |
1571 /* Verify that this key binding is not shadowed by another | |
1572 binding for the same key, before we say it exists. | |
1573 | |
1574 Mechanism: look for local definition of this key and if | |
1575 it is defined and does not match what we found then | |
1576 ignore this key. | |
1577 | |
1578 Either nil or number as value from Flookup_key | |
1579 means undefined. */ | |
485 | 1580 if (!NILP (local_keymap)) |
250 | 1581 { |
1871
00bee181f7ed
* keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
1582 binding = Flookup_key (local_keymap, sequence, Qnil); |
485 | 1583 if (!NILP (binding) && XTYPE (binding) != Lisp_Int) |
250 | 1584 { |
1585 if (XTYPE (definition) == Lisp_Cons) | |
1586 { | |
1587 Lisp_Object tem; | |
1588 tem = Fequal (binding, definition); | |
485 | 1589 if (NILP (tem)) |
250 | 1590 continue; |
1591 } | |
1592 else | |
1593 if (!EQ (binding, definition)) | |
1594 continue; | |
1595 } | |
1596 } | |
1597 | |
1598 /* It is a true unshadowed match. Record it. */ | |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1599 found = Fcons (sequence, found); |
250 | 1600 |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1601 /* If firstonly is Qnon_ascii, then we can return the first |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1602 binding we find. If firstonly is not Qnon_ascii but not |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1603 nil, then we should return the first ascii-only binding |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1604 we find. */ |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1605 if (EQ (firstonly, Qnon_ascii)) |
250 | 1606 return sequence; |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1607 else if (! NILP (firstonly) && ascii_sequence_p (sequence)) |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1608 return sequence; |
250 | 1609 } |
1610 } | |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1611 |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1612 found = Fnreverse (found); |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1613 |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1614 /* 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
|
1615 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
|
1616 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
|
1617 if (! NILP (firstonly)) |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1618 return Fcar (found); |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1619 |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
1620 return found; |
250 | 1621 } |
1622 | |
1623 /* Return a string listing the keys and buttons that run DEFINITION. */ | |
1624 | |
1625 static Lisp_Object | |
1626 where_is_string (definition) | |
1627 Lisp_Object definition; | |
1628 { | |
1629 register Lisp_Object keys, keys1; | |
1630 | |
1631 keys = Fwhere_is_internal (definition, | |
1632 current_buffer->keymap, Qnil, Qnil, Qnil); | |
1633 keys1 = Fmapconcat (Qkey_description, keys, build_string (", ")); | |
1634 | |
1635 return keys1; | |
1636 } | |
1637 | |
1638 DEFUN ("where-is", Fwhere_is, Swhere_is, 1, 1, "CWhere is command: ", | |
1639 "Print message listing key sequences that invoke specified command.\n\ | |
1640 Argument is a command definition, usually a symbol with a function definition.") | |
1641 (definition) | |
1642 Lisp_Object definition; | |
1643 { | |
1644 register Lisp_Object string; | |
1645 | |
1646 CHECK_SYMBOL (definition, 0); | |
1647 string = where_is_string (definition); | |
1648 | |
1649 if (XSTRING (string)->size) | |
1650 message ("%s is on %s", XSYMBOL (definition)->name->data, | |
1651 XSTRING (string)->data); | |
1652 else | |
1653 message ("%s is not on any key", XSYMBOL (definition)->name->data); | |
1654 return Qnil; | |
1655 } | |
1656 | |
465 | 1657 /* describe-bindings - summarizing all the bindings in a set of keymaps. */ |
1658 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1659 DEFUN ("describe-bindings", Fdescribe_bindings, Sdescribe_bindings, 0, 1, "", |
250 | 1660 "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
|
1661 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
|
1662 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
|
1663 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
|
1664 (prefix) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1665 Lisp_Object prefix; |
250 | 1666 { |
1667 register Lisp_Object thisbuf; | |
1668 XSET (thisbuf, Lisp_Buffer, current_buffer); | |
1669 internal_with_output_to_temp_buffer ("*Help*", | |
1670 describe_buffer_bindings, | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1671 Fcons (thisbuf, prefix)); |
250 | 1672 return Qnil; |
1673 } | |
1674 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1675 /* ARG is (BUFFER . PREFIX). */ |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1676 |
250 | 1677 static Lisp_Object |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1678 describe_buffer_bindings (arg) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1679 Lisp_Object arg; |
250 | 1680 { |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1681 Lisp_Object descbuf, prefix, shadow; |
250 | 1682 register Lisp_Object start1, start2; |
1683 | |
1120
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1684 char *alternate_heading |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1685 = "\ |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1686 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
|
1687 nominal alternate\n\ |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1688 ------- ---------\n"; |
250 | 1689 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1690 descbuf = XCONS (arg)->car; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1691 prefix = XCONS (arg)->cdr; |
4575
bf0f07186369
(describe_buffer_bindings): Declare shadow just once.
Richard M. Stallman <rms@gnu.org>
parents:
4138
diff
changeset
|
1692 shadow = Qnil; |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1693 |
250 | 1694 Fset_buffer (Vstandard_output); |
1695 | |
1120
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1696 /* Report on alternates for keys. */ |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1697 if (XTYPE (Vkeyboard_translate_table) == Lisp_String) |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1698 { |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1699 int c; |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1700 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
|
1701 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
|
1702 |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1703 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
|
1704 if (translate[c] != c) |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1705 { |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1706 char buf[20]; |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1707 char *bufend; |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1708 |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1709 if (alternate_heading) |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1710 { |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1711 insert_string (alternate_heading); |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1712 alternate_heading = 0; |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1713 } |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1714 |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1715 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
|
1716 insert (buf, bufend - buf); |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1717 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
|
1718 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
|
1719 insert (buf, bufend - buf); |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1720 |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1721 insert ("\n", 1); |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1722 } |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1723 |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1724 insert ("\n", 1); |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1725 } |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1726 |
465 | 1727 { |
1728 int i, nmaps; | |
1729 Lisp_Object *modes, *maps; | |
1730 | |
1120
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1731 /* 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
|
1732 minor modes correctly. */ |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1733 Fset_buffer (descbuf); |
465 | 1734 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
|
1735 Fset_buffer (Vstandard_output); |
0a486e1a45bc
* keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents:
1095
diff
changeset
|
1736 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1737 /* Print the minor mode maps. */ |
465 | 1738 for (i = 0; i < nmaps; i++) |
1739 { | |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1740 /* Tht title for a minor mode keymap |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1741 is constructed at run time. |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1742 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
|
1743 because it takes care of other features when doing so. */ |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1744 char *title = (char *) alloca (40 + XSYMBOL (modes[i])->name->size); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1745 char *p = title; |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1746 |
465 | 1747 if (XTYPE (modes[i]) == Lisp_Symbol) |
1748 { | |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1749 *p++ = '`'; |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1750 bcopy (XSYMBOL (modes[i])->name->data, p, |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1751 XSYMBOL (modes[i])->name->size); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1752 p += XSYMBOL (modes[i])->name->size; |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1753 *p++ = '\''; |
465 | 1754 } |
1755 else | |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1756 { |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1757 bcopy ("Strangely Named", p, sizeof ("Strangely Named")); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1758 p += sizeof ("Strangely Named"); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1759 } |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1760 bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings")); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1761 p += sizeof (" Minor Mode Bindings"); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1762 *p = 0; |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1763 |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1764 describe_map_tree (maps[i], 0, shadow, prefix, title); |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1765 shadow = Fcons (maps[i], shadow); |
465 | 1766 } |
1767 } | |
1768 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1769 /* Print the (major mode) local map. */ |
250 | 1770 start1 = XBUFFER (descbuf)->keymap; |
485 | 1771 if (!NILP (start1)) |
250 | 1772 { |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1773 describe_map_tree (start1, 0, shadow, prefix, |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1774 "Major Mode Bindings"); |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1775 shadow = Fcons (start1, shadow); |
250 | 1776 } |
1777 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1778 describe_map_tree (current_global_map, 0, shadow, prefix, |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1779 "Global Bindings"); |
250 | 1780 |
1781 Fset_buffer (descbuf); | |
1782 return Qnil; | |
1783 } | |
1784 | |
1785 /* Insert a desription of the key bindings in STARTMAP, | |
1786 followed by those of all maps reachable through STARTMAP. | |
1787 If PARTIAL is nonzero, omit certain "uninteresting" commands | |
1788 (such as `undefined'). | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1789 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
|
1790 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
|
1791 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
|
1792 TITLE, if not 0, is a string to insert at the beginning. |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1793 TITLE should not end with a colon or a newline; we supply that. */ |
250 | 1794 |
1795 void | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1796 describe_map_tree (startmap, partial, shadow, prefix, title) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1797 Lisp_Object startmap, shadow, prefix; |
250 | 1798 int partial; |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1799 char *title; |
250 | 1800 { |
1801 Lisp_Object maps; | |
1802 struct gcpro gcpro1; | |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1803 int something = 0; |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1804 char *key_heading |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1805 = "\ |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1806 key binding\n\ |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1807 --- -------\n"; |
250 | 1808 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1809 maps = Faccessible_keymaps (startmap, prefix); |
250 | 1810 GCPRO1 (maps); |
1811 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1812 if (!NILP (maps)) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1813 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1814 if (title) |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1815 { |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1816 insert_string (title); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1817 if (!NILP (prefix)) |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1818 { |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1819 insert_string (" Starting With "); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1820 insert1 (Fkey_description (prefix)); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1821 } |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1822 insert_string (":\n"); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1823 } |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1824 insert_string (key_heading); |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1825 something = 1; |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1826 } |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1827 |
485 | 1828 for (; !NILP (maps); maps = Fcdr (maps)) |
250 | 1829 { |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1830 register Lisp_Object elt, prefix, sub_shadows, tail; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1831 |
250 | 1832 elt = Fcar (maps); |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1833 prefix = Fcar (elt); |
250 | 1834 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1835 sub_shadows = Qnil; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1836 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1837 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
|
1838 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1839 Lisp_Object shmap; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1840 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1841 shmap = XCONS (tail)->car; |
250 | 1842 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1843 /* 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
|
1844 then the shadow map for this keymap is just SHADOW. */ |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1845 if ((XTYPE (prefix) == Lisp_String |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1846 && XSTRING (prefix)->size == 0) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1847 || (XTYPE (prefix) == Lisp_Vector |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1848 && XVECTOR (prefix)->size == 0)) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1849 ; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1850 /* 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
|
1851 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
|
1852 what we should use. */ |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1853 else |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1854 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1855 shmap = Flookup_key (shadow, Fcar (elt), Qt); |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1856 if (XTYPE (shmap) == Lisp_Int) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1857 shmap = Qnil; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1858 } |
250 | 1859 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1860 /* 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
|
1861 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
|
1862 describe this map at all. */ |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1863 if (!NILP (shmap) && NILP (Fkeymapp (shmap))) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1864 goto skip; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1865 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1866 if (!NILP (shmap)) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1867 sub_shadows = Fcons (shmap, sub_shadows); |
250 | 1868 } |
1869 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1870 describe_map (Fcdr (elt), Fcar (elt), partial, sub_shadows); |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1871 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1872 skip: ; |
250 | 1873 } |
1874 | |
4023
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1875 if (something) |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1876 insert_string ("\n"); |
5e4f918d5d44
(describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents:
3962
diff
changeset
|
1877 |
250 | 1878 UNGCPRO; |
1879 } | |
1880 | |
1881 static void | |
1882 describe_command (definition) | |
1883 Lisp_Object definition; | |
1884 { | |
1885 register Lisp_Object tem1; | |
1886 | |
1887 Findent_to (make_number (16), make_number (1)); | |
1888 | |
1889 if (XTYPE (definition) == Lisp_Symbol) | |
1890 { | |
1891 XSET (tem1, Lisp_String, XSYMBOL (definition)->name); | |
1892 insert1 (tem1); | |
1893 insert_string ("\n"); | |
1894 } | |
1895 else | |
1896 { | |
1897 tem1 = Fkeymapp (definition); | |
485 | 1898 if (!NILP (tem1)) |
250 | 1899 insert_string ("Prefix Command\n"); |
1900 else | |
1901 insert_string ("??\n"); | |
1902 } | |
1903 } | |
1904 | |
1905 /* Describe the contents of map MAP, assuming that this map itself is | |
1906 reached by the sequence of prefix keys KEYS (a string or vector). | |
1907 PARTIAL, SHADOW is as in `describe_map_tree' above. */ | |
1908 | |
1909 static void | |
1910 describe_map (map, keys, partial, shadow) | |
1911 Lisp_Object map, keys; | |
1912 int partial; | |
1913 Lisp_Object shadow; | |
1914 { | |
1915 register Lisp_Object keysdesc; | |
1916 | |
1517
72b7bbcaf7d8
* keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents:
1441
diff
changeset
|
1917 if (!NILP (keys) && XFASTINT (Flength (keys)) > 0) |
1890
0ca7640360bd
(describe_map): Call Fkey_description before build_string.
Richard M. Stallman <rms@gnu.org>
parents:
1871
diff
changeset
|
1918 { |
0ca7640360bd
(describe_map): Call Fkey_description before build_string.
Richard M. Stallman <rms@gnu.org>
parents:
1871
diff
changeset
|
1919 Lisp_Object tem; |
0ca7640360bd
(describe_map): Call Fkey_description before build_string.
Richard M. Stallman <rms@gnu.org>
parents:
1871
diff
changeset
|
1920 /* Call Fkey_description first, to avoid GC bug for the other string. */ |
0ca7640360bd
(describe_map): Call Fkey_description before build_string.
Richard M. Stallman <rms@gnu.org>
parents:
1871
diff
changeset
|
1921 tem = Fkey_description (keys); |
0ca7640360bd
(describe_map): Call Fkey_description before build_string.
Richard M. Stallman <rms@gnu.org>
parents:
1871
diff
changeset
|
1922 keysdesc = concat2 (tem, build_string (" ")); |
0ca7640360bd
(describe_map): Call Fkey_description before build_string.
Richard M. Stallman <rms@gnu.org>
parents:
1871
diff
changeset
|
1923 } |
250 | 1924 else |
1925 keysdesc = Qnil; | |
1926 | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1927 describe_map_2 (map, keysdesc, describe_command, partial, shadow); |
250 | 1928 } |
1929 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1930 /* 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
|
1931 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
|
1932 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1933 static Lisp_Object |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1934 shadow_lookup (shadow, key, flag) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1935 Lisp_Object shadow, key, flag; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1936 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1937 Lisp_Object tail, value; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1938 |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1939 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
|
1940 { |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1941 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
|
1942 if (!NILP (value)) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1943 return value; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1944 } |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1945 return Qnil; |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1946 } |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1947 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1948 /* Insert a description of KEYMAP into the current buffer. */ |
250 | 1949 |
1950 static void | |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1951 describe_map_2 (keymap, elt_prefix, elt_describer, partial, shadow) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1952 register Lisp_Object keymap; |
250 | 1953 Lisp_Object elt_prefix; |
1954 int (*elt_describer) (); | |
1955 int partial; | |
1956 Lisp_Object shadow; | |
1957 { | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1958 Lisp_Object tail, definition, event; |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
1959 Lisp_Object tem; |
250 | 1960 Lisp_Object suppress; |
1961 Lisp_Object kludge; | |
1962 int first = 1; | |
1963 struct gcpro gcpro1, gcpro2, gcpro3; | |
1964 | |
1965 if (partial) | |
1966 suppress = intern ("suppress-keymap"); | |
1967 | |
1968 /* 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
|
1969 that is done once per keymap element, we don't want to cons up a |
250 | 1970 fresh vector every time. */ |
1971 kludge = Fmake_vector (make_number (1), Qnil); | |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
1972 definition = Qnil; |
250 | 1973 |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
1974 GCPRO3 (elt_prefix, definition, kludge); |
250 | 1975 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1976 for (tail = XCONS (keymap)->cdr; CONSP (tail); tail = Fcdr (tail)) |
250 | 1977 { |
1978 QUIT; | |
1979 | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1980 if (XTYPE (XCONS (tail)->car) == Lisp_Vector) |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1981 describe_vector (XCONS (tail)->car, |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1982 elt_prefix, elt_describer, partial, shadow); |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1983 else |
250 | 1984 { |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1985 event = Fcar_safe (Fcar (tail)); |
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
1986 definition = get_keyelt (Fcdr_safe (Fcar (tail))); |
250 | 1987 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1988 /* Don't show undefined commands or suppressed commands. */ |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
1989 if (NILP (definition)) continue; |
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
1990 if (XTYPE (definition) == Lisp_Symbol && partial) |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1991 { |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
1992 tem = Fget (definition, suppress); |
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
1993 if (!NILP (tem)) |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1994 continue; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1995 } |
250 | 1996 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
1997 /* 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
|
1998 because a local definition of the same key shadows it. */ |
250 | 1999 |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
2000 XVECTOR (kludge)->contents[0] = event; |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2001 if (!NILP (shadow)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2002 { |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
2003 tem = shadow_lookup (shadow, kludge, Qt); |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2004 if (!NILP (tem)) continue; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2005 } |
250 | 2006 |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
2007 tem = Flookup_key (keymap, kludge, Qt); |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
2008 if (! EQ (tem, definition)) continue; |
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
2009 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2010 if (first) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2011 { |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2012 insert ("\n", 1); |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2013 first = 0; |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2014 } |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2015 |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2016 if (!NILP (elt_prefix)) |
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2017 insert1 (elt_prefix); |
250 | 2018 |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
2019 /* THIS gets the string to describe the character EVENT. */ |
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
2020 insert1 (Fsingle_key_description (event)); |
250 | 2021 |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2022 /* 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
|
2023 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
|
2024 for alignment purposes. */ |
3908
a148b4ff79c6
(describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents:
3735
diff
changeset
|
2025 (*elt_describer) (definition); |
1209
1aa2cd425737
* keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1160
diff
changeset
|
2026 } |
250 | 2027 } |
2028 | |
2029 UNGCPRO; | |
2030 } | |
2031 | |
2032 static int | |
2033 describe_vector_princ (elt) | |
2034 Lisp_Object elt; | |
2035 { | |
3691
49ce2242f5c1
(get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
3674
diff
changeset
|
2036 Findent_to (make_number (16), make_number (1)); |
250 | 2037 Fprinc (elt, Qnil); |
3632
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
2038 Fterpri (Qnil); |
250 | 2039 } |
2040 | |
2041 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
|
2042 "Insert a description of contents of VECTOR.\n\ |
250 | 2043 This is text showing the elements of vector matched against indices.") |
2044 (vector) | |
2045 Lisp_Object vector; | |
2046 { | |
3632
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
2047 int count = specpdl_ptr - specpdl; |
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
2048 |
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
2049 specbind (Qstandard_output, Fcurrent_buffer ()); |
250 | 2050 CHECK_VECTOR (vector, 0); |
1922
648bc44d182a
* keymap.c (Fdescribe_vector): Pass the proper number of arguments
Jim Blandy <jimb@redhat.com>
parents:
1890
diff
changeset
|
2051 describe_vector (vector, Qnil, describe_vector_princ, 0, Qnil); |
3632
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
2052 |
72cfde0cd8cd
(Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents:
3542
diff
changeset
|
2053 return unbind_to (count, Qnil); |
250 | 2054 } |
2055 | |
2056 describe_vector (vector, elt_prefix, elt_describer, partial, shadow) | |
2057 register Lisp_Object vector; | |
2058 Lisp_Object elt_prefix; | |
2059 int (*elt_describer) (); | |
2060 int partial; | |
2061 Lisp_Object shadow; | |
2062 { | |
2063 Lisp_Object this; | |
2064 Lisp_Object dummy; | |
2065 Lisp_Object tem1, tem2; | |
2066 register int i; | |
2067 Lisp_Object suppress; | |
2068 Lisp_Object kludge; | |
2069 int first = 1; | |
2070 struct gcpro gcpro1, gcpro2, gcpro3; | |
2071 | |
2072 tem1 = Qnil; | |
2073 | |
2074 /* This vector gets used to present single keys to Flookup_key. Since | |
2075 that is done once per vector element, we don't want to cons up a | |
2076 fresh vector every time. */ | |
2077 kludge = Fmake_vector (make_number (1), Qnil); | |
2078 GCPRO3 (elt_prefix, tem1, kludge); | |
2079 | |
2080 if (partial) | |
2081 suppress = intern ("suppress-keymap"); | |
2082 | |
2752
93eda5bbc4df
(Faccessible_keymaps): Use whatever size the vector has.
Richard M. Stallman <rms@gnu.org>
parents:
2727
diff
changeset
|
2083 for (i = 0; i < XVECTOR (vector)->size; i++) |
250 | 2084 { |
2085 QUIT; | |
2086 tem1 = get_keyelt (XVECTOR (vector)->contents[i]); | |
2087 | |
485 | 2088 if (NILP (tem1)) continue; |
250 | 2089 |
2090 /* Don't mention suppressed commands. */ | |
2091 if (XTYPE (tem1) == Lisp_Symbol && partial) | |
2092 { | |
2093 this = Fget (tem1, suppress); | |
485 | 2094 if (!NILP (this)) |
250 | 2095 continue; |
2096 } | |
2097 | |
2098 /* If this command in this map is shadowed by some other map, | |
2099 ignore it. */ | |
485 | 2100 if (!NILP (shadow)) |
250 | 2101 { |
2102 Lisp_Object tem; | |
2103 | |
2104 XVECTOR (kludge)->contents[0] = make_number (i); | |
3952
f9dfc2872fb0
(describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents:
3908
diff
changeset
|
2105 tem = shadow_lookup (shadow, kludge, Qt); |
250 | 2106 |
485 | 2107 if (!NILP (tem)) continue; |
250 | 2108 } |
2109 | |
2110 if (first) | |
2111 { | |
2112 insert ("\n", 1); | |
2113 first = 0; | |
2114 } | |
2115 | |
2116 /* Output the prefix that applies to every entry in this map. */ | |
485 | 2117 if (!NILP (elt_prefix)) |
250 | 2118 insert1 (elt_prefix); |
2119 | |
2120 /* Get the string to describe the character I, and print it. */ | |
2121 XFASTINT (dummy) = i; | |
2122 | |
2123 /* THIS gets the string to describe the character DUMMY. */ | |
2124 this = Fsingle_key_description (dummy); | |
2125 insert1 (this); | |
2126 | |
2127 /* Find all consecutive characters that have the same definition. */ | |
2752
93eda5bbc4df
(Faccessible_keymaps): Use whatever size the vector has.
Richard M. Stallman <rms@gnu.org>
parents:
2727
diff
changeset
|
2128 while (i + 1 < XVECTOR (vector)->size |
250 | 2129 && (tem2 = get_keyelt (XVECTOR (vector)->contents[i+1]), |
2130 EQ (tem2, tem1))) | |
2131 i++; | |
2132 | |
2133 /* If we have a range of more than one character, | |
2134 print where the range reaches to. */ | |
2135 | |
2136 if (i != XINT (dummy)) | |
2137 { | |
2138 insert (" .. ", 4); | |
485 | 2139 if (!NILP (elt_prefix)) |
250 | 2140 insert1 (elt_prefix); |
2141 | |
2142 XFASTINT (dummy) = i; | |
2143 insert1 (Fsingle_key_description (dummy)); | |
2144 } | |
2145 | |
2146 /* Print a description of the definition of this character. | |
2147 elt_describer will take care of spacing out far enough | |
2148 for alignment purposes. */ | |
2149 (*elt_describer) (tem1); | |
2150 } | |
2151 | |
2152 UNGCPRO; | |
2153 } | |
2154 | |
465 | 2155 /* Apropos - finding all symbols whose names match a regexp. */ |
250 | 2156 Lisp_Object apropos_predicate; |
2157 Lisp_Object apropos_accumulate; | |
2158 | |
2159 static void | |
2160 apropos_accum (symbol, string) | |
2161 Lisp_Object symbol, string; | |
2162 { | |
2163 register Lisp_Object tem; | |
2164 | |
2165 tem = Fstring_match (string, Fsymbol_name (symbol), Qnil); | |
485 | 2166 if (!NILP (tem) && !NILP (apropos_predicate)) |
250 | 2167 tem = call1 (apropos_predicate, symbol); |
485 | 2168 if (!NILP (tem)) |
250 | 2169 apropos_accumulate = Fcons (symbol, apropos_accumulate); |
2170 } | |
2171 | |
2172 DEFUN ("apropos-internal", Fapropos_internal, Sapropos_internal, 1, 2, 0, | |
2173 "Show all symbols whose names contain match for REGEXP.\n\ | |
2174 If optional 2nd arg PRED is non-nil, (funcall PRED SYM) is done\n\ | |
2175 for each symbol and a symbol is mentioned only if that returns non-nil.\n\ | |
2176 Return list of symbols found.") | |
2177 (string, pred) | |
2178 Lisp_Object string, pred; | |
2179 { | |
2180 struct gcpro gcpro1, gcpro2; | |
2181 CHECK_STRING (string, 0); | |
2182 apropos_predicate = pred; | |
2183 GCPRO2 (apropos_predicate, apropos_accumulate); | |
2184 apropos_accumulate = Qnil; | |
2185 map_obarray (Vobarray, apropos_accum, string); | |
2186 apropos_accumulate = Fsort (apropos_accumulate, Qstring_lessp); | |
2187 UNGCPRO; | |
2188 return apropos_accumulate; | |
2189 } | |
2190 | |
2191 syms_of_keymap () | |
2192 { | |
2193 Lisp_Object tem; | |
2194 | |
2195 Qkeymap = intern ("keymap"); | |
2196 staticpro (&Qkeymap); | |
2197 | |
2198 /* Initialize the keymaps standardly used. | |
2199 Each one is the value of a Lisp variable, and is also | |
2200 pointed to by a C variable */ | |
2201 | |
3224
6be8f63060b3
(syms_of_keymap): Create global_map 256 slots long.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
2202 global_map = Fcons (Qkeymap, |
3425
c513638ee7ed
(syms_of_keymap): Add missing 2nd arg to Fcons.
Richard M. Stallman <rms@gnu.org>
parents:
3224
diff
changeset
|
2203 Fcons (Fmake_vector (make_number (0400), Qnil), Qnil)); |
250 | 2204 Fset (intern ("global-map"), global_map); |
2205 | |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
2206 meta_map = Fmake_keymap (Qnil); |
250 | 2207 Fset (intern ("esc-map"), meta_map); |
2208 Ffset (intern ("ESC-prefix"), meta_map); | |
2209 | |
1095
6578f07e9eb8
(Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
647
diff
changeset
|
2210 control_x_map = Fmake_keymap (Qnil); |
250 | 2211 Fset (intern ("ctl-x-map"), control_x_map); |
2212 Ffset (intern ("Control-X-prefix"), control_x_map); | |
2213 | |
2214 DEFVAR_LISP ("minibuffer-local-map", &Vminibuffer_local_map, | |
2215 "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
|
2216 Vminibuffer_local_map = Fmake_sparse_keymap (Qnil); |
250 | 2217 |
2218 DEFVAR_LISP ("minibuffer-local-ns-map", &Vminibuffer_local_ns_map, | |
2219 "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
|
2220 Vminibuffer_local_ns_map = Fmake_sparse_keymap (Qnil); |
250 | 2221 |
2222 DEFVAR_LISP ("minibuffer-local-completion-map", &Vminibuffer_local_completion_map, | |
2223 "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
|
2224 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil); |
250 | 2225 |
2226 DEFVAR_LISP ("minibuffer-local-must-match-map", &Vminibuffer_local_must_match_map, | |
2227 "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
|
2228 Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil); |
250 | 2229 |
2230 current_global_map = global_map; | |
2231 | |
465 | 2232 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist, |
2233 "Alist of keymaps to use for minor modes.\n\ | |
2234 Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read\n\ | |
2235 key sequences and look up bindings iff VARIABLE's value is non-nil.\n\ | |
2236 If two active keymaps bind the same key, the keymap appearing earlier\n\ | |
2237 in the list takes precedence."); | |
2238 Vminor_mode_map_alist = Qnil; | |
2239 | |
517 | 2240 DEFVAR_LISP ("function-key-map", &Vfunction_key_map, |
2241 "Keymap mapping ASCII function key sequences onto their preferred forms.\n\ | |
2242 This allows Emacs to recognize function keys sent from ASCII\n\ | |
2243 terminals at any point in a key sequence.\n\ | |
2244 \n\ | |
2245 The read-key-sequence function replaces subsequences bound by\n\ | |
2246 function-key-map with their bindings. When the current local and global\n\ | |
2247 keymaps have no binding for the current key sequence but\n\ | |
4138
42faad1466fa
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4023
diff
changeset
|
2248 function-key-map binds a suffix of the sequence to a vector or string,\n\ |
517 | 2249 read-key-sequence replaces the matching suffix with its binding, and\n\ |
2250 continues with the new sequence.\n\ | |
2251 \n\ | |
4138
42faad1466fa
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4023
diff
changeset
|
2252 For example, suppose function-key-map binds `ESC O P' to [f1].\n\ |
42faad1466fa
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4023
diff
changeset
|
2253 Typing `ESC O P' to read-key-sequence would return [f1]. Typing\n\ |
42faad1466fa
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4023
diff
changeset
|
2254 `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
|
2255 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
|
2256 Vfunction_key_map = Fmake_sparse_keymap (Qnil); |
517 | 2257 |
250 | 2258 Qsingle_key_description = intern ("single-key-description"); |
2259 staticpro (&Qsingle_key_description); | |
2260 | |
2261 Qkey_description = intern ("key-description"); | |
2262 staticpro (&Qkey_description); | |
2263 | |
2264 Qkeymapp = intern ("keymapp"); | |
2265 staticpro (&Qkeymapp); | |
2266 | |
2727
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
2267 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
|
2268 staticpro (&Qnon_ascii); |
b8911c8b9700
* keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents:
2652
diff
changeset
|
2269 |
250 | 2270 defsubr (&Skeymapp); |
2271 defsubr (&Smake_keymap); | |
2272 defsubr (&Smake_sparse_keymap); | |
2273 defsubr (&Scopy_keymap); | |
2274 defsubr (&Skey_binding); | |
2275 defsubr (&Slocal_key_binding); | |
2276 defsubr (&Sglobal_key_binding); | |
465 | 2277 defsubr (&Sminor_mode_key_binding); |
250 | 2278 defsubr (&Sglobal_set_key); |
2279 defsubr (&Slocal_set_key); | |
2280 defsubr (&Sdefine_key); | |
2281 defsubr (&Slookup_key); | |
2282 defsubr (&Sglobal_unset_key); | |
2283 defsubr (&Slocal_unset_key); | |
2284 defsubr (&Sdefine_prefix_command); | |
2285 defsubr (&Suse_global_map); | |
2286 defsubr (&Suse_local_map); | |
2287 defsubr (&Scurrent_local_map); | |
2288 defsubr (&Scurrent_global_map); | |
465 | 2289 defsubr (&Scurrent_minor_mode_maps); |
250 | 2290 defsubr (&Saccessible_keymaps); |
2291 defsubr (&Skey_description); | |
2292 defsubr (&Sdescribe_vector); | |
2293 defsubr (&Ssingle_key_description); | |
2294 defsubr (&Stext_char_description); | |
2295 defsubr (&Swhere_is_internal); | |
2296 defsubr (&Swhere_is); | |
2297 defsubr (&Sdescribe_bindings); | |
2298 defsubr (&Sapropos_internal); | |
2299 } | |
2300 | |
2301 keys_of_keymap () | |
2302 { | |
2303 Lisp_Object tem; | |
2304 | |
2305 initial_define_key (global_map, 033, "ESC-prefix"); | |
2306 initial_define_key (global_map, Ctl('X'), "Control-X-prefix"); | |
2307 } |