annotate src/keymap.c @ 103251:ed4e37cf73c3

*** empty log message ***
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Tue, 19 May 2009 00:27:03 +0000
parents c78d442e47ad
children b3fb8c98c899
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Manipulation of keymaps
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64470
diff changeset
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995,
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64470
diff changeset
3 1998, 1999, 2000, 2001, 2002, 2003, 2004,
100951
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100689
diff changeset
4 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 This file is part of GNU Emacs.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93882
diff changeset
8 GNU Emacs is free software: you can redistribute it and/or modify
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93882
diff changeset
10 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93882
diff changeset
11 (at your option) any later version.
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 GNU General Public License for more details.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93882
diff changeset
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4575
diff changeset
22 #include <config.h>
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 #include <stdio.h>
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
24 #if HAVE_ALLOCA_H
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
25 # include <alloca.h>
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
26 #endif
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include "lisp.h"
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #include "commands.h"
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 #include "buffer.h"
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
30 #include "character.h"
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
31 #include "charset.h"
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
32 #include "keyboard.h"
83004
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 52740
diff changeset
33 #include "frame.h"
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
34 #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
35 #include "blockinput.h"
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
36 #include "puresize.h"
29282
59f2b30d577b Include intervals.h.
Dave Love <fx@gnu.org>
parents: 29013
diff changeset
37 #include "intervals.h"
39697
0b986bb45526 Include keymap.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39689
diff changeset
38 #include "keymap.h"
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
39 #include "window.h"
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
41 /* The number of elements in keymap vectors. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 #define DENSE_TABLE_SIZE (0200)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 /* Actually allocate storage for these variables */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 Lisp_Object current_global_map; /* Current global keymap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 Lisp_Object global_map; /* default global key bindings */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 Lisp_Object meta_map; /* The keymap used for globally bound
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 ESC-prefixed default commands */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 Lisp_Object control_x_map; /* The keymap used for globally bound
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 C-x-prefixed default commands */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 /* was MinibufLocalMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 Lisp_Object Vminibuffer_local_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 /* The keymap used by the minibuf for local
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 bindings when spaces are allowed in the
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 minibuf */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 /* was MinibufLocalNSMap */
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
63 Lisp_Object Vminibuffer_local_ns_map;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 /* The keymap used by the minibuf for local
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 bindings when spaces are not encouraged
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 in the minibuf */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 /* keymap used for minibuffers when doing completion */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 /* was MinibufLocalCompletionMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 Lisp_Object Vminibuffer_local_completion_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
72 /* keymap used for minibuffers when doing completion in filenames */
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
73 Lisp_Object Vminibuffer_local_filename_completion_map;
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
74
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
75 /* keymap used for minibuffers when doing completion in filenames
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
76 with require-match*/
95575
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
77 Lisp_Object Vminibuffer_local_filename_must_match_map;
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
78
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 /* keymap used for minibuffers when doing completion and require a match */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 /* was MinibufLocalMustMatchMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 Lisp_Object Vminibuffer_local_must_match_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
83 /* Alist of minor mode variables and keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
84 Lisp_Object Vminor_mode_map_alist;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
85
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
86 /* Alist of major-mode-specific overrides for
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
87 minor mode variables and keymaps. */
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
88 Lisp_Object Vminor_mode_overriding_map_alist;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
89
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
90 /* List of emulation mode keymap alists. */
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
91 Lisp_Object Vemulation_mode_map_alists;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
92
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
93 /* A list of all commands given new bindings since a certain time
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
94 when nil was stored here.
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
95 This is used to speed up recomputation of menu key equivalents
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
96 when Emacs starts up. t means don't record anything here. */
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
97 Lisp_Object Vdefine_key_rebound_commands;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
98
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
99 Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii, Qmenu_item, Qremap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100
42381
810b3bfc52cf Fix previous change; also correct its change log:
Richard M. Stallman <rms@gnu.org>
parents: 42378
diff changeset
101 /* Alist of elements like (DEL . "\d"). */
810b3bfc52cf Fix previous change; also correct its change log:
Richard M. Stallman <rms@gnu.org>
parents: 42378
diff changeset
102 static Lisp_Object exclude_keys;
810b3bfc52cf Fix previous change; also correct its change log:
Richard M. Stallman <rms@gnu.org>
parents: 42378
diff changeset
103
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
104 /* Pre-allocated 2-element vector for Fcommand_remapping to use. */
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
105 static Lisp_Object command_remapping_vector;
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
106
2886
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
107 /* A char with the CHAR_META bit set in a vector or the 0200 bit set
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
108 in a string key sequence is equivalent to prefixing with this
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
109 character. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 extern Lisp_Object meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
112 extern Lisp_Object Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
113
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
114 /* Hash table used to cache a reverse-map to speed up calls to where-is. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
115 static Lisp_Object where_is_cache;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
116 /* Which keymaps are reverse-stored in the cache. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
117 static Lisp_Object where_is_cache_keymaps;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
118
31208
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
119 static Lisp_Object store_in_keymap P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
120 static void fix_submap_inheritance P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
121
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
122 static Lisp_Object define_as_prefix P_ ((Lisp_Object, Lisp_Object));
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
123 static void describe_command P_ ((Lisp_Object, Lisp_Object));
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
124 static void describe_translation P_ ((Lisp_Object, Lisp_Object));
31208
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
125 static void describe_map P_ ((Lisp_Object, Lisp_Object,
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
126 void (*) P_ ((Lisp_Object, Lisp_Object)),
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
127 int, Lisp_Object, Lisp_Object*, int, int));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
128 static void describe_vector P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
129 void (*) (Lisp_Object, Lisp_Object), int,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
130 Lisp_Object, Lisp_Object, int *,
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
131 int, int, int));
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
132 static void silly_event_symbol_error P_ ((Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
134 /* Keymap object support - constructors and predicates. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
135
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
136 DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
137 doc: /* Construct and return a new keymap, of the form (keymap CHARTABLE . ALIST).
56635
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
138 CHARTABLE is a char-table that holds the bindings for all characters
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
139 without modifiers. All entries in it are initially nil, meaning
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
140 "command undefined". ALIST is an assoc-list which holds bindings for
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
141 function keys, mouse events, and any other things that appear in the
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
142 input stream. Initially, ALIST is nil.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
143
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
144 The optional arg STRING supplies a menu name for the keymap
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
145 in case you use it as a menu with `x-popup-menu'. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
146 (string)
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
147 Lisp_Object string;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 {
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
149 Lisp_Object tail;
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
150 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
151 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
152 else
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
153 tail = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 return Fcons (Qkeymap,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
155 Fcons (Fmake_char_table (Qkeymap, Qnil), tail));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
158 DEFUN ("make-sparse-keymap", Fmake_sparse_keymap, Smake_sparse_keymap, 0, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
159 doc: /* Construct and return a new sparse keymap.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
160 Its car is `keymap' and its cdr is an alist of (CHAR . DEFINITION),
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
161 which binds the character CHAR to DEFINITION, or (SYMBOL . DEFINITION),
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
162 which binds the function key or mouse event SYMBOL to DEFINITION.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
163 Initially the alist is nil.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
164
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
165 The optional arg STRING supplies a menu name for the keymap
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
166 in case you use it as a menu with `x-popup-menu'. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
167 (string)
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
168 Lisp_Object string;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 {
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
170 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
171 return Fcons (Qkeymap, Fcons (string, Qnil));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 return Fcons (Qkeymap, Qnil);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 /* This function is used for installing the standard key bindings
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 at initialization time.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 For example:
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
180 initial_define_key (control_x_map, Ctl('X'), "exchange-point-and-mark"); */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 initial_define_key (keymap, key, defname)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 int key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 char *defname;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 store_in_keymap (keymap, make_number (key), intern (defname));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
191 void
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
192 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
193 Lisp_Object keymap;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
194 char *keyname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
195 char *defname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
196 {
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
197 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
198 }
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
199
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 DEFUN ("keymapp", Fkeymapp, Skeymapp, 1, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
201 doc: /* Return t if OBJECT is a keymap.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
202
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
203 A keymap is a list (keymap . ALIST),
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
204 or a symbol whose function definition is itself a keymap.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
205 ALIST elements look like (CHAR . DEFN) or (SYMBOL . DEFN);
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
206 a vector of densely packed bindings for small character codes
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
207 is also allowed as an element. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
208 (object)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 Lisp_Object object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
211 return (KEYMAPP (object) ? Qt : Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
214 DEFUN ("keymap-prompt", Fkeymap_prompt, Skeymap_prompt, 1, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
215 doc: /* Return the prompt-string of a keymap MAP.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
216 If non-nil, the prompt is shown in the echo-area
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
217 when reading a key-sequence to be looked-up in this keymap. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
218 (map)
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
219 Lisp_Object map;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
220 {
58129
6f1bde62e20e (Fkeymap_prompt): Accept symbol keymaps.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57478
diff changeset
221 map = get_keymap (map, 0, 0);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
222 while (CONSP (map))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
223 {
58129
6f1bde62e20e (Fkeymap_prompt): Accept symbol keymaps.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57478
diff changeset
224 Lisp_Object tem = XCAR (map);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
225 if (STRINGP (tem))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
226 return tem;
58129
6f1bde62e20e (Fkeymap_prompt): Accept symbol keymaps.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57478
diff changeset
227 map = XCDR (map);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
228 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
229 return Qnil;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
230 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
231
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 /* 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
233 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
234
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
235 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
236 is an autoload form, do the autoload and try again.
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
237 If AUTOLOAD is nonzero, callers must assume GC is possible.
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
238
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
239 If the map needs to be autoloaded, but AUTOLOAD is zero (and ERROR
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
240 is zero as well), return Qt.
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
241
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
242 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
243 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
244
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
245 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
246 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
247 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
248 but it seems to me that only read_key_sequence, Flookup_key, and
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
249 Fdefine_key should cause keymaps to be autoloaded.
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
250
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
251 This function can GC when AUTOLOAD is non-zero, because it calls
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
252 do_autoload which can GC. */
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
253
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 Lisp_Object
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
255 get_keymap (object, error, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 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
257 int error, autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
259 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
261 autoload_retry:
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
262 if (NILP (object))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
263 goto end;
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
264 if (CONSP (object) && EQ (XCAR (object), Qkeymap))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
265 return object;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
266
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
267 tem = indirect_function (object);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
268 if (CONSP (tem))
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
269 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
270 if (EQ (XCAR (tem), Qkeymap))
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
271 return tem;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
272
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
273 /* Should we do an autoload? Autoload forms for keymaps have
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
274 Qkeymap as their fifth element. */
57478
3965acfc4e80 (get_keymap): An autoload form is not a keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56635
diff changeset
275 if ((autoload || !error) && EQ (XCAR (tem), Qautoload)
3965acfc4e80 (get_keymap): An autoload form is not a keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56635
diff changeset
276 && SYMBOLP (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
277 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
278 Lisp_Object tail;
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
279
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
280 tail = Fnth (make_number (4), tem);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
281 if (EQ (tail, Qkeymap))
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
282 {
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
283 if (autoload)
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
284 {
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
285 struct gcpro gcpro1, gcpro2;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
286
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
287 GCPRO2 (tem, object);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
288 do_autoload (tem, object);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
289 UNGCPRO;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
290
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
291 goto autoload_retry;
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
292 }
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
293 else
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
294 return Qt;
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
295 }
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
296 }
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
297 }
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
298
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
299 end:
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 if (error)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 wrong_type_argument (Qkeymapp, object);
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
302 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
304
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
305 /* Return the parent map of KEYMAP, or nil if it has none.
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
306 We assume that KEYMAP is a valid keymap. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
307
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
308 Lisp_Object
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
309 keymap_parent (keymap, autoload)
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
310 Lisp_Object keymap;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
311 int autoload;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
312 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
313 Lisp_Object list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
314
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
315 keymap = get_keymap (keymap, 1, autoload);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
316
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
317 /* Skip past the initial element `keymap'. */
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
318 list = XCDR (keymap);
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
319 for (; CONSP (list); list = XCDR (list))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
320 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
321 /* See if there is another `keymap'. */
31208
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
322 if (KEYMAPP (list))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
323 return list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
324 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
325
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
326 return get_keymap (list, 0, autoload);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
327 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
328
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
329 DEFUN ("keymap-parent", Fkeymap_parent, Skeymap_parent, 1, 1, 0,
102130
c78d442e47ad (Fkeymap_parent): Doc fix (Bug#2391).
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
330 doc: /* Return the parent keymap of KEYMAP.
c78d442e47ad (Fkeymap_parent): Doc fix (Bug#2391).
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
331 If KEYMAP has no parent, return nil. */)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
332 (keymap)
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
333 Lisp_Object keymap;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
334 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
335 return keymap_parent (keymap, 1);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
336 }
31496
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
337
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
338 /* Check whether MAP is one of MAPS parents. */
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
339 int
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
340 keymap_memberp (map, maps)
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
341 Lisp_Object map, maps;
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
342 {
32559
bc60bd171784 (keymap_memberp): Ensure that nil is not a member.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32478
diff changeset
343 if (NILP (map)) return 0;
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
344 while (KEYMAPP (maps) && !EQ (map, maps))
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
345 maps = keymap_parent (maps, 0);
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
346 return (EQ (map, maps));
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
347 }
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
348
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
349 /* Set the parent keymap of MAP to PARENT. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
350
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
351 DEFUN ("set-keymap-parent", Fset_keymap_parent, Sset_keymap_parent, 2, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
352 doc: /* Modify KEYMAP to set its parent map to PARENT.
56574
c6f24a7d73bd (Fset_keymap_parent): Minor doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56573
diff changeset
353 Return PARENT. PARENT should be nil or another keymap. */)
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
354 (keymap, parent)
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
355 Lisp_Object keymap, parent;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
356 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
357 Lisp_Object list, prev;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
358 struct gcpro gcpro1, gcpro2;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
359 int i;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
360
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
361 /* Force a keymap flush for the next call to where-is.
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
362 Since this can be called from within where-is, we don't set where_is_cache
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
363 directly but only where_is_cache_keymaps, since where_is_cache shouldn't
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
364 be changed during where-is, while where_is_cache_keymaps is only used at
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
365 the very beginning of where-is and can thus be changed here without any
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
366 adverse effect.
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
367 This is a very minor correctness (rather than safety) issue. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
368 where_is_cache_keymaps = Qt;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
369
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
370 GCPRO2 (keymap, parent);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
371 keymap = get_keymap (keymap, 1, 1);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
372
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
373 if (!NILP (parent))
31496
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
374 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
375 parent = get_keymap (parent, 1, 1);
31496
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
376
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
377 /* Check for cycles. */
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
378 if (keymap_memberp (keymap, parent))
31496
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
379 error ("Cyclic keymap inheritance");
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
380 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
381
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
382 /* Skip past the initial element `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
383 prev = keymap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
384 while (1)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
385 {
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
386 list = XCDR (prev);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
387 /* If there is a parent keymap here, replace it.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
388 If we came to the end, add the parent in PREV. */
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
389 if (!CONSP (list) || KEYMAPP (list))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
390 {
15422
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
391 /* If we already have the right parent, return now
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
392 so that we avoid the loops below. */
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
393 if (EQ (XCDR (prev), parent))
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
394 RETURN_UNGCPRO (parent);
15422
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
395
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
396 CHECK_IMPURE (prev);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39940
diff changeset
397 XSETCDR (prev, parent);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
398 break;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
399 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
400 prev = list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
401 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
402
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
403 /* Scan through for submaps, and set their parents too. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
404
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
405 for (list = XCDR (keymap); CONSP (list); list = XCDR (list))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
406 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
407 /* Stop the scan when we come to the parent. */
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
408 if (EQ (XCAR (list), Qkeymap))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
409 break;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
410
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
411 /* If this element holds a prefix map, deal with it. */
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
412 if (CONSP (XCAR (list))
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
413 && CONSP (XCDR (XCAR (list))))
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
414 fix_submap_inheritance (keymap, XCAR (XCAR (list)),
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
415 XCDR (XCAR (list)));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
416
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
417 if (VECTORP (XCAR (list)))
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
418 for (i = 0; i < XVECTOR (XCAR (list))->size; i++)
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
419 if (CONSP (XVECTOR (XCAR (list))->contents[i]))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
420 fix_submap_inheritance (keymap, make_number (i),
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
421 XVECTOR (XCAR (list))->contents[i]);
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
422
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
423 if (CHAR_TABLE_P (XCAR (list)))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
424 {
89551
28a8f2be4414 (Fset_keymap_parent, map_keymap, Fcopy_keymap)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
425 map_char_table (fix_submap_inheritance, Qnil, XCAR (list), keymap);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
426 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
427 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
428
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
429 RETURN_UNGCPRO (parent);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
430 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
431
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
432 /* EVENT is defined in MAP as a prefix, and SUBMAP is its definition.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
433 if EVENT is also a prefix in MAP's parent,
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
434 make sure that SUBMAP inherits that definition as its own parent. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
435
31208
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
436 static void
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
437 fix_submap_inheritance (map, event, submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
438 Lisp_Object map, event, submap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
439 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
440 Lisp_Object map_parent, parent_entry;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
441
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
442 /* SUBMAP is a cons that we found as a key binding.
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
443 Discard the other things found in a menu key binding. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
444
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
445 submap = get_keymap (get_keyelt (submap, 0), 0, 0);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
446
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
447 /* If it isn't a keymap now, there's no work to do. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
448 if (!CONSP (submap))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
449 return;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
450
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
451 map_parent = keymap_parent (map, 0);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
452 if (!NILP (map_parent))
32844
5aa0846c2995 (fix_submap_inheritance): Use get_keymap_1 on parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32818
diff changeset
453 parent_entry =
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
454 get_keymap (access_keymap (map_parent, event, 0, 0, 0), 0, 0);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
455 else
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
456 parent_entry = Qnil;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
457
15378
ecfc288350ab (fix_submap_inheritance): If parent_entry is not a keymap, use nil instead.
Richard M. Stallman <rms@gnu.org>
parents: 15344
diff changeset
458 /* If MAP's parent has something other than a keymap,
32739
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
459 our own submap shadows it completely. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
460 if (!CONSP (parent_entry))
32739
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
461 return;
15378
ecfc288350ab (fix_submap_inheritance): If parent_entry is not a keymap, use nil instead.
Richard M. Stallman <rms@gnu.org>
parents: 15344
diff changeset
462
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
463 if (! EQ (parent_entry, submap))
25600
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
464 {
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
465 Lisp_Object submap_parent;
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
466 submap_parent = submap;
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
467 while (1)
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
468 {
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
469 Lisp_Object tem;
32739
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
470
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
471 tem = keymap_parent (submap_parent, 0);
32739
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
472
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
473 if (KEYMAPP (tem))
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
474 {
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
475 if (keymap_memberp (tem, parent_entry))
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
476 /* Fset_keymap_parent could create a cycle. */
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
477 return;
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
478 submap_parent = tem;
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
479 }
25600
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
480 else
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
481 break;
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
482 }
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
483 Fset_keymap_parent (submap_parent, parent_entry);
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
484 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
485 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
486
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
487 /* 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
488 Note that this does only one level of lookup; IDX must be a single
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
489 event, not a sequence.
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
490
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
491 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
492 bindings; any key left unmentioned by other tables and bindings is
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
493 given the binding of Qt.
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
494
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
495 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
496
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
497 If NOINHERIT, don't accept a subkeymap found in an inherited keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 Lisp_Object
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
500 access_keymap (map, idx, t_ok, noinherit, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 Lisp_Object idx;
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
503 int t_ok;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
504 int noinherit;
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
505 int autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 {
40791
97673fa0eaa7 (access_keymap): Don't use initializers on Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
507 Lisp_Object val;
97673fa0eaa7 (access_keymap): Don't use initializers on Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
508
97673fa0eaa7 (access_keymap): Don't use initializers on Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
509 /* Qunbound in VAL means we have found no binding yet. */
97673fa0eaa7 (access_keymap): Don't use initializers on Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
510 val = Qunbound;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
511
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 /* If idx is a list (some sort of mouse click, perhaps?),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 the index we want to use is the car of the list, which
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 ought to be a symbol. */
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
515 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
517 /* 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
518 be put in the canonical order. */
8866
48a0ea73a9d7 (Fkey_description): Give error if KEYS not an array.
Richard M. Stallman <rms@gnu.org>
parents: 8731
diff changeset
519 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
520 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
521 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
522 /* 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
523 with more than 24 bits of integer. */
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
524 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
526 /* Handle the special meta -> esc mapping. */
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
527 if (INTEGERP (idx) && XUINT (idx) & meta_modifier)
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
528 {
32615
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
529 /* See if there is a meta-map. If there's none, there is
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
530 no binding for IDX, unless a default binding exists in MAP. */
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
531 struct gcpro gcpro1;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
532 Lisp_Object meta_map;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
533 GCPRO1 (map);
59661
e7a8549bb201 (access_keymap): Protect from bad value of meta_prefix_char.
Richard M. Stallman <rms@gnu.org>
parents: 59522
diff changeset
534 /* A strange value in which Meta is set would cause
e7a8549bb201 (access_keymap): Protect from bad value of meta_prefix_char.
Richard M. Stallman <rms@gnu.org>
parents: 59522
diff changeset
535 infinite recursion. Protect against that. */
59754
a9fbaec66c84 (access_keymap): YAILOM.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59661
diff changeset
536 if (XINT (meta_prefix_char) & CHAR_META)
59661
e7a8549bb201 (access_keymap): Protect from bad value of meta_prefix_char.
Richard M. Stallman <rms@gnu.org>
parents: 59522
diff changeset
537 meta_prefix_char = make_number (27);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
538 meta_map = get_keymap (access_keymap (map, meta_prefix_char,
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
539 t_ok, noinherit, autoload),
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
540 0, autoload);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
541 UNGCPRO;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
542 if (CONSP (meta_map))
32615
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
543 {
32739
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
544 map = meta_map;
32615
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
545 idx = make_number (XUINT (idx) & ~meta_modifier);
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
546 }
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
547 else if (t_ok)
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
548 /* Set IDX to t, so that we only find a default binding. */
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
549 idx = Qt;
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
550 else
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
551 /* We know there is no binding. */
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
552 return Qnil;
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
553 }
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
554
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
555 /* t_binding is where we put a default binding that applies,
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
556 to use in case we do not find a binding specifically
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
557 for this key sequence. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
559 Lisp_Object tail;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
560 Lisp_Object t_binding = Qnil;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
561 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
562
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
563 GCPRO4 (map, tail, idx, t_binding);
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
564
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
565 for (tail = XCDR (map);
32615
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
566 (CONSP (tail)
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
567 || (tail = get_keymap (tail, 0, autoload), CONSP (tail)));
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
568 tail = XCDR (tail))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
569 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
570 Lisp_Object binding;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
572 binding = XCAR (tail);
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
573 if (SYMBOLP (binding))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
574 {
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
575 /* If NOINHERIT, stop finding prefix definitions
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
576 after we pass a second occurrence of the `keymap' symbol. */
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
577 if (noinherit && EQ (binding, Qkeymap))
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
578 RETURN_UNGCPRO (Qnil);
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
579 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
580 else if (CONSP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
581 {
38888
bf8f70dc79f4 (access_keymap): If a binding of the form (GENERIC-CHAR
Gerd Moellmann <gerd@gnu.org>
parents: 37938
diff changeset
582 Lisp_Object key = XCAR (binding);
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
583
38888
bf8f70dc79f4 (access_keymap): If a binding of the form (GENERIC-CHAR
Gerd Moellmann <gerd@gnu.org>
parents: 37938
diff changeset
584 if (EQ (key, idx))
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
585 val = XCDR (binding);
93882
9eaa3ee184e9 (access_keymap): Remove the value 2 for t_ok which was used
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
586 else if (t_ok && EQ (key, Qt))
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
587 {
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
588 t_binding = XCDR (binding);
93882
9eaa3ee184e9 (access_keymap): Remove the value 2 for t_ok which was used
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
589 t_ok = 0;
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
590 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
591 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
592 else if (VECTORP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
593 {
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
594 if (NATNUMP (idx) && XFASTINT (idx) < ASIZE (binding))
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
595 val = AREF (binding, XFASTINT (idx));
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
596 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
597 else if (CHAR_TABLE_P (binding))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
598 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
599 /* Character codes with modifiers
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
600 are not included in a char-table.
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
601 All character codes without modifiers are included. */
41593
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
602 if (NATNUMP (idx) && (XFASTINT (idx) & CHAR_MODIFIER_MASK) == 0)
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
603 {
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
604 val = Faref (binding, idx);
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
605 /* `nil' has a special meaning for char-tables, so
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
606 we use something else to record an explicitly
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
607 unbound entry. */
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
608 if (NILP (val))
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
609 val = Qunbound;
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
610 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
611 }
1264
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
612
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
613 /* If we found a binding, clean it up and return it. */
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
614 if (!EQ (val, Qunbound))
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
615 {
41593
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
616 if (EQ (val, Qt))
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
617 /* A Qt binding is just like an explicit nil binding
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
618 (i.e. it shadows any parent binding but not bindings in
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
619 keymaps of lower precedence). */
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
620 val = Qnil;
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
621 val = get_keyelt (val, autoload);
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
622 if (KEYMAPP (val))
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
623 fix_submap_inheritance (map, idx, val);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
624 RETURN_UNGCPRO (val);
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
625 }
1264
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
626 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
628 UNGCPRO;
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
629 return get_keyelt (t_binding, autoload);
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
630 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
633 static void
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
634 map_keymap_item (fun, args, key, val, data)
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
635 map_keymap_function_t fun;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
636 Lisp_Object args, key, val;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
637 void *data;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
638 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
639 /* We should maybe try to detect bindings shadowed by previous
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
640 ones and things like that. */
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
641 if (EQ (val, Qt))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
642 val = Qnil;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
643 (*fun) (key, val, args, data);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
644 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
645
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
646 static void
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
647 map_keymap_char_table_item (args, key, val)
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
648 Lisp_Object args, key, val;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
649 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
650 if (!NILP (val))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
651 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
652 map_keymap_function_t fun = XSAVE_VALUE (XCAR (args))->pointer;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
653 args = XCDR (args);
100689
eca026eee0d7 (map_keymap_char_table_item): Make a copy of KEY if it is a
Andreas Schwab <schwab@suse.de>
parents: 99981
diff changeset
654 /* If the key is a range, make a copy since map_char_table modifies
eca026eee0d7 (map_keymap_char_table_item): Make a copy of KEY if it is a
Andreas Schwab <schwab@suse.de>
parents: 99981
diff changeset
655 it in place. */
eca026eee0d7 (map_keymap_char_table_item): Make a copy of KEY if it is a
Andreas Schwab <schwab@suse.de>
parents: 99981
diff changeset
656 if (CONSP (key))
eca026eee0d7 (map_keymap_char_table_item): Make a copy of KEY if it is a
Andreas Schwab <schwab@suse.de>
parents: 99981
diff changeset
657 key = Fcons (XCAR (key), XCDR (key));
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
658 map_keymap_item (fun, XCDR (args), key, val,
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
659 XSAVE_VALUE (XCAR (args))->pointer);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
660 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
661 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
662
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
663 /* Call FUN for every binding in MAP and stop at (and return) the parent.
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
664 FUN is called with 4 arguments: FUN (KEY, BINDING, ARGS, DATA). */
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
665 Lisp_Object
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
666 map_keymap_internal (Lisp_Object map,
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
667 map_keymap_function_t fun,
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
668 Lisp_Object args,
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
669 void *data)
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
670 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
671 struct gcpro gcpro1, gcpro2, gcpro3;
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
672 Lisp_Object tail
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
673 = (CONSP (map) && EQ (Qkeymap, XCAR (map))) ? XCDR (map) : map;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
674
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
675 GCPRO3 (map, args, tail);
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
676 for (; CONSP (tail) && !EQ (Qkeymap, XCAR (tail)); tail = XCDR (tail))
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
677 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
678 Lisp_Object binding = XCAR (tail);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
679
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
680 if (CONSP (binding))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
681 map_keymap_item (fun, args, XCAR (binding), XCDR (binding), data);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
682 else if (VECTORP (binding))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
683 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
684 /* Loop over the char values represented in the vector. */
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
685 int len = ASIZE (binding);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
686 int c;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
687 for (c = 0; c < len; c++)
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
688 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
689 Lisp_Object character;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
690 XSETFASTINT (character, c);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
691 map_keymap_item (fun, args, character, AREF (binding, c), data);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
692 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
693 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
694 else if (CHAR_TABLE_P (binding))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
695 {
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
696 map_char_table (map_keymap_char_table_item, Qnil, binding,
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
697 Fcons (make_save_value (fun, 0),
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
698 Fcons (make_save_value (data, 0),
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
699 args)));
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
700 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
701 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
702 UNGCPRO;
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
703 return tail;
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
704 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
705
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
706 static void
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
707 map_keymap_call (key, val, fun, dummy)
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
708 Lisp_Object key, val, fun;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
709 void *dummy;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
710 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
711 call2 (fun, key, val);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
712 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
713
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
714 /* Same as map_keymap_internal, but doesn't traverses parent keymaps as well.
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
715 A non-zero AUTOLOAD indicates that autoloaded keymaps should be loaded. */
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
716 void
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
717 map_keymap (map, fun, args, data, autoload)
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
718 map_keymap_function_t fun;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
719 Lisp_Object map, args;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
720 void *data;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
721 int autoload;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
722 {
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
723 struct gcpro gcpro1;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
724 GCPRO1 (args);
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
725 map = get_keymap (map, 1, autoload);
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
726 while (CONSP (map))
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
727 {
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
728 map = map_keymap_internal (map, fun, args, data);
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
729 map = get_keymap (map, 0, autoload);
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
730 }
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
731 UNGCPRO;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
732 }
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
733
93664
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
734 Lisp_Object Qkeymap_canonicalize;
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
735
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
736 /* Same as map_keymap, but does it right, properly eliminating duplicate
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
737 bindings due to inheritance. */
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
738 void
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
739 map_keymap_canonical (map, fun, args, data)
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
740 map_keymap_function_t fun;
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
741 Lisp_Object map, args;
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
742 void *data;
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
743 {
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
744 struct gcpro gcpro1;
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
745 GCPRO1 (args);
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
746 /* map_keymap_canonical may be used from redisplay (e.g. when building menus)
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
747 so be careful to ignore errors and to inhibit redisplay. */
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
748 map = safe_call1 (Qkeymap_canonicalize, map);
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
749 /* No need to use `map_keymap' here because canonical map has no parent. */
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
750 map_keymap_internal (map, fun, args, data);
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
751 UNGCPRO;
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
752 }
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
753
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
754 DEFUN ("map-keymap-internal", Fmap_keymap_internal, Smap_keymap_internal, 2, 2, 0,
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
755 doc: /* Call FUNCTION once for each event binding in KEYMAP.
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
756 FUNCTION is called with two arguments: the event that is bound, and
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
757 the definition it is bound to. The event may be a character range.
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
758 If KEYMAP has a parent, this function returns it without processing it. */)
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
759 (function, keymap)
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
760 Lisp_Object function, keymap;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
761 {
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
762 struct gcpro gcpro1;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
763 GCPRO1 (function);
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
764 keymap = get_keymap (keymap, 1, 1);
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
765 keymap = map_keymap_internal (keymap, map_keymap_call, function, NULL);
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
766 UNGCPRO;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
767 return keymap;
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
768 }
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
769
58271
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
770 DEFUN ("map-keymap", Fmap_keymap, Smap_keymap, 2, 3, 0,
68397
5b1791b98dc2 (Fmap_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 68264
diff changeset
771 doc: /* Call FUNCTION once for each event binding in KEYMAP.
68264
d25897b05660 (Fmap_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 67994
diff changeset
772 FUNCTION is called with two arguments: the event that is bound, and
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
773 the definition it is bound to. The event may be a character range.
68264
d25897b05660 (Fmap_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 67994
diff changeset
774
56635
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
775 If KEYMAP has a parent, the parent's bindings are included as well.
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
776 This works recursively: if the parent has itself a parent, then the
58271
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
777 grandparent's bindings are also included and so on.
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
778 usage: (map-keymap FUNCTION KEYMAP) */)
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
779 (function, keymap, sort_first)
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
780 Lisp_Object function, keymap, sort_first;
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
781 {
58271
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
782 if (! NILP (sort_first))
93204
9f83f0ec5257 * subr.el (map-keymap-sorted): Rename from map-keymap-internal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91670
diff changeset
783 return call2 (intern ("map-keymap-sorted"), function, keymap);
65456
d9638b932900 (Fdescribe_buffer_bindings): Reload `translate'
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
784
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
785 map_keymap (keymap, map_keymap_call, function, NULL, 1);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
786 return Qnil;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
787 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
788
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 /* Given OBJECT which was found in a slot in a keymap,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 trace indirect definitions to get the actual definition of that slot.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 An indirect definition is a list of the form
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792 (KEYMAP . INDEX), where KEYMAP is a keymap or a symbol defined as one
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
793 and INDEX is the object to look up in KEYMAP to yield the definition.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
795 Also if OBJECT has a menu string as the first element,
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
796 remove that. Also remove a menu help string as second element.
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
797
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
798 If AUTOLOAD is nonzero, load autoloadable keymaps
61421
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
799 that are referred to with indirection.
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
800
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
801 This can GC because menu_item_eval_property calls Feval. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 Lisp_Object
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
804 get_keyelt (object, autoload)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
805 Lisp_Object object;
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
806 int autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809 {
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
810 if (!(CONSP (object)))
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
811 /* This is really the value. */
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
812 return object;
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
813
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
814 /* If the keymap contents looks like (keymap ...) or (lambda ...)
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
815 then use itself. */
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
816 else if (EQ (XCAR (object), Qkeymap) || EQ (XCAR (object), Qlambda))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
817 return object;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
819 /* If the keymap contents looks like (menu-item name . DEFN)
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
820 or (menu-item name DEFN ...) then use DEFN.
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
821 This is a new format menu item. */
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
822 else if (EQ (XCAR (object), Qmenu_item))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
823 {
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
824 if (CONSP (XCDR (object)))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
825 {
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
826 Lisp_Object tem;
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
827
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
828 object = XCDR (XCDR (object));
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
829 tem = object;
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
830 if (CONSP (object))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
831 object = XCAR (object);
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
832
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
833 /* If there's a `:filter FILTER', apply FILTER to the
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
834 menu-item's definition to get the real definition to
34515
35d7808fe9f6 (get_keyelt): Only eval the filter if `autoload' is set.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34442
diff changeset
835 use. */
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
836 for (; CONSP (tem) && CONSP (XCDR (tem)); tem = XCDR (tem))
34515
35d7808fe9f6 (get_keyelt): Only eval the filter if `autoload' is set.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34442
diff changeset
837 if (EQ (XCAR (tem), QCfilter) && autoload)
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
838 {
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
839 Lisp_Object filter;
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
840 filter = XCAR (XCDR (tem));
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
841 filter = list2 (filter, list2 (Qquote, object));
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
842 object = menu_item_eval_property (filter);
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
843 break;
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
844 }
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
845 }
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
846 else
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
847 /* Invalid keymap. */
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
848 return object;
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
849 }
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
850
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
851 /* If the keymap contents looks like (STRING . DEFN), use DEFN.
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
852 Keymap alist elements like (CHAR MENUSTRING . DEFN)
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
853 will be used by HierarKey menus. */
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
854 else if (STRINGP (XCAR (object)))
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
855 {
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
856 object = XCDR (object);
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
857 /* Also remove a menu help string, if any,
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
858 following the menu item name. */
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
859 if (CONSP (object) && STRINGP (XCAR (object)))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
860 object = XCDR (object);
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
861 /* Also remove the sublist that caches key equivalences, if any. */
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
862 if (CONSP (object) && CONSP (XCAR (object)))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
863 {
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
864 Lisp_Object carcar;
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
865 carcar = XCAR (XCAR (object));
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
866 if (NILP (carcar) || VECTORP (carcar))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
867 object = XCDR (object);
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
868 }
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
869 }
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
870
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
871 /* If the contents are (KEYMAP . ELEMENT), go indirect. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872 else
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
873 {
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
874 struct gcpro gcpro1;
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
875 Lisp_Object map;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
876 GCPRO1 (object);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
877 map = get_keymap (Fcar_safe (object), 0, autoload);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
878 UNGCPRO;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
879 return (!CONSP (map) ? object /* Invalid keymap */
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
880 : access_keymap (map, Fcdr (object), 0, 0, autoload));
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
881 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
882 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
883 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
884
31232
5213900983ed (store_in_keymap): Add `static' to declaration.
Dave Love <fx@gnu.org>
parents: 31208
diff changeset
885 static Lisp_Object
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
886 store_in_keymap (keymap, idx, def)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
887 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
888 register Lisp_Object idx;
70242
90c1af0130a2 (store_in_keymap): Change `def' arg to not be `register'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 70083
diff changeset
889 Lisp_Object def;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 {
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
891 /* Flush any reverse-map cache. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
892 where_is_cache = Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
893 where_is_cache_keymaps = Qt;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
894
10367
e1c7a3f0c15f (store_in_keymap): Copy a cons only if car is a string.
Richard M. Stallman <rms@gnu.org>
parents: 10305
diff changeset
895 /* If we are preparing to dump, and DEF is a menu element
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
896 with a menu item indicator, copy it to ensure it is not pure. */
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
897 if (CONSP (def) && PURE_P (def)
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
898 && (EQ (XCAR (def), Qmenu_item) || STRINGP (XCAR (def))))
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
899 def = Fcons (XCAR (def), XCDR (def));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
900
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
901 if (!CONSP (keymap) || !EQ (XCAR (keymap), Qkeymap))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
902 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
903
89640
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
904 /* If idx is a cons, and the car part is a character, idx must be of
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
905 the form (FROM-CHAR . TO-CHAR). */
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
906 if (CONSP (idx) && CHARACTERP (XCAR (idx)))
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
907 CHECK_CHARACTER_CDR (idx);
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
908 else
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
909 /* If idx is a list (some sort of mouse click, perhaps?),
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
910 the index we want to use is the car of the list, which
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
911 ought to be a symbol. */
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
912 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
913
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
914 /* 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
915 be put in the canonical order. */
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
916 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
917 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
918 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
919 /* 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
920 with more than 24 bits of integer. */
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
921 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
922
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
923 /* 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
924 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
925 Lisp_Object tail;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
927 /* 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
928 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
929 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
930 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
931 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
932 front of the keymap. */
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
933 Lisp_Object insertion_point;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
934
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
935 insertion_point = keymap;
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
936 for (tail = XCDR (keymap); CONSP (tail); tail = XCDR (tail))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
938 Lisp_Object elt;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
939
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
940 elt = XCAR (tail);
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
941 if (VECTORP (elt))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
942 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
943 if (NATNUMP (idx) && XFASTINT (idx) < ASIZE (elt))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
944 {
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
945 CHECK_IMPURE (elt);
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
946 ASET (elt, XFASTINT (idx), def);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
947 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
948 }
89655
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
949 else if (CONSP (idx) && CHARACTERP (XCAR (idx)))
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
950 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
951 int from = XFASTINT (XCAR (idx));
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
952 int to = XFASTINT (XCDR (idx));
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
953
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
954 if (to >= ASIZE (elt))
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
955 to = ASIZE (elt) - 1;
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
956 for (; from <= to; from++)
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
957 ASET (elt, from, def);
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
958 if (to == XFASTINT (XCDR (idx)))
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
959 /* We have defined all keys in IDX. */
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
960 return def;
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
961 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
962 insertion_point = tail;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
963 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
964 else if (CHAR_TABLE_P (elt))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
965 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
966 /* Character codes with modifiers
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
967 are not included in a char-table.
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
968 All character codes without modifiers are included. */
41593
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
969 if (NATNUMP (idx) && !(XFASTINT (idx) & CHAR_MODIFIER_MASK))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
970 {
41593
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
971 Faset (elt, idx,
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
972 /* `nil' has a special meaning for char-tables, so
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
973 we use something else to record an explicitly
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
974 unbound entry. */
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
975 NILP (def) ? Qt : def);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
976 return def;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
977 }
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
978 else if (CONSP (idx) && CHARACTERP (XCAR (idx)))
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
979 {
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
980 Fset_char_table_range (elt, idx, NILP (def) ? Qt : def);
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
981 return def;
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
982 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
983 insertion_point = tail;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
984 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
985 else if (CONSP (elt))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
986 {
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
987 if (EQ (idx, XCAR (elt)))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
988 {
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
989 CHECK_IMPURE (elt);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39940
diff changeset
990 XSETCDR (elt, def);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
991 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
992 }
89655
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
993 else if (CONSP (idx) && CHARACTERP (XCAR (idx)))
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
994 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
995 int from = XFASTINT (XCAR (idx));
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
996 int to = XFASTINT (XCDR (idx));
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
997
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
998 if (from <= XFASTINT (XCAR (elt))
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
999 && to >= XFASTINT (XCAR (elt)))
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1000 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1001 XSETCDR (elt, def);
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1002 if (from == to)
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1003 return def;
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1004 }
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1005 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
1006 }
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1007 else if (EQ (elt, Qkeymap))
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1008 /* If we find a 'keymap' symbol in the spine of KEYMAP,
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1009 then we must have found the start of a second keymap
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1010 being used as the tail of KEYMAP, and a binding for IDX
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1011 should be inserted before it. */
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1012 goto keymap_end;
1441
929409595312 * keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents: 1388
diff changeset
1013
929409595312 * keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents: 1388
diff changeset
1014 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1016
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1017 keymap_end:
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1018 /* 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
1019 IDX. Let's add one. */
89655
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1020 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1021 Lisp_Object elt;
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1022
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1023 if (CONSP (idx) && CHARACTERP (XCAR (idx)))
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1024 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1025 /* IDX specifies a range of characters, and not all of them
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1026 were handled yet, which means this keymap doesn't have a
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1027 char-table. So, we insert a char-table now. */
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1028 elt = Fmake_char_table (Qkeymap, Qnil);
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1029 Fset_char_table_range (elt, idx, NILP (def) ? Qt : def);
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1030 }
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1031 else
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1032 elt = Fcons (idx, def);
90261
7beb78bc1f8e Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97
Miles Bader <miles@gnu.org>
parents: 90228 67994
diff changeset
1033 CHECK_IMPURE (insertion_point);
89655
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1034 XSETCDR (insertion_point, Fcons (elt, XCDR (insertion_point)));
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
1035 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1036 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1037
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1038 return def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1039 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1040
39837
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
1041 EXFUN (Fcopy_keymap, 1);
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
1042
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1043 Lisp_Object
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1044 copy_keymap_item (elt)
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1045 Lisp_Object elt;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1046 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1047 Lisp_Object res, tem;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1048
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1049 if (!CONSP (elt))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1050 return elt;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1051
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1052 res = tem = elt;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1053
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1054 /* Is this a new format menu item. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1055 if (EQ (XCAR (tem), Qmenu_item))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1056 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1057 /* Copy cell with menu-item marker. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1058 res = elt = Fcons (XCAR (tem), XCDR (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1059 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1060 if (CONSP (tem))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1061 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1062 /* Copy cell with menu-item name. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1063 XSETCDR (elt, Fcons (XCAR (tem), XCDR (tem)));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1064 elt = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1065 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1066 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1067 if (CONSP (tem))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1068 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1069 /* Copy cell with binding and if the binding is a keymap,
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1070 copy that. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1071 XSETCDR (elt, Fcons (XCAR (tem), XCDR (tem)));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1072 elt = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1073 tem = XCAR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1074 if (CONSP (tem) && EQ (XCAR (tem), Qkeymap))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1075 XSETCAR (elt, Fcopy_keymap (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1076 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1077 if (CONSP (tem) && CONSP (XCAR (tem)))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1078 /* Delete cache for key equivalences. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1079 XSETCDR (elt, XCDR (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1080 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1081 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1082 else
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1083 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1084 /* It may be an old fomat menu item.
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1085 Skip the optional menu string. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1086 if (STRINGP (XCAR (tem)))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1087 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1088 /* Copy the cell, since copy-alist didn't go this deep. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1089 res = elt = Fcons (XCAR (tem), XCDR (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1090 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1091 /* Also skip the optional menu help string. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1092 if (CONSP (tem) && STRINGP (XCAR (tem)))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1093 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1094 XSETCDR (elt, Fcons (XCAR (tem), XCDR (tem)));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1095 elt = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1096 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1097 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1098 /* There may also be a list that caches key equivalences.
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1099 Just delete it for the new keymap. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1100 if (CONSP (tem)
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1101 && CONSP (XCAR (tem))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1102 && (NILP (XCAR (XCAR (tem)))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1103 || VECTORP (XCAR (XCAR (tem)))))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1104 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1105 XSETCDR (elt, XCDR (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1106 tem = XCDR (tem);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1107 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1108 if (CONSP (tem) && EQ (XCAR (tem), Qkeymap))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1109 XSETCDR (elt, Fcopy_keymap (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1110 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1111 else if (EQ (XCAR (tem), Qkeymap))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1112 res = Fcopy_keymap (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1113 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1114 return res;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1115 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1116
49912
e9f8f5a9cef6 (copy_keymap_1): Make it static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49902
diff changeset
1117 static void
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1118 copy_keymap_1 (chartable, idx, elt)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1119 Lisp_Object chartable, idx, elt;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1120 {
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
1121 Fset_char_table_range (chartable, idx, copy_keymap_item (elt));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1122 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1123
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1124 DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1125 doc: /* Return a copy of the keymap KEYMAP.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1126 The copy starts out with the same definitions of KEYMAP,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1127 but changing either the copy or KEYMAP does not affect the other.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1128 Any key definitions that are subkeymaps are recursively copied.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1129 However, a key definition which is a symbol whose definition is a keymap
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1130 is not copied. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1131 (keymap)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1132 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1133 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1134 register Lisp_Object copy, tail;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1135 keymap = get_keymap (keymap, 1, 0);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1136 copy = tail = Fcons (Qkeymap, Qnil);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1137 keymap = XCDR (keymap); /* Skip the `keymap' symbol. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1138
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1139 while (CONSP (keymap) && !EQ (XCAR (keymap), Qkeymap))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1140 {
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1141 Lisp_Object elt = XCAR (keymap);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1142 if (CHAR_TABLE_P (elt))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1143 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1144 elt = Fcopy_sequence (elt);
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
1145 map_char_table (copy_keymap_1, Qnil, elt, elt);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1146 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1147 else if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1148 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1149 int i;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1150 elt = Fcopy_sequence (elt);
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1151 for (i = 0; i < ASIZE (elt); i++)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1152 ASET (elt, i, copy_keymap_item (AREF (elt, i)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1153 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1154 else if (CONSP (elt))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1155 elt = Fcons (XCAR (elt), copy_keymap_item (XCDR (elt)));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1156 XSETCDR (tail, Fcons (elt, Qnil));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1157 tail = XCDR (tail);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1158 keymap = XCDR (keymap);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1160 XSETCDR (tail, keymap);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1161 return copy;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1162 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1163
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1164 /* Simple Keymap mutators and accessors. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1165
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1166 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1167
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1168 DEFUN ("define-key", Fdefine_key, Sdefine_key, 3, 3, 0,
49902
7efa3eeb04ec (Fdefine_key): Clarification of formulation.
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49901
diff changeset
1169 doc: /* In KEYMAP, define key sequence KEY as DEF.
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1170 KEYMAP is a keymap.
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1171
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1172 KEY is a string or a vector of symbols and characters meaning a
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1173 sequence of keystrokes and events. Non-ASCII characters with codes
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1174 above 127 (such as ISO Latin-1) can be included if you use a vector.
46142
03d01403f6b7 (Fdefine_key): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 46133
diff changeset
1175 Using [t] for KEY creates a default definition, which applies to any
49868
466824c9db4a Typo in docstring for define-key.
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49757
diff changeset
1176 event type that has no other definition in this keymap.
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1177
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1178 DEF is anything that can be a key's definition:
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1179 nil (means key is undefined in this keymap),
55722
623ab06bb37b (Fdefine_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 55006
diff changeset
1180 a command (a Lisp function suitable for interactive calling),
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1181 a string (treated as a keyboard macro),
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1182 a keymap (to define a prefix key),
55722
623ab06bb37b (Fdefine_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 55006
diff changeset
1183 a symbol (when the key is looked up, the symbol will stand for its
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1184 function definition, which should at that time be one of the above,
55722
623ab06bb37b (Fdefine_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 55006
diff changeset
1185 or another symbol whose function definition is used, etc.),
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1186 a cons (STRING . DEFN), meaning that DEFN is the definition
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1187 (DEFN should be a valid definition in its own right),
74975
489131611785 (Fdefine_key): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 74574
diff changeset
1188 or a cons (MAP . CHAR), meaning use definition of CHAR in keymap MAP,
77422
7ecfd3e438e0 (Fdefine_key): Minor doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77367
diff changeset
1189 or an extended menu item definition.
7ecfd3e438e0 (Fdefine_key): Minor doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77367
diff changeset
1190 (See info node `(elisp)Extended Menu Items'.)
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1191
49901
71b3917cf40b (Fdefine_key): Doc fix.
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49868
diff changeset
1192 If KEYMAP is a sparse keymap with a binding for KEY, the existing
71b3917cf40b (Fdefine_key): Doc fix.
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49868
diff changeset
1193 binding is altered. If there is no binding for KEY, the new pair
71b3917cf40b (Fdefine_key): Doc fix.
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49868
diff changeset
1194 binding KEY to DEF is added at the front of KEYMAP. */)
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1195 (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
1196 Lisp_Object keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1197 Lisp_Object key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1198 Lisp_Object def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1199 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1200 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1201 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1202 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1203 int metized = 0;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1204 int meta_bit;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1205 int length;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1206 struct gcpro gcpro1, gcpro2, gcpro3;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1207
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1208 GCPRO3 (keymap, key, def);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1209 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210
71836
838fd2b04ce0 (Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.
Kim F. Storm <storm@cua.dk>
parents: 70554
diff changeset
1211 CHECK_VECTOR_OR_STRING (key);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1212
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1213 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1214 if (length == 0)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1215 RETURN_UNGCPRO (Qnil);
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1216
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
1217 if (SYMBOLP (def) && !EQ (Vdefine_key_rebound_commands, Qt))
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
1218 Vdefine_key_rebound_commands = Fcons (def, Vdefine_key_rebound_commands);
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
1219
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
1220 meta_bit = (VECTORP (key) || (STRINGP (key) && STRING_MULTIBYTE (key))
80869
f526513aec92 (Fdefine_key, Flookup_key): Only do the 0x80->meta_modifier
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77422
diff changeset
1221 ? meta_modifier : 0x80);
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1222
73152
645da5a91b56 (Fdefine_key): Yet another int/Lisp_Object mixup (YAILOM).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 73131
diff changeset
1223 if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, 0)))
72074
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1224 { /* DEF is apparently an XEmacs-style keyboard macro. */
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1225 Lisp_Object tmp = Fmake_vector (make_number (ASIZE (def)), Qnil);
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1226 int i = ASIZE (def);
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1227 while (--i >= 0)
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1228 {
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1229 Lisp_Object c = AREF (def, i);
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1230 if (CONSP (c) && lucid_event_type_list_p (c))
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1231 c = Fevent_convert_list (c);
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1232 ASET (tmp, i, c);
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1233 }
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1234 def = tmp;
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1235 }
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1236
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1237 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1238 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1239 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1240 c = Faref (key, make_number (idx));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1241
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1242 if (CONSP (c))
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1243 {
89626
e2d5f38e23b4 (Fdefine_key): Fix handling of Lucid style event type list.
Kenichi Handa <handa@m17n.org>
parents: 89551
diff changeset
1244 /* C may be a Lucid style event type list or a cons (FROM .
e2d5f38e23b4 (Fdefine_key): Fix handling of Lucid style event type list.
Kenichi Handa <handa@m17n.org>
parents: 89551
diff changeset
1245 TO) specifying a range of characters. */
e2d5f38e23b4 (Fdefine_key): Fix handling of Lucid style event type list.
Kenichi Handa <handa@m17n.org>
parents: 89551
diff changeset
1246 if (lucid_event_type_list_p (c))
e2d5f38e23b4 (Fdefine_key): Fix handling of Lucid style event type list.
Kenichi Handa <handa@m17n.org>
parents: 89551
diff changeset
1247 c = Fevent_convert_list (c);
e2d5f38e23b4 (Fdefine_key): Fix handling of Lucid style event type list.
Kenichi Handa <handa@m17n.org>
parents: 89551
diff changeset
1248 else if (CHARACTERP (XCAR (c)))
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
1249 CHECK_CHARACTER_CDR (c);
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1250 }
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
1251
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1252 if (SYMBOLP (c))
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1253 silly_event_symbol_error (c);
42378
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
1254
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1255 if (INTEGERP (c)
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1256 && (XINT (c) & meta_bit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1257 && !metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1258 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1259 c = meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1260 metized = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1261 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1262 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1263 {
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1264 if (INTEGERP (c))
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1265 XSETINT (c, XINT (c) & ~meta_bit);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1266
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1267 metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1268 idx++;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1269 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1270
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1271 if (!INTEGERP (c) && !SYMBOLP (c)
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1272 && (!CONSP (c)
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1273 /* If C is a range, it must be a leaf. */
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1274 || (INTEGERP (XCAR (c)) && idx != length)))
42378
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
1275 error ("Key sequence contains invalid event");
6473
76bb655df959 (Fdefine_key): Check for non-events in keyvector.
Karl Heuer <kwzh@gnu.org>
parents: 6457
diff changeset
1276
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1277 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
1278 RETURN_UNGCPRO (store_in_keymap (keymap, c, def));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1279
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1280 cmd = access_keymap (keymap, c, 0, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1281
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1282 /* If this key is undefined, make it a prefix. */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1283 if (NILP (cmd))
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1284 cmd = define_as_prefix (keymap, c);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1285
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1286 keymap = get_keymap (cmd, 0, 1);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1287 if (!CONSP (keymap))
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1288 /* We must use Fkey_description rather than just passing key to
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1289 error; key might be a vector, not a string. */
70293
3f5619e77411 (Fdefine_key): Improve error message when KEY begins with a non-prefix key.
Richard M. Stallman <rms@gnu.org>
parents: 70242
diff changeset
1290 error ("Key sequence %s starts with non-prefix key %s",
3f5619e77411 (Fdefine_key): Improve error message when KEY begins with a non-prefix key.
Richard M. Stallman <rms@gnu.org>
parents: 70242
diff changeset
1291 SDATA (Fkey_description (key, Qnil)),
3f5619e77411 (Fdefine_key): Improve error message when KEY begins with a non-prefix key.
Richard M. Stallman <rms@gnu.org>
parents: 70242
diff changeset
1292 SDATA (Fkey_description (Fsubstring (key, make_number (0),
3f5619e77411 (Fdefine_key): Improve error message when KEY begins with a non-prefix key.
Richard M. Stallman <rms@gnu.org>
parents: 70242
diff changeset
1293 make_number (idx)),
3f5619e77411 (Fdefine_key): Improve error message when KEY begins with a non-prefix key.
Richard M. Stallman <rms@gnu.org>
parents: 70242
diff changeset
1294 Qnil)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1295 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1296 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1297
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1298 /* This function may GC (it calls Fkey_binding). */
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1299
76887
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1300 DEFUN ("command-remapping", Fcommand_remapping, Scommand_remapping, 1, 3, 0,
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1301 doc: /* Return the remapping for command COMMAND.
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1302 Returns nil if COMMAND is not remapped (or not a symbol).
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1303
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1304 If the optional argument POSITION is non-nil, it specifies a mouse
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1305 position as returned by `event-start' and `event-end', and the
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1306 remapping occurs in the keymaps associated with it. It can also be a
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1307 number or marker, in which case the keymap properties at the specified
76887
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1308 buffer position instead of point are used. The KEYMAPS argument is
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1309 ignored if POSITION is non-nil.
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1310
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1311 If the optional argument KEYMAPS is non-nil, it should be a list of
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1312 keymaps to search for command remapping. Otherwise, search for the
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1313 remapping in all currently active keymaps. */)
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1314 (command, position, keymaps)
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1315 Lisp_Object command, position, keymaps;
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1316 {
49720
e4fcec69ba69 (Fremap_command): Return nil if arg is not a symbol.
Kim F. Storm <storm@cua.dk>
parents: 49059
diff changeset
1317 if (!SYMBOLP (command))
e4fcec69ba69 (Fremap_command): Return nil if arg is not a symbol.
Kim F. Storm <storm@cua.dk>
parents: 49059
diff changeset
1318 return Qnil;
e4fcec69ba69 (Fremap_command): Return nil if arg is not a symbol.
Kim F. Storm <storm@cua.dk>
parents: 49059
diff changeset
1319
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
1320 ASET (command_remapping_vector, 1, command);
76887
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1321
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1322 if (NILP (keymaps))
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1323 return Fkey_binding (command_remapping_vector, Qnil, Qt, position);
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1324 else
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1325 {
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1326 Lisp_Object maps, binding;
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1327
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
1328 for (maps = keymaps; CONSP (maps); maps = XCDR (maps))
76887
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1329 {
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
1330 binding = Flookup_key (XCAR (maps), command_remapping_vector, Qnil);
76887
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1331 if (!NILP (binding) && !INTEGERP (binding))
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1332 return binding;
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1333 }
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1334 return Qnil;
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1335 }
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1336 }
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1337
42206
0f4506820432 Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 41593
diff changeset
1338 /* Value is number if KEY is too long; nil if valid but has no definition. */
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1339 /* GC is possible in this function if it autoloads a keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1341 DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1342 doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition.
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1343 A value of nil means undefined. See doc of `define-key'
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1344 for kinds of definitions.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1345
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1346 A number as value means KEY is "too long";
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1347 that is, characters or symbols in it except for the last one
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1348 fail to be a valid sequence of prefix characters in KEYMAP.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1349 The number is how many characters at the front of KEY
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
1350 it takes to reach a non-prefix key.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1351
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1352 Normally, `lookup-key' ignores bindings for t, which act as default
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1353 bindings, used when nothing else in the keymap applies; this makes it
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1354 usable as a general function for probing keymaps. However, if the
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1355 third optional argument ACCEPT-DEFAULT is non-nil, `lookup-key' will
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1356 recognize the default bindings, just as `read-key-sequence' does. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1357 (keymap, key, accept_default)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1358 Lisp_Object keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1359 Lisp_Object key;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1360 Lisp_Object accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1361 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1362 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1363 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1364 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1365 int length;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1366 int t_ok = !NILP (accept_default);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1367 struct gcpro gcpro1, gcpro2;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1368
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1369 GCPRO2 (keymap, key);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1370 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1371
71836
838fd2b04ce0 (Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.
Kim F. Storm <storm@cua.dk>
parents: 70554
diff changeset
1372 CHECK_VECTOR_OR_STRING (key);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1373
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1374 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1375 if (length == 0)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1376 RETURN_UNGCPRO (keymap);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1377
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1378 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1379 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1380 {
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1381 c = Faref (key, make_number (idx++));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1382
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
1383 if (CONSP (c) && lucid_event_type_list_p (c))
12151
43b030e896eb (Flookup_key, Fdefine_key): Use Fevent_convert_list.
Karl Heuer <kwzh@gnu.org>
parents: 11973
diff changeset
1384 c = Fevent_convert_list (c);
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
1385
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1386 /* Turn the 8th bit of string chars into a meta modifier. */
80871
c49e1e480880 (Flookup_key): Fix typo in last change.
Andreas Schwab <schwab@suse.de>
parents: 80869
diff changeset
1387 if (STRINGP (key) && XINT (c) & 0x80 && !STRING_MULTIBYTE (key))
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1388 XSETINT (c, (XINT (c) | meta_modifier) & ~0x80);
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1389
43504
20832766c3e1 (Flookup_key): Fixed problem in 2001-12-28 patch:
Kim F. Storm <storm@cua.dk>
parents: 43494
diff changeset
1390 /* Allow string since binding for `menu-bar-select-buffer'
20832766c3e1 (Flookup_key): Fixed problem in 2001-12-28 patch:
Kim F. Storm <storm@cua.dk>
parents: 43494
diff changeset
1391 includes the buffer name in the key sequence. */
20832766c3e1 (Flookup_key): Fixed problem in 2001-12-28 patch:
Kim F. Storm <storm@cua.dk>
parents: 43494
diff changeset
1392 if (!INTEGERP (c) && !SYMBOLP (c) && !CONSP (c) && !STRINGP (c))
42378
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
1393 error ("Key sequence contains invalid event");
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
1394
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1395 cmd = access_keymap (keymap, c, t_ok, 0, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1396 if (idx == length)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1397 RETURN_UNGCPRO (cmd);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1398
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1399 keymap = get_keymap (cmd, 0, 1);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1400 if (!CONSP (keymap))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1401 RETURN_UNGCPRO (make_number (idx));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1402
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1403 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1406
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1407 /* 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
1408 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
1409 Return the keymap. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1410
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1411 static Lisp_Object
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1412 define_as_prefix (keymap, c)
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1413 Lisp_Object keymap, c;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1414 {
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1415 Lisp_Object cmd;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1416
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1417 cmd = Fmake_sparse_keymap (Qnil);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1418 /* 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
1419 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
1420 inherit the other prefix definition. */
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1421 cmd = nconc2 (cmd, access_keymap (keymap, c, 0, 0, 0));
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1422 store_in_keymap (keymap, c, cmd);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1423
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1424 return cmd;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1425 }
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1426
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1427 /* 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
1428
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 append_key (key_sequence, key)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1431 Lisp_Object key_sequence, key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1433 Lisp_Object args[2];
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1435 args[0] = key_sequence;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1436
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1437 args[1] = Fcons (key, Qnil);
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1438 return Fvconcat (2, args);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1439 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1440
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1441 /* Given a event type C which is a symbol,
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1442 signal an error if is a mistake such as RET or M-RET or C-DEL, etc. */
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1443
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1444 static void
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1445 silly_event_symbol_error (c)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1446 Lisp_Object c;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1447 {
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1448 Lisp_Object parsed, base, name, assoc;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1449 int modifiers;
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1450
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1451 parsed = parse_modifiers (c);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1452 modifiers = (int) XUINT (XCAR (XCDR (parsed)));
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1453 base = XCAR (parsed);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1454 name = Fsymbol_name (base);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1455 /* This alist includes elements such as ("RET" . "\\r"). */
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1456 assoc = Fassoc (name, exclude_keys);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1457
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1458 if (! NILP (assoc))
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1459 {
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1460 char new_mods[sizeof ("\\A-\\C-\\H-\\M-\\S-\\s-")];
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1461 char *p = new_mods;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1462 Lisp_Object keystring;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1463 if (modifiers & alt_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1464 { *p++ = '\\'; *p++ = 'A'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1465 if (modifiers & ctrl_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1466 { *p++ = '\\'; *p++ = 'C'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1467 if (modifiers & hyper_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1468 { *p++ = '\\'; *p++ = 'H'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1469 if (modifiers & meta_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1470 { *p++ = '\\'; *p++ = 'M'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1471 if (modifiers & shift_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1472 { *p++ = '\\'; *p++ = 'S'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1473 if (modifiers & super_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1474 { *p++ = '\\'; *p++ = 's'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1475 *p = 0;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1476
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1477 c = reorder_modifiers (c);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1478 keystring = concat2 (build_string (new_mods), XCDR (assoc));
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1479
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1480 error ((modifiers & ~meta_modifier
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1481 ? "To bind the key %s, use [?%s], not [%s]"
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1482 : "To bind the key %s, use \"%s\", not [%s]"),
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
1483 SDATA (SYMBOL_NAME (c)), SDATA (keystring),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
1484 SDATA (SYMBOL_NAME (c)));
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1485 }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1486 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1487
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1488 /* Global, local, and minor mode keymap stuff. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1489
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1490 /* We can't put these variables inside current_minor_maps, since under
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1491 some systems, static gets macro-defined to be the empty string.
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1492 Ickypoo. */
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1493 static Lisp_Object *cmm_modes = NULL, *cmm_maps = NULL;
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1494 static int cmm_size = 0;
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1495
76710
13738aa5cbd1 Fix a comment before `current_minor_maps'.
Eli Zaretskii <eliz@gnu.org>
parents: 76415
diff changeset
1496 /* Store a pointer to an array of the currently active minor modes in
13738aa5cbd1 Fix a comment before `current_minor_maps'.
Eli Zaretskii <eliz@gnu.org>
parents: 76415
diff changeset
1497 *modeptr, a pointer to an array of the keymaps of the currently
13738aa5cbd1 Fix a comment before `current_minor_maps'.
Eli Zaretskii <eliz@gnu.org>
parents: 76415
diff changeset
1498 active minor modes in *mapptr, and return the number of maps
13738aa5cbd1 Fix a comment before `current_minor_maps'.
Eli Zaretskii <eliz@gnu.org>
parents: 76415
diff changeset
1499 *mapptr contains.
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1500
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1501 This function always returns a pointer to the same buffer, and may
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1502 free or reallocate it, so if you want to keep it for a long time or
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1503 hand it out to lisp code, copy it. This procedure will be called
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1504 for every key sequence read, so the nice lispy approach (return a
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1505 new assoclist, list, what have you) for each invocation would
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1506 result in a lot of consing over time.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1507
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1508 If we used xrealloc/xmalloc and ran out of memory, they would throw
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1509 back to the command loop, which would try to read a key sequence,
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1510 which would call this function again, resulting in an infinite
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1511 loop. Instead, we'll use realloc/malloc and silently truncate the
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1512 list, let the key sequence be read, and hope some other piece of
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1513 code signals the error. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1514 int
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1515 current_minor_maps (modeptr, mapptr)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1516 Lisp_Object **modeptr, **mapptr;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1517 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1518 int i = 0;
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1519 int list_number = 0;
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1520 Lisp_Object alist, assoc, var, val;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1521 Lisp_Object emulation_alists;
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1522 Lisp_Object lists[2];
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1523
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1524 emulation_alists = Vemulation_mode_map_alists;
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1525 lists[0] = Vminor_mode_overriding_map_alist;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1526 lists[1] = Vminor_mode_map_alist;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1527
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1528 for (list_number = 0; list_number < 2; list_number++)
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1529 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1530 if (CONSP (emulation_alists))
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1531 {
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1532 alist = XCAR (emulation_alists);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1533 emulation_alists = XCDR (emulation_alists);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1534 if (SYMBOLP (alist))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1535 alist = find_symbol_value (alist);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1536 list_number = -1;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1537 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1538 else
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1539 alist = lists[list_number];
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1540
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1541 for ( ; CONSP (alist); alist = XCDR (alist))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1542 if ((assoc = XCAR (alist), CONSP (assoc))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1543 && (var = XCAR (assoc), SYMBOLP (var))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1544 && (val = find_symbol_value (var), !EQ (val, Qunbound))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1545 && !NILP (val))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1546 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1547 Lisp_Object temp;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1548
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1549 /* If a variable has an entry in Vminor_mode_overriding_map_alist,
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1550 and also an entry in Vminor_mode_map_alist,
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1551 ignore the latter. */
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1552 if (list_number == 1)
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1553 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1554 val = assq_no_quit (var, lists[0]);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1555 if (!NILP (val))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1556 continue;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1557 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1558
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1559 if (i >= cmm_size)
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1560 {
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1561 int newsize, allocsize;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1562 Lisp_Object *newmodes, *newmaps;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1563
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1564 newsize = cmm_size == 0 ? 30 : cmm_size * 2;
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1565 allocsize = newsize * sizeof *newmodes;
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1566
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1567 /* Use malloc here. See the comment above this function.
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1568 Avoid realloc here; it causes spurious traps on GNU/Linux [KFS] */
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1569 BLOCK_INPUT;
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1570 newmodes = (Lisp_Object *) malloc (allocsize);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1571 if (newmodes)
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1572 {
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1573 if (cmm_modes)
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1574 {
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1575 bcopy (cmm_modes, newmodes, cmm_size * sizeof cmm_modes[0]);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1576 free (cmm_modes);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1577 }
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1578 cmm_modes = newmodes;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1579 }
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1580
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1581 newmaps = (Lisp_Object *) malloc (allocsize);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1582 if (newmaps)
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1583 {
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1584 if (cmm_maps)
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1585 {
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1586 bcopy (cmm_maps, newmaps, cmm_size * sizeof cmm_maps[0]);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1587 free (cmm_maps);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1588 }
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1589 cmm_maps = newmaps;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1590 }
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1591 UNBLOCK_INPUT;
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1592
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1593 if (newmodes == NULL || newmaps == NULL)
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1594 break;
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1595 cmm_size = newsize;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1596 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1597
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1598 /* Get the keymap definition--or nil if it is not defined. */
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
1599 temp = Findirect_function (XCDR (assoc), Qt);
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1600 if (!NILP (temp))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1601 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1602 cmm_modes[i] = var;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1603 cmm_maps [i] = temp;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1604 i++;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1605 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1606 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1607 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1608
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1609 if (modeptr) *modeptr = cmm_modes;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1610 if (mapptr) *mapptr = cmm_maps;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1611 return i;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1612 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1613
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1614 DEFUN ("current-active-maps", Fcurrent_active_maps, Scurrent_active_maps,
81609
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1615 0, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1616 doc: /* Return a list of the currently active keymaps.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1617 OLP if non-nil indicates that we should obey `overriding-local-map' and
81609
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1618 `overriding-terminal-local-map'. POSITION can specify a click position
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1619 like in the respective argument of `key-binding'. */)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1620 (olp, position)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1621 Lisp_Object olp, position;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1622 {
81609
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1623 int count = SPECPDL_INDEX ();
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1624
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1625 Lisp_Object keymaps;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1626
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1627 /* If a mouse click position is given, our variables are based on
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1628 the buffer clicked on, not the current buffer. So we may have to
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1629 switch the buffer here. */
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1630
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1631 if (CONSP (position))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1632 {
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1633 Lisp_Object window;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1634
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1635 window = POSN_WINDOW (position);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1636
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1637 if (WINDOWP (window)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1638 && BUFFERP (XWINDOW (window)->buffer)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1639 && XBUFFER (XWINDOW (window)->buffer) != current_buffer)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1640 {
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1641 /* Arrange to go back to the original buffer once we're done
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1642 processing the key sequence. We don't use
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1643 save_excursion_{save,restore} here, in analogy to
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1644 `read-key-sequence' to avoid saving point. Maybe this
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1645 would not be a problem here, but it is easier to keep
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1646 things the same.
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1647 */
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1648
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1649 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1650
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1651 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1652 }
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1653 }
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1654
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1655 keymaps = Fcons (current_global_map, Qnil);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1656
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1657 if (!NILP (olp))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1658 {
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1659 if (!NILP (current_kboard->Voverriding_terminal_local_map))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1660 keymaps = Fcons (current_kboard->Voverriding_terminal_local_map, keymaps);
59522
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1661 /* The doc said that overriding-terminal-local-map should
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1662 override overriding-local-map. The code used them both,
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1663 but it seems clearer to use just one. rms, jan 2005. */
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1664 else if (!NILP (Voverriding_local_map))
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1665 keymaps = Fcons (Voverriding_local_map, keymaps);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1666 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1667 if (NILP (XCDR (keymaps)))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1668 {
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1669 Lisp_Object *maps;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1670 int nmaps, i;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1671
81609
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1672 Lisp_Object keymap, local_map;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1673 EMACS_INT pt;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1674
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1675 pt = INTEGERP (position) ? XINT (position)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1676 : MARKERP (position) ? marker_position (position)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1677 : PT;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1678
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1679 /* Get the buffer local maps, possibly overriden by text or
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1680 overlay properties */
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1681
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1682 local_map = get_local_map (pt, current_buffer, Qlocal_map);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1683 keymap = get_local_map (pt, current_buffer, Qkeymap);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1684
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1685 if (CONSP (position))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1686 {
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1687 Lisp_Object string;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1688
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1689 /* For a mouse click, get the local text-property keymap
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1690 of the place clicked on, rather than point. */
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1691
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1692 if (POSN_INBUFFER_P (position))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1693 {
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1694 Lisp_Object pos;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1695
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1696 pos = POSN_BUFFER_POSN (position);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1697 if (INTEGERP (pos)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1698 && XINT (pos) >= BEG && XINT (pos) <= Z)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1699 {
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1700 local_map = get_local_map (XINT (pos),
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1701 current_buffer, Qlocal_map);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1702
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1703 keymap = get_local_map (XINT (pos),
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1704 current_buffer, Qkeymap);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1705 }
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1706 }
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1707
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1708 /* If on a mode line string with a local keymap,
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1709 or for a click on a string, i.e. overlay string or a
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1710 string displayed via the `display' property,
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1711 consider `local-map' and `keymap' properties of
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1712 that string. */
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1713
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1714 if (string = POSN_STRING (position),
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1715 (CONSP (string) && STRINGP (XCAR (string))))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1716 {
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1717 Lisp_Object pos, map;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1718
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1719 pos = XCDR (string);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1720 string = XCAR (string);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1721 if (INTEGERP (pos)
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1722 && XINT (pos) >= 0
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1723 && XINT (pos) < SCHARS (string))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1724 {
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1725 map = Fget_text_property (pos, Qlocal_map, string);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1726 if (!NILP (map))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1727 local_map = map;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1728
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1729 map = Fget_text_property (pos, Qkeymap, string);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1730 if (!NILP (map))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1731 keymap = map;
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1732 }
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1733 }
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1734
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1735 }
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1736
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1737 if (!NILP (local_map))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1738 keymaps = Fcons (local_map, keymaps);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1739
59522
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1740 /* Now put all the minor mode keymaps on the list. */
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1741 nmaps = current_minor_maps (0, &maps);
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1742
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1743 for (i = --nmaps; i >= 0; i--)
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1744 if (!NILP (maps[i]))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1745 keymaps = Fcons (maps[i], keymaps);
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1746
81609
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1747 if (!NILP (keymap))
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1748 keymaps = Fcons (keymap, keymaps);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1749 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1750
81609
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1751 unbind_to (count, Qnil);
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
1752
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1753 return keymaps;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1754 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1755
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1756 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1757
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1758 DEFUN ("key-binding", Fkey_binding, Skey_binding, 1, 4, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1759 doc: /* Return the binding for command KEY in current keymaps.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1760 KEY is a string or vector, a sequence of keystrokes.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1761 The binding is probably a symbol with a function definition.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1762
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1763 Normally, `key-binding' ignores bindings for t, which act as default
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1764 bindings, used when nothing else in the keymap applies; this makes it
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1765 usable as a general function for probing keymaps. However, if the
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1766 optional second argument ACCEPT-DEFAULT is non-nil, `key-binding' does
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1767 recognize the default bindings, just as `read-key-sequence' does.
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1768
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1769 Like the normal command loop, `key-binding' will remap the command
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1770 resulting from looking up KEY by looking up the command in the
46310
70bccd2fee9f (Fkey_binding): Fix typo.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 46293
diff changeset
1771 current keymaps. However, if the optional third argument NO-REMAP
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1772 is non-nil, `key-binding' returns the unmapped command.
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1773
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1774 If KEY is a key sequence initiated with the mouse, the used keymaps
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1775 will depend on the clicked mouse position with regard to the buffer
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1776 and possible local keymaps on strings.
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1777
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1778 If the optional argument POSITION is non-nil, it specifies a mouse
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1779 position as returned by `event-start' and `event-end', and the lookup
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1780 occurs in the keymaps associated with it instead of KEY. It can also
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1781 be a number or marker, in which case the keymap properties at the
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1782 specified buffer position instead of point are used.
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1783 */)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1784 (key, accept_default, no_remap, position)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1785 Lisp_Object key, accept_default, no_remap, position;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1786 {
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1787 Lisp_Object *maps, value;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1788 int nmaps, i;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1789 struct gcpro gcpro1, gcpro2;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1790 int count = SPECPDL_INDEX ();
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1791
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1792 GCPRO2 (key, position);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1793
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1794 if (NILP (position) && VECTORP (key))
72795
64e86769392f * keymap.c (Fkey_binding): Check for local keymap for mouse click
Chong Yidong <cyd@stupidchicken.com>
parents: 72074
diff changeset
1795 {
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1796 Lisp_Object event
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1797 /* mouse events may have a symbolic prefix indicating the
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1798 scrollbar or mode line */
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1799 = AREF (key, SYMBOLP (AREF (key, 0)) && ASIZE (key) > 1 ? 1 : 0);
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1800
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1801 /* We are not interested in locations without event data */
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1802
76269
54d760abd1c5 *** empty log message ***
David Kastrup <dak@gnu.org>
parents: 75393
diff changeset
1803 if (EVENT_HAS_PARAMETERS (event) && CONSP (XCDR (event)))
73350
1a3368a80879 * keymap.c (Fkey_binding): Check Lisp_Object types before doing
Chong Yidong <cyd@stupidchicken.com>
parents: 73152
diff changeset
1804 {
1a3368a80879 * keymap.c (Fkey_binding): Check Lisp_Object types before doing
Chong Yidong <cyd@stupidchicken.com>
parents: 73152
diff changeset
1805 Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
76269
54d760abd1c5 *** empty log message ***
David Kastrup <dak@gnu.org>
parents: 75393
diff changeset
1806 if (EQ (kind, Qmouse_click))
73350
1a3368a80879 * keymap.c (Fkey_binding): Check Lisp_Object types before doing
Chong Yidong <cyd@stupidchicken.com>
parents: 73152
diff changeset
1807 position = EVENT_START (event);
1a3368a80879 * keymap.c (Fkey_binding): Check Lisp_Object types before doing
Chong Yidong <cyd@stupidchicken.com>
parents: 73152
diff changeset
1808 }
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1809 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1810
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1811 /* Key sequences beginning with mouse clicks
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1812 are read using the keymaps of the buffer clicked on, not
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1813 the current buffer. So we may have to switch the buffer
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1814 here. */
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1815
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1816 if (CONSP (position))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1817 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1818 Lisp_Object window;
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1819
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1820 window = POSN_WINDOW (position);
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1821
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1822 if (WINDOWP (window)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1823 && BUFFERP (XWINDOW (window)->buffer)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1824 && XBUFFER (XWINDOW (window)->buffer) != current_buffer)
72795
64e86769392f * keymap.c (Fkey_binding): Check for local keymap for mouse click
Chong Yidong <cyd@stupidchicken.com>
parents: 72074
diff changeset
1825 {
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1826 /* Arrange to go back to the original buffer once we're done
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1827 processing the key sequence. We don't use
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1828 save_excursion_{save,restore} here, in analogy to
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1829 `read-key-sequence' to avoid saving point. Maybe this
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1830 would not be a problem here, but it is easier to keep
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1831 things the same.
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1832 */
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1833
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1834 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1835
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1836 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
72795
64e86769392f * keymap.c (Fkey_binding): Check for local keymap for mouse click
Chong Yidong <cyd@stupidchicken.com>
parents: 72074
diff changeset
1837 }
64e86769392f * keymap.c (Fkey_binding): Check for local keymap for mouse click
Chong Yidong <cyd@stupidchicken.com>
parents: 72074
diff changeset
1838 }
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1839
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1840 if (! NILP (current_kboard->Voverriding_terminal_local_map))
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1841 {
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1842 value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1843 key, accept_default);
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1844 if (! NILP (value) && !INTEGERP (value))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1845 goto done;
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1846 }
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1847 else if (! NILP (Voverriding_local_map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1848 {
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1849 value = Flookup_key (Voverriding_local_map, key, accept_default);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1850 if (! NILP (value) && !INTEGERP (value))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1851 goto done;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1852 }
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1853 else
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1854 {
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1855 Lisp_Object keymap, local_map;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1856 EMACS_INT pt;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1857
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1858 pt = INTEGERP (position) ? XINT (position)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1859 : MARKERP (position) ? marker_position (position)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1860 : PT;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1861
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1862 local_map = get_local_map (pt, current_buffer, Qlocal_map);
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1863 keymap = get_local_map (pt, current_buffer, Qkeymap);
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1864
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1865 if (CONSP (position))
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1866 {
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1867 Lisp_Object string;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1868
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1869 /* For a mouse click, get the local text-property keymap
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1870 of the place clicked on, rather than point. */
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1871
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1872 if (POSN_INBUFFER_P (position))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1873 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1874 Lisp_Object pos;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1875
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1876 pos = POSN_BUFFER_POSN (position);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1877 if (INTEGERP (pos)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1878 && XINT (pos) >= BEG && XINT (pos) <= Z)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1879 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1880 local_map = get_local_map (XINT (pos),
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1881 current_buffer, Qlocal_map);
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1882
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1883 keymap = get_local_map (XINT (pos),
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1884 current_buffer, Qkeymap);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1885 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1886 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1887
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1888 /* If on a mode line string with a local keymap,
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1889 or for a click on a string, i.e. overlay string or a
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1890 string displayed via the `display' property,
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1891 consider `local-map' and `keymap' properties of
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1892 that string. */
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1893
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1894 if (string = POSN_STRING (position),
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1895 (CONSP (string) && STRINGP (XCAR (string))))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1896 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1897 Lisp_Object pos, map;
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1898
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1899 pos = XCDR (string);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1900 string = XCAR (string);
73350
1a3368a80879 * keymap.c (Fkey_binding): Check Lisp_Object types before doing
Chong Yidong <cyd@stupidchicken.com>
parents: 73152
diff changeset
1901 if (INTEGERP (pos)
1a3368a80879 * keymap.c (Fkey_binding): Check Lisp_Object types before doing
Chong Yidong <cyd@stupidchicken.com>
parents: 73152
diff changeset
1902 && XINT (pos) >= 0
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1903 && XINT (pos) < SCHARS (string))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1904 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1905 map = Fget_text_property (pos, Qlocal_map, string);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1906 if (!NILP (map))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1907 local_map = map;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1908
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1909 map = Fget_text_property (pos, Qkeymap, string);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1910 if (!NILP (map))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1911 keymap = map;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1912 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1913 }
74574
3c809b430d91 (Flookup_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73350
diff changeset
1914
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1915 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1916
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1917 if (! NILP (keymap))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1918 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1919 value = Flookup_key (keymap, key, accept_default);
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1920 if (! NILP (value) && !INTEGERP (value))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1921 goto done;
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1922 }
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1923
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1924 nmaps = current_minor_maps (0, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1925 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1926 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1927
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1928 for (i = 0; i < nmaps; i++)
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1929 if (! NILP (maps[i]))
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1930 {
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1931 value = Flookup_key (maps[i], key, accept_default);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1932 if (! NILP (value) && !INTEGERP (value))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1933 goto done;
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1934 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1935
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1936 if (! NILP (local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1937 {
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1938 value = Flookup_key (local_map, key, accept_default);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1939 if (! NILP (value) && !INTEGERP (value))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1940 goto done;
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1941 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1942 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1943
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1944 value = Flookup_key (current_global_map, key, accept_default);
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1945
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1946 done:
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1947 unbind_to (count, Qnil);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1948
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1949 UNGCPRO;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1950 if (NILP (value) || INTEGERP (value))
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1951 return Qnil;
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1952
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1953 /* If the result of the ordinary keymap lookup is an interactive
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1954 command, look for a key binding (ie. remapping) for that command. */
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1955
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1956 if (NILP (no_remap) && SYMBOLP (value))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1957 {
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1958 Lisp_Object value1;
76887
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
1959 if (value1 = Fcommand_remapping (value, position, Qnil), !NILP (value1))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1960 value = value1;
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1961 }
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1962
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1963 return value;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1964 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1965
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1966 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1967
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1968 DEFUN ("local-key-binding", Flocal_key_binding, Slocal_key_binding, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1969 doc: /* Return the binding for command KEYS in current local keymap only.
56618
166ae6765a44 (Flocal_key_binding, Fglobal_key_binding)
Luc Teirlinck <teirllm@auburn.edu>
parents: 56574
diff changeset
1970 KEYS is a string or vector, a sequence of keystrokes.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1971 The binding is probably a symbol with a function definition.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1972
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1973 If optional argument ACCEPT-DEFAULT is non-nil, recognize default
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1974 bindings; see the description of `lookup-key' for more details about this. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1975 (keys, accept_default)
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1976 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1977 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1978 register Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1979 map = current_buffer->keymap;
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1980 if (NILP (map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1981 return Qnil;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1982 return Flookup_key (map, keys, accept_default);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1983 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1984
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1985 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1986
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1987 DEFUN ("global-key-binding", Fglobal_key_binding, Sglobal_key_binding, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1988 doc: /* Return the binding for command KEYS in current global keymap only.
56618
166ae6765a44 (Flocal_key_binding, Fglobal_key_binding)
Luc Teirlinck <teirllm@auburn.edu>
parents: 56574
diff changeset
1989 KEYS is a string or vector, a sequence of keystrokes.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1990 The binding is probably a symbol with a function definition.
55913
c663e2e97168 (Fdescribe_vector): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 55722
diff changeset
1991 This function's return values are the same as those of `lookup-key'
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1992 \(which see).
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1993
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1994 If optional argument ACCEPT-DEFAULT is non-nil, recognize default
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1995 bindings; see the description of `lookup-key' for more details about this. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1996 (keys, accept_default)
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1997 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1998 {
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1999 return Flookup_key (current_global_map, keys, accept_default);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2000 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2001
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2002 /* GC is possible in this function if it autoloads a keymap. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2003
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
2004 DEFUN ("minor-mode-key-binding", Fminor_mode_key_binding, Sminor_mode_key_binding, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2005 doc: /* Find the visible minor mode bindings of KEY.
64470
f9c745c0d949 (Fminor_mode_key_binding): Delete duplicate words.
Juri Linkov <juri@jurta.org>
parents: 64084
diff changeset
2006 Return an alist of pairs (MODENAME . BINDING), where MODENAME is
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2007 the symbol which names the minor mode binding KEY, and BINDING is
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2008 KEY's definition in that mode. In particular, if KEY has no
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2009 minor-mode bindings, return nil. If the first binding is a
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2010 non-prefix, all subsequent bindings will be omitted, since they would
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2011 be ignored. Similarly, the list doesn't include non-prefix bindings
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2012 that come after prefix bindings.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2013
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2014 If optional argument ACCEPT-DEFAULT is non-nil, recognize default
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2015 bindings; see the description of `lookup-key' for more details about this. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2016 (key, accept_default)
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
2017 Lisp_Object key, accept_default;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2018 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2019 Lisp_Object *modes, *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2020 int nmaps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2021 Lisp_Object binding;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2022 int i, j;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2023 struct gcpro gcpro1, gcpro2;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2024
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2025 nmaps = current_minor_maps (&modes, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2026 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2027 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2028
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2029 binding = Qnil;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2030 GCPRO2 (key, binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2031
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2032 for (i = j = 0; i < nmaps; i++)
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2033 if (!NILP (maps[i])
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2034 && !NILP (binding = Flookup_key (maps[i], key, accept_default))
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2035 && !INTEGERP (binding))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2036 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2037 if (KEYMAPP (binding))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2038 maps[j++] = Fcons (modes[i], binding);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2039 else if (j == 0)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2040 RETURN_UNGCPRO (Fcons (Fcons (modes[i], binding), Qnil));
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2041 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2042
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2043 UNGCPRO;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2044 return Flist (j, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2045 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2046
23968
4c423f69142b (Fdefine_prefix_command): Accept a third argument NAME
Eli Zaretskii <eliz@gnu.org>
parents: 23953
diff changeset
2047 DEFUN ("define-prefix-command", Fdefine_prefix_command, Sdefine_prefix_command, 1, 3, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2048 doc: /* Define COMMAND as a prefix command. COMMAND should be a symbol.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2049 A new sparse keymap is stored as COMMAND's function definition and its value.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2050 If a second optional argument MAPVAR is given, the map is stored as
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2051 its value instead of as COMMAND's value; but COMMAND is still defined
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2052 as a function.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2053 The third optional argument NAME, if given, supplies a menu name
56573
b5575b1c51f0 (Fset_keymap_parent, Fdefine_prefix_command): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56217
diff changeset
2054 string for the map. This is required to use the keymap as a menu.
b5575b1c51f0 (Fset_keymap_parent, Fdefine_prefix_command): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56217
diff changeset
2055 This function returns COMMAND. */)
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2056 (command, mapvar, name)
23968
4c423f69142b (Fdefine_prefix_command): Accept a third argument NAME
Eli Zaretskii <eliz@gnu.org>
parents: 23953
diff changeset
2057 Lisp_Object command, mapvar, name;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2058 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2059 Lisp_Object map;
23968
4c423f69142b (Fdefine_prefix_command): Accept a third argument NAME
Eli Zaretskii <eliz@gnu.org>
parents: 23953
diff changeset
2060 map = Fmake_sparse_keymap (name);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2061 Ffset (command, map);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2062 if (!NILP (mapvar))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2063 Fset (mapvar, map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2064 else
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2065 Fset (command, map);
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2066 return command;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2067 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2068
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2069 DEFUN ("use-global-map", Fuse_global_map, Suse_global_map, 1, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2070 doc: /* Select KEYMAP as the global keymap. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2071 (keymap)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2072 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2073 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2074 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2075 current_global_map = keymap;
8464
edbb014c600a (Fuse_global_map, Fuse_local_map): Call record_asynch_buffer_change.
Richard M. Stallman <rms@gnu.org>
parents: 8431
diff changeset
2076
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2077 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2078 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2079
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2080 DEFUN ("use-local-map", Fuse_local_map, Suse_local_map, 1, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2081 doc: /* Select KEYMAP as the local keymap.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2082 If KEYMAP is nil, that means no local keymap. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2083 (keymap)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2084 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2085 {
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2086 if (!NILP (keymap))
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2087 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2088
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2089 current_buffer->keymap = keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2090
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2091 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2092 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2093
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2094 DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_map, 0, 0, 0,
86808
3386f3b8a58f (Fcurrent_local_map): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 86331
diff changeset
2095 doc: /* Return current buffer's local keymap, or nil if it has none.
3386f3b8a58f (Fcurrent_local_map): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 86331
diff changeset
2096 Normally the local keymap is set by the major mode with `use-local-map'. */)
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2097 ()
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2098 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2099 return current_buffer->keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2100 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2101
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2102 DEFUN ("current-global-map", Fcurrent_global_map, Scurrent_global_map, 0, 0, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2103 doc: /* Return the current global keymap. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2104 ()
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2105 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2106 return current_global_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2107 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2108
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2109 DEFUN ("current-minor-mode-maps", Fcurrent_minor_mode_maps, Scurrent_minor_mode_maps, 0, 0, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2110 doc: /* Return a list of keymaps for the minor modes of the current buffer. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2111 ()
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2112 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2113 Lisp_Object *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2114 int nmaps = current_minor_maps (0, &maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2115
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2116 return Flist (nmaps, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2117 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2118
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2119 /* Help functions for describing and documenting keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2120
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2121 struct accessible_keymaps_data {
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2122 Lisp_Object maps, tail, thisseq;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2123 /* Does the current sequence end in the meta-prefix-char? */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2124 int is_metized;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2125 };
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2126
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2127 static void
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2128 accessible_keymaps_1 (key, cmd, args, data)
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2129 Lisp_Object key, cmd, args;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2130 /* Use void* to be compatible with map_keymap_function_t. */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2131 void *data;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2132 {
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2133 struct accessible_keymaps_data *d = data; /* Cast! */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2134 Lisp_Object maps = d->maps;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2135 Lisp_Object tail = d->tail;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2136 Lisp_Object thisseq = d->thisseq;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2137 int is_metized = d->is_metized && INTEGERP (key);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2138 Lisp_Object tem;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2139
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2140 cmd = get_keymap (get_keyelt (cmd, 0), 0, 0);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2141 if (NILP (cmd))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2142 return;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2143
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2144 /* Look for and break cycles. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2145 while (!NILP (tem = Frassq (cmd, maps)))
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2146 {
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2147 Lisp_Object prefix = XCAR (tem);
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2148 int lim = XINT (Flength (XCAR (tem)));
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2149 if (lim <= XINT (Flength (thisseq)))
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2150 { /* This keymap was already seen with a smaller prefix. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2151 int i = 0;
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2152 while (i < lim && EQ (Faref (prefix, make_number (i)),
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2153 Faref (thisseq, make_number (i))))
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2154 i++;
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2155 if (i >= lim)
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2156 /* `prefix' is a prefix of `thisseq' => there's a cycle. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2157 return;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2158 }
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2159 /* This occurrence of `cmd' in `maps' does not correspond to a cycle,
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2160 but maybe `cmd' occurs again further down in `maps', so keep
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2161 looking. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2162 maps = XCDR (Fmemq (tem, maps));
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2163 }
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2164
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2165 /* If the last key in thisseq is meta-prefix-char,
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2166 turn it into a meta-ized keystroke. We know
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2167 that the event we're about to append is an
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2168 ascii keystroke since we're processing a
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2169 keymap table. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2170 if (is_metized)
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2171 {
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2172 int meta_bit = meta_modifier;
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2173 Lisp_Object last = make_number (XINT (Flength (thisseq)) - 1);
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2174 tem = Fcopy_sequence (thisseq);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2175
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2176 Faset (tem, last, make_number (XINT (key) | meta_bit));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2177
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2178 /* This new sequence is the same length as
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2179 thisseq, so stick it in the list right
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2180 after this one. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2181 XSETCDR (tail,
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2182 Fcons (Fcons (tem, cmd), XCDR (tail)));
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2183 }
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2184 else
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2185 {
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2186 tem = append_key (thisseq, key);
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2187 nconc2 (tail, Fcons (Fcons (tem, cmd), Qnil));
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2188 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2189 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2190
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2191 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2192
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2193 DEFUN ("accessible-keymaps", Faccessible_keymaps, Saccessible_keymaps,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2194 1, 2, 0,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2195 doc: /* Find all keymaps accessible via prefix characters from KEYMAP.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2196 Returns a list of elements of the form (KEYS . MAP), where the sequence
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2197 KEYS starting from KEYMAP gets you to MAP. These elements are ordered
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2198 so that the KEYS increase in length. The first element is ([] . KEYMAP).
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2199 An optional argument PREFIX, if non-nil, should be a key sequence;
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2200 then the value includes only maps for prefixes that start with PREFIX. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2201 (keymap, prefix)
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2202 Lisp_Object keymap, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2203 {
50190
615d7388f725 (Faccessible_keymaps): Remove unused var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50189
diff changeset
2204 Lisp_Object maps, tail;
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2205 int prefixlen = XINT (Flength (prefix));
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2206
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2207 /* no need for gcpro because we don't autoload any keymaps. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2208
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2209 if (!NILP (prefix))
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2210 {
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2211 /* If a prefix was specified, start with the keymap (if any) for
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2212 that prefix, so we don't waste time considering other prefixes. */
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2213 Lisp_Object tem;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2214 tem = Flookup_key (keymap, prefix, Qt);
8473
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
2215 /* Flookup_key may give us nil, or a number,
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
2216 if the prefix is not defined in this particular map.
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
2217 It might even give us a list that isn't a keymap. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2218 tem = get_keymap (tem, 0, 0);
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2219 /* If the keymap is autoloaded `tem' is not a cons-cell, but we still
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2220 want to return it. */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2221 if (!NILP (tem))
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2222 {
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2223 /* Convert PREFIX to a vector now, so that later on
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2224 we don't have to deal with the possibility of a string. */
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2225 if (STRINGP (prefix))
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2226 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2227 int i, i_byte, c;
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2228 Lisp_Object copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2229
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
2230 copy = Fmake_vector (make_number (SCHARS (prefix)), Qnil);
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
2231 for (i = 0, i_byte = 0; i < SCHARS (prefix);)
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2232 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2233 int i_before = i;
29013
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2234
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2235 FETCH_STRING_CHAR_ADVANCE (c, prefix, i, i_byte);
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2236 if (SINGLE_BYTE_CHAR_P (c) && (c & 0200))
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2237 c ^= 0200 | meta_modifier;
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2238 ASET (copy, i_before, make_number (c));
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2239 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2240 prefix = copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2241 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2242 maps = Fcons (Fcons (prefix, tem), Qnil);
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2243 }
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2244 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2245 return Qnil;
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2246 }
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2247 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2248 maps = Fcons (Fcons (Fmake_vector (make_number (0), Qnil),
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2249 get_keymap (keymap, 1, 0)),
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2250 Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2251
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2252 /* For each map in the list maps,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2253 look at any other maps it points to,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2254 and stick them at the end if they are not already in the list.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2255
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2256 This is a breadth-first traversal, where tail is the queue of
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2257 nodes, and maps accumulates a list of all nodes visited. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2258
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2259 for (tail = maps; CONSP (tail); tail = XCDR (tail))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2260 {
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2261 struct accessible_keymaps_data data;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2262 register Lisp_Object thismap = Fcdr (XCAR (tail));
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2263 Lisp_Object last;
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2264
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2265 data.thisseq = Fcar (XCAR (tail));
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2266 data.maps = maps;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2267 data.tail = tail;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2268 last = make_number (XINT (Flength (data.thisseq)) - 1);
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2269 /* Does the current sequence end in the meta-prefix-char? */
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2270 data.is_metized = (XINT (last) >= 0
17264
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
2271 /* Don't metize the last char of PREFIX. */
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
2272 && XINT (last) >= prefixlen
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2273 && EQ (Faref (data.thisseq, last), meta_prefix_char));
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2274
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2275 /* Since we can't run lisp code, we can't scan autoloaded maps. */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2276 if (CONSP (thismap))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2277 map_keymap (thismap, accessible_keymaps_1, Qnil, &data, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2278 }
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2279 return maps;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2280 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2281 Lisp_Object Qsingle_key_description, Qkey_description;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2282
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2283 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2284
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2285 DEFUN ("key-description", Fkey_description, Skey_description, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2286 doc: /* Return a pretty description of key-sequence KEYS.
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2287 Optional arg PREFIX is the sequence of keys leading up to KEYS.
55913
c663e2e97168 (Fdescribe_vector): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 55722
diff changeset
2288 Control characters turn into "C-foo" sequences, meta into "M-foo",
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2289 spaces are put between sequence elements, etc. */)
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2290 (keys, prefix)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2291 Lisp_Object keys, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2292 {
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
2293 int len = 0;
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2294 int i, i_byte;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2295 Lisp_Object *args;
55006
5429150a04f3 (Fkey_description): Fix the usual int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54925
diff changeset
2296 int size = XINT (Flength (keys));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2297 Lisp_Object list;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2298 Lisp_Object sep = build_string (" ");
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2299 Lisp_Object key;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2300 int add_meta = 0;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2301
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2302 if (!NILP (prefix))
55006
5429150a04f3 (Fkey_description): Fix the usual int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54925
diff changeset
2303 size += XINT (Flength (prefix));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2304
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2305 /* This has one extra element at the end that we don't pass to Fconcat. */
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2306 args = (Lisp_Object *) alloca (size * 4 * sizeof (Lisp_Object));
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2307
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2308 /* In effect, this computes
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2309 (mapconcat 'single-key-description keys " ")
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2310 but we shouldn't use mapconcat because it can do GC. */
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2311
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2312 next_list:
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2313 if (!NILP (prefix))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2314 list = prefix, prefix = Qnil;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2315 else if (!NILP (keys))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2316 list = keys, keys = Qnil;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2317 else
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2318 {
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2319 if (add_meta)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2320 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2321 args[len] = Fsingle_key_description (meta_prefix_char, Qnil);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2322 len += 2;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2323 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2324 else if (len == 0)
81281
323c37a99c44 (Fkey_description): Use empty_unibyte_string.
Juanma Barranquero <lekktu@gmail.com>
parents: 80871
diff changeset
2325 return empty_unibyte_string;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2326 return Fconcat (len - 1, args);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2327 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2328
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2329 if (STRINGP (list))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2330 size = SCHARS (list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2331 else if (VECTORP (list))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2332 size = XVECTOR (list)->size;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2333 else if (CONSP (list))
55006
5429150a04f3 (Fkey_description): Fix the usual int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54925
diff changeset
2334 size = XINT (Flength (list));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2335 else
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2336 wrong_type_argument (Qarrayp, list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2337
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2338 i = i_byte = 0;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2339
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2340 while (i < size)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2341 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2342 if (STRINGP (list))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2343 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2344 int c;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2345 FETCH_STRING_CHAR_ADVANCE (c, list, i, i_byte);
29013
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2346 if (SINGLE_BYTE_CHAR_P (c) && (c & 0200))
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2347 c ^= 0200 | meta_modifier;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2348 XSETFASTINT (key, c);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2349 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2350 else if (VECTORP (list))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2351 {
91670
a06d59678f5a (Fkey_description): Move side effect outside of macro call.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
2352 key = AREF (list, i); i++;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2353 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2354 else
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2355 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2356 key = XCAR (list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2357 list = XCDR (list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2358 i++;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2359 }
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2360
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2361 if (add_meta)
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2362 {
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2363 if (!INTEGERP (key)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2364 || EQ (key, meta_prefix_char)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2365 || (XINT (key) & meta_modifier))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2366 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2367 args[len++] = Fsingle_key_description (meta_prefix_char, Qnil);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2368 args[len++] = sep;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2369 if (EQ (key, meta_prefix_char))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2370 continue;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2371 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2372 else
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2373 XSETINT (key, (XINT (key) | meta_modifier) & ~0x80);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2374 add_meta = 0;
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2375 }
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2376 else if (EQ (key, meta_prefix_char))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2377 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2378 add_meta = 1;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2379 continue;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2380 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2381 args[len++] = Fsingle_key_description (key, Qnil);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2382 args[len++] = sep;
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2383 }
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2384 goto next_list;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2385 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2386
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2387
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2388 char *
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2389 push_key_description (c, p, force_multibyte)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2390 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2391 register char *p;
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2392 int force_multibyte;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2393 {
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2394 unsigned c2;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2395
2343
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
2396 /* 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
2397 c &= meta_modifier | ~ - meta_modifier;
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2398 c2 = c & ~(alt_modifier | ctrl_modifier | hyper_modifier
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2399 | meta_modifier | shift_modifier | super_modifier);
2343
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
2400
90390
9b61abfe926b (push_key_description): Fix synching with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
2401 if (! CHARACTERP (make_number (c2)))
70535
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2402 {
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2403 /* KEY_DESCRIPTION_SIZE is large enough for this. */
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2404 p += sprintf (p, "[%d]", c);
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2405 return p;
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2406 }
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2407
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2408 if (c & alt_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2409 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2410 *p++ = 'A';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2411 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2412 c -= alt_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2413 }
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2414 if ((c & ctrl_modifier) != 0
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2415 || (c2 < ' ' && c2 != 27 && c2 != '\t' && c2 != Ctl ('M')))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2416 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2417 *p++ = 'C';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2418 *p++ = '-';
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2419 c &= ~ctrl_modifier;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2420 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2421 if (c & hyper_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2422 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2423 *p++ = 'H';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2424 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2425 c -= hyper_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2426 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2427 if (c & meta_modifier)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2428 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2429 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2430 *p++ = '-';
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2431 c -= meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2432 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2433 if (c & shift_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2434 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2435 *p++ = 'S';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2436 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2437 c -= shift_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2438 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2439 if (c & super_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2440 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2441 *p++ = 's';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2442 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2443 c -= super_modifier;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2444 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2445 if (c < 040)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2446 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2447 if (c == 033)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2448 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2449 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2450 *p++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2451 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2452 }
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2453 else if (c == '\t')
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2454 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2455 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2456 *p++ = 'A';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2457 *p++ = 'B';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2458 }
16875
d9956cf6699b (push_key_description): Print C-j, not TAB.
Richard M. Stallman <rms@gnu.org>
parents: 16465
diff changeset
2459 else if (c == Ctl ('M'))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2460 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2461 *p++ = 'R';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2462 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2463 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2464 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2465 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2466 {
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2467 /* `C-' already added above. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2468 if (c > 0 && c <= Ctl ('Z'))
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2469 *p++ = c + 0140;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2470 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2471 *p++ = c + 0100;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2472 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2473 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2474 else if (c == 0177)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2475 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2476 *p++ = 'D';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2477 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2478 *p++ = 'L';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2479 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2480 else if (c == ' ')
24394
8159c8cb33cc (push_key_description): If enable-multibyte-characters
Kenichi Handa <handa@m17n.org>
parents: 23968
diff changeset
2481 {
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2482 *p++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2483 *p++ = 'P';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2484 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2485 }
24396
340189fd508f (push_key_description): If enable-multibyte-characters
Kenichi Handa <handa@m17n.org>
parents: 24394
diff changeset
2486 else if (c < 128
340189fd508f (push_key_description): If enable-multibyte-characters
Kenichi Handa <handa@m17n.org>
parents: 24394
diff changeset
2487 || (NILP (current_buffer->enable_multibyte_characters)
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2488 && SINGLE_BYTE_CHAR_P (c)
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2489 && !force_multibyte))
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2490 {
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2491 *p++ = c;
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2492 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2493 else
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2494 {
90390
9b61abfe926b (push_key_description): Fix synching with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
2495 /* Now we are sure that C is a valid character code. */
89175
adc5b06c6722 (push_key_description): Pay attention to force_multibyte.
Kenichi Handa <handa@m17n.org>
parents: 88932
diff changeset
2496 if (NILP (current_buffer->enable_multibyte_characters)
adc5b06c6722 (push_key_description): Pay attention to force_multibyte.
Kenichi Handa <handa@m17n.org>
parents: 88932
diff changeset
2497 && ! force_multibyte)
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2498 *p++ = multibyte_char_to_unibyte (c, Qnil);
24394
8159c8cb33cc (push_key_description): If enable-multibyte-characters
Kenichi Handa <handa@m17n.org>
parents: 23968
diff changeset
2499 else
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2500 p += CHAR_STRING (c, (unsigned char *) p);
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2501 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2502
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
2503 return p;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2504 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2505
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2506 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2507
30559
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2508 DEFUN ("single-key-description", Fsingle_key_description,
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2509 Ssingle_key_description, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2510 doc: /* Return a pretty description of command character KEY.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2511 Control characters turn into C-whatever, etc.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2512 Optional argument NO-ANGLES non-nil means don't put angle brackets
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2513 around function keys and event symbols. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2514 (key, no_angles)
30559
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2515 Lisp_Object key, no_angles;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2516 {
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2517 if (CONSP (key) && lucid_event_type_list_p (key))
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2518 key = Fevent_convert_list (key);
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2519
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
2520 key = EVENT_HEAD (key);
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
2521
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2522 if (INTEGERP (key)) /* Normal character */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2523 {
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2524 char tem[KEY_DESCRIPTION_SIZE];
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2525
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2526 *push_key_description (XUINT (key), tem, 1) = 0;
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2527 return build_string (tem);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2528 }
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2529 else if (SYMBOLP (key)) /* Function key or event-symbol */
29651
31099bb76b6e (Fsingle_key_description): Enclose function key and
Gerd Moellmann <gerd@gnu.org>
parents: 29282
diff changeset
2530 {
30559
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2531 if (NILP (no_angles))
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2532 {
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2533 char *buffer
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
2534 = (char *) alloca (SBYTES (SYMBOL_NAME (key)) + 5);
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
2535 sprintf (buffer, "<%s>", SDATA (SYMBOL_NAME (key)));
30559
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2536 return build_string (buffer);
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2537 }
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2538 else
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2539 return Fsymbol_name (key);
29651
31099bb76b6e (Fsingle_key_description): Enclose function key and
Gerd Moellmann <gerd@gnu.org>
parents: 29282
diff changeset
2540 }
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2541 else if (STRINGP (key)) /* Buffer names in the menubar. */
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2542 return Fcopy_sequence (key);
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2543 else
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2544 error ("KEY must be an integer, cons, symbol, or string");
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
2545 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2546 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2547
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2548 char *
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2549 push_text_char_description (c, p)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2550 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2551 register char *p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2552 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2553 if (c >= 0200)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2554 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2555 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2556 *p++ = '-';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2557 c -= 0200;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2558 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2559 if (c < 040)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2560 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2561 *p++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2562 *p++ = c + 64; /* 'A' - 1 */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2563 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2564 else if (c == 0177)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2565 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2566 *p++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2567 *p++ = '?';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2568 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2569 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2570 *p++ = c;
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
2571 return p;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2572 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2573
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2574 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2575
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2576 DEFUN ("text-char-description", Ftext_char_description, Stext_char_description, 1, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2577 doc: /* Return a pretty description of file-character CHARACTER.
56217
dd79816933ec (Ftext_char_description): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55913
diff changeset
2578 Control characters turn into "^char", etc. This differs from
dd79816933ec (Ftext_char_description): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55913
diff changeset
2579 `single-key-description' which turns them into "C-char".
dd79816933ec (Ftext_char_description): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55913
diff changeset
2580 Also, this function recognizes the 2**7 bit as the Meta character,
dd79816933ec (Ftext_char_description): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55913
diff changeset
2581 whereas `single-key-description' uses the 2**27 bit for Meta.
dd79816933ec (Ftext_char_description): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55913
diff changeset
2582 See Info node `(elisp)Describing Characters' for examples. */)
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2583 (character)
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2584 Lisp_Object character;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2585 {
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2586 /* Currently MAX_MULTIBYTE_LENGTH is 4 (< 6). */
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2587 unsigned char str[6];
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2588 int c;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2589
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40625
diff changeset
2590 CHECK_NUMBER (character);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2591
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2592 c = XINT (character);
89212
c5637be14c7f (Ftext_char_description): Check C by ASCII_CHAR_P, not
Kenichi Handa <handa@m17n.org>
parents: 89175
diff changeset
2593 if (!ASCII_CHAR_P (c))
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2594 {
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2595 int len = CHAR_STRING (c, str);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2596
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2597 return make_multibyte_string (str, 1, len);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2598 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2599
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2600 *push_text_char_description (c & 0377, str) = 0;
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2601
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2602 return build_string (str);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2603 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2604
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2605 static int where_is_preferred_modifier;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2606
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2607 /* Return 0 if SEQ uses non-preferred modifiers or non-char events.
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2608 Else, return 2 if SEQ uses the where_is_preferred_modifier,
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2609 and 1 otherwise. */
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2610 static int
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2611 preferred_sequence_p (seq)
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2612 Lisp_Object seq;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2613 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2614 int i;
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2615 int len = XINT (Flength (seq));
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2616 int result = 1;
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
2617
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2618 for (i = 0; i < len; i++)
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2619 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2620 Lisp_Object ii, elt;
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
2621
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2622 XSETFASTINT (ii, i);
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2623 elt = Faref (seq, ii);
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2624
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2625 if (!INTEGERP (elt))
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2626 return 0;
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2627 else
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2628 {
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2629 int modifiers = XUINT (elt) & (CHAR_MODIFIER_MASK & ~CHAR_META);
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2630 if (modifiers == where_is_preferred_modifier)
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2631 result = 2;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2632 else if (modifiers)
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2633 return 0;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2634 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2635 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2636
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2637 return result;
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2638 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2639
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2640
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2641 /* where-is - finding a command in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2642
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2643 static Lisp_Object where_is_internal ();
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2644 static void where_is_internal_1 P_ ((Lisp_Object key, Lisp_Object binding,
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2645 Lisp_Object args, void *data));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2646
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2647 /* Like Flookup_key, but uses a list of keymaps SHADOW instead of a single map.
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2648 Returns the first non-nil binding found in any of those maps. */
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2649
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2650 static Lisp_Object
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2651 shadow_lookup (shadow, key, flag)
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2652 Lisp_Object shadow, key, flag;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2653 {
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2654 Lisp_Object tail, value;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2655
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2656 for (tail = shadow; CONSP (tail); tail = XCDR (tail))
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2657 {
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2658 value = Flookup_key (XCAR (tail), key, flag);
66757
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2659 if (NATNUMP (value))
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2660 {
67070
c83903b9e676 (shadow_lookup): Use make_number to pass a number to Fsubstring.
Ken Raeburn <raeburn@raeburn.org>
parents: 66757
diff changeset
2661 value = Flookup_key (XCAR (tail),
c83903b9e676 (shadow_lookup): Use make_number to pass a number to Fsubstring.
Ken Raeburn <raeburn@raeburn.org>
parents: 66757
diff changeset
2662 Fsubstring (key, make_number (0), value), flag);
66757
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2663 if (!NILP (value))
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2664 return Qnil;
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2665 }
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2666 else if (!NILP (value))
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2667 return value;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2668 }
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2669 return Qnil;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2670 }
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2671
53808
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
2672 static Lisp_Object Vmouse_events;
50141
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
2673
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2674 struct where_is_internal_data {
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2675 Lisp_Object definition, noindirect, this, last;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2676 int last_is_meta;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2677 Lisp_Object sequences;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2678 };
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2679
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2680 /* This function can GC if Flookup_key autoloads any keymaps. */
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2681
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2682 static Lisp_Object
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2683 where_is_internal (definition, keymaps, firstonly, noindirect, no_remap)
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2684 Lisp_Object definition, keymaps;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2685 Lisp_Object firstonly, noindirect, no_remap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2686 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2687 Lisp_Object maps = Qnil;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2688 Lisp_Object found, sequences;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2689 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
10810
9b418bde9fcf (Fwhere_is_internal): If FIRSTONLY is not nil or non-ascii,
Richard M. Stallman <rms@gnu.org>
parents: 10541
diff changeset
2690 /* 1 means ignore all menu bindings entirely. */
9b418bde9fcf (Fwhere_is_internal): If FIRSTONLY is not nil or non-ascii,
Richard M. Stallman <rms@gnu.org>
parents: 10541
diff changeset
2691 int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2692
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2693 found = keymaps;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2694 while (CONSP (found))
29282
59f2b30d577b Include intervals.h.
Dave Love <fx@gnu.org>
parents: 29013
diff changeset
2695 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2696 maps =
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2697 nconc2 (maps,
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2698 Faccessible_keymaps (get_keymap (XCAR (found), 1, 0), Qnil));
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2699 found = XCDR (found);
29282
59f2b30d577b Include intervals.h.
Dave Love <fx@gnu.org>
parents: 29013
diff changeset
2700 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2701
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2702 GCPRO5 (definition, keymaps, maps, found, sequences);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2703 found = Qnil;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2704 sequences = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2705
76862
4f957abd4298 (where_is_internal): Scan provided keymaps for command remappings
Chong Yidong <cyd@stupidchicken.com>
parents: 76710
diff changeset
2706 /* If this command is remapped, then it has no key bindings
4f957abd4298 (where_is_internal): Scan provided keymaps for command remappings
Chong Yidong <cyd@stupidchicken.com>
parents: 76710
diff changeset
2707 of its own. */
76887
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
2708 if (NILP (no_remap)
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
2709 && SYMBOLP (definition)
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
2710 && !NILP (Fcommand_remapping (definition, Qnil, keymaps)))
a5751af0b8a7 (Fcommand_remapping): New optional argument.
Chong Yidong <cyd@stupidchicken.com>
parents: 76862
diff changeset
2711 RETURN_UNGCPRO (Qnil);
76862
4f957abd4298 (where_is_internal): Scan provided keymaps for command remappings
Chong Yidong <cyd@stupidchicken.com>
parents: 76710
diff changeset
2712
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
2713 for (; CONSP (maps); maps = XCDR (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2714 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2715 /* Key sequence to reach map, and the map that it reaches */
50141
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
2716 register Lisp_Object this, map, tem;
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2717 struct where_is_internal_data data;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2718
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2719 /* In order to fold [META-PREFIX-CHAR CHAR] sequences into
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2720 [M-CHAR] sequences, check if last character of the sequence
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2721 is the meta-prefix char. */
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2722 Lisp_Object last;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2723 int last_is_meta;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2724
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
2725 this = Fcar (XCAR (maps));
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
2726 map = Fcdr (XCAR (maps));
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2727 last = make_number (XINT (Flength (this)) - 1);
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2728 last_is_meta = (XINT (last) >= 0
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2729 && EQ (Faref (this, last), meta_prefix_char));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2730
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2731 /* if (nomenus && !preferred_sequence_p (this)) */
36405
7fe1b8d8fc44 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36373
diff changeset
2732 if (nomenus && XINT (last) >= 0
50141
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
2733 && SYMBOLP (tem = Faref (this, make_number (0)))
53808
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
2734 && !NILP (Fmemq (XCAR (parse_modifiers (tem)), Vmouse_events)))
34755
1e3d0f2d1145 (where_is_internal): Check ascii_sequence_p rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34515
diff changeset
2735 /* If no menu entries should be returned, skip over the
1e3d0f2d1145 (where_is_internal): Check ascii_sequence_p rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34515
diff changeset
2736 keymaps bound to `menu-bar' and `tool-bar' and other
36373
274190d289d7 (where_is_internal): Accept non-ascii integer prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35781
diff changeset
2737 non-ascii prefixes like `C-down-mouse-2'. */
34755
1e3d0f2d1145 (where_is_internal): Check ascii_sequence_p rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34515
diff changeset
2738 continue;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2739
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
2740 QUIT;
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
2741
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2742 data.definition = definition;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2743 data.noindirect = noindirect;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2744 data.this = this;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2745 data.last = last;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2746 data.last_is_meta = last_is_meta;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2747 data.sequences = Qnil;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2748
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2749 if (CONSP (map))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2750 map_keymap (map, where_is_internal_1, Qnil, &data, 0);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2751
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2752 sequences = data.sequences;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2753
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2754 while (CONSP (sequences))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2755 {
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2756 Lisp_Object sequence, remapped, function;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2757
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2758 sequence = XCAR (sequences);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2759 sequences = XCDR (sequences);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2760
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2761 /* If the current sequence is a command remapping with
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2762 format [remap COMMAND], find the key sequences
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2763 which run COMMAND, and use those sequences instead. */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2764 remapped = Qnil;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2765 if (NILP (no_remap)
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2766 && VECTORP (sequence) && XVECTOR (sequence)->size == 2
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2767 && EQ (AREF (sequence, 0), Qremap)
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2768 && (function = AREF (sequence, 1), SYMBOLP (function)))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2769 {
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2770 Lisp_Object remapped1;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2771
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2772 remapped1 = where_is_internal (function, keymaps, firstonly, noindirect, Qt);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2773 if (CONSP (remapped1))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2774 {
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2775 /* Verify that this key binding actually maps to the
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2776 remapped command (see below). */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2777 if (!EQ (shadow_lookup (keymaps, XCAR (remapped1), Qnil), function))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2778 continue;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2779 sequence = XCAR (remapped1);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2780 remapped = XCDR (remapped1);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2781 goto record_sequence;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2782 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2783 }
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2784
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2785 /* Verify that this key binding is not shadowed by another
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2786 binding for the same key, before we say it exists.
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2787
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2788 Mechanism: look for local definition of this key and if
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2789 it is defined and does not match what we found then
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2790 ignore this key.
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2791
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2792 Either nil or number as value from Flookup_key
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2793 means undefined. */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2794 if (!EQ (shadow_lookup (keymaps, sequence, Qnil), definition))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2795 continue;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2796
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2797 record_sequence:
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2798 /* Don't annoy user with strings from a menu such as
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2799 Select Paste. Change them all to "(any string)",
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2800 so that there seems to be only one menu item
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2801 to report. */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2802 if (! NILP (sequence))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2803 {
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2804 Lisp_Object tem;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2805 tem = Faref (sequence, make_number (XVECTOR (sequence)->size - 1));
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2806 if (STRINGP (tem))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2807 Faset (sequence, make_number (XVECTOR (sequence)->size - 1),
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2808 build_string ("(any string)"));
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2809 }
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2810
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2811 /* It is a true unshadowed match. Record it, unless it's already
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2812 been seen (as could happen when inheriting keymaps). */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2813 if (NILP (Fmember (sequence, found)))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2814 found = Fcons (sequence, found);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2815
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2816 /* If firstonly is Qnon_ascii, then we can return the first
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2817 binding we find. If firstonly is not Qnon_ascii but not
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2818 nil, then we should return the first ascii-only binding
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2819 we find. */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2820 if (EQ (firstonly, Qnon_ascii))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2821 RETURN_UNGCPRO (sequence);
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2822 else if (!NILP (firstonly) && 2 == preferred_sequence_p (sequence))
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2823 RETURN_UNGCPRO (sequence);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2824
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2825 if (CONSP (remapped))
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2826 {
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2827 sequence = XCAR (remapped);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2828 remapped = XCDR (remapped);
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2829 goto record_sequence;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2830 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2831 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2832 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2833
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2834 UNGCPRO;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2835
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2836 found = Fnreverse (found);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2837
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2838 /* 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
2839 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
2840 return the best we could find. */
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2841 if (NILP (firstonly))
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2842 return found;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2843 else if (where_is_preferred_modifier == 0)
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2844 return Fcar (found);
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2845 else
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2846 { /* Maybe we did not find a preferred_modifier binding, but we did find
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2847 some ASCII binding. */
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2848 Lisp_Object bindings = found;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2849 while (CONSP (bindings))
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2850 if (preferred_sequence_p (XCAR (bindings)))
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2851 return XCAR (bindings);
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2852 else
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2853 bindings = XCDR (bindings);
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2854 return Fcar (found);
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2855 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2856 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2857
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2858 static Lisp_Object Vwhere_is_preferred_modifier;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2859
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2860 DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 5, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2861 doc: /* Return list of keys that invoke DEFINITION.
56635
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
2862 If KEYMAP is a keymap, search only KEYMAP and the global keymap.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2863 If KEYMAP is nil, search all the currently active keymaps.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2864 If KEYMAP is a list of keymaps, search only those keymaps.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2865
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2866 If optional 3rd arg FIRSTONLY is non-nil, return the first key sequence found,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2867 rather than a list of all possible key sequences.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2868 If FIRSTONLY is the symbol `non-ascii', return the first binding found,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2869 no matter what it is.
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2870 If FIRSTONLY has another non-nil value, prefer bindings
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2871 that use the modifier key specified in `where-is-preferred-modifier'
56635
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
2872 \(or their meta variants) and entirely reject menu bindings.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2873
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2874 If optional 4th arg NOINDIRECT is non-nil, don't follow indirections
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2875 to other keymaps or slots. This makes it possible to search for an
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2876 indirect definition itself.
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2877
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2878 If optional 5th arg NO-REMAP is non-nil, don't search for key sequences
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2879 that invoke a command which is remapped to DEFINITION, but include the
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2880 remapped command in the returned list. */)
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2881 (definition, keymap, firstonly, noindirect, no_remap)
35258
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2882 Lisp_Object definition, keymap;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2883 Lisp_Object firstonly, noindirect, no_remap;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2884 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2885 Lisp_Object sequences, keymaps;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2886 /* 1 means ignore all menu bindings entirely. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2887 int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2888 Lisp_Object result;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2889
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2890 /* Refresh the C version of the modifier preference. */
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2891 where_is_preferred_modifier
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2892 = parse_solitary_modifier (Vwhere_is_preferred_modifier);
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2893
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2894 /* Find the relevant keymaps. */
35258
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2895 if (CONSP (keymap) && KEYMAPP (XCAR (keymap)))
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2896 keymaps = keymap;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2897 else if (!NILP (keymap))
35258
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2898 keymaps = Fcons (keymap, Fcons (current_global_map, Qnil));
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2899 else
81609
7e640eac2dcb * keymaps.texi (Active Keymaps): Document new POSITION argument of
David Kastrup <dak@gnu.org>
parents: 81281
diff changeset
2900 keymaps = Fcurrent_active_maps (Qnil, Qnil);
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2901
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2902 /* Only use caching for the menubar (i.e. called with (def nil t nil).
35258
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2903 We don't really need to check `keymap'. */
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2904 if (nomenus && NILP (noindirect) && NILP (keymap))
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2905 {
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2906 Lisp_Object *defns;
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2907 int i, n;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2908 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
2909
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2910 /* Check heuristic-consistency of the cache. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2911 if (NILP (Fequal (keymaps, where_is_cache_keymaps)))
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2912 where_is_cache = Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2913
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2914 if (NILP (where_is_cache))
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2915 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2916 /* We need to create the cache. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2917 Lisp_Object args[2];
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2918 where_is_cache = Fmake_hash_table (0, args);
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2919 where_is_cache_keymaps = Qt;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2920
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2921 /* Fill in the cache. */
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2922 GCPRO5 (definition, keymaps, firstonly, noindirect, no_remap);
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2923 where_is_internal (definition, keymaps, firstonly, noindirect, no_remap);
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2924 UNGCPRO;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2925
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2926 where_is_cache_keymaps = keymaps;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2927 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2928
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2929 /* We want to process definitions from the last to the first.
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2930 Instead of consing, copy definitions to a vector and step
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2931 over that vector. */
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2932 sequences = Fgethash (definition, where_is_cache, Qnil);
36405
7fe1b8d8fc44 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36373
diff changeset
2933 n = XINT (Flength (sequences));
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2934 defns = (Lisp_Object *) alloca (n * sizeof *defns);
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2935 for (i = 0; CONSP (sequences); sequences = XCDR (sequences))
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2936 defns[i++] = XCAR (sequences);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2937
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2938 /* Verify that the key bindings are not shadowed. Note that
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2939 the following can GC. */
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2940 GCPRO2 (definition, keymaps);
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2941 result = Qnil;
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2942 {
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2943 int best_pref = -1;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2944 int j = -1;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2945 for (i = n - 1; i >= 0; --i)
35781
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2946 {
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2947 int pref = preferred_sequence_p (defns[i]);
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2948 if (pref > best_pref
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2949 && EQ (shadow_lookup (keymaps, defns[i], Qnil), definition))
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2950 {
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2951 j = i;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2952 best_pref = pref;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2953 if (best_pref == 2)
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2954 break;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2955 }
35781
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2956 }
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2957 result = j >= 0 ? defns[j] : Qnil;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
2958 }
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2959 UNGCPRO;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2960 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2961 else
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2962 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2963 /* Kill the cache so that where_is_internal_1 doesn't think
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2964 we're filling it up. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2965 where_is_cache = Qnil;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2966 result = where_is_internal (definition, keymaps, firstonly, noindirect, no_remap);
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2967 }
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2968
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2969 return result;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2970 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2971
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2972 /* This function can GC because get_keyelt can. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2973
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
2974 static void
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2975 where_is_internal_1 (key, binding, args, data)
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2976 Lisp_Object key, binding, args;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2977 void *data;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2978 {
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2979 struct where_is_internal_data *d = data; /* Cast! */
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2980 Lisp_Object definition = d->definition;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2981 Lisp_Object noindirect = d->noindirect;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2982 Lisp_Object this = d->this;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2983 Lisp_Object last = d->last;
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2984 int last_is_meta = d->last_is_meta;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2985 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2986
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2987 /* Search through indirections unless that's not wanted. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2988 if (NILP (noindirect))
32145
a48fcf036df1 (Fwhere_is_internal): Ignore `menu-bar' and `tool-bar'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32038
diff changeset
2989 binding = get_keyelt (binding, 0);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2990
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2991 /* End this iteration if this element does not match
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2992 the target. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2993
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2994 if (!(!NILP (where_is_cache) /* everything "matches" during cache-fill. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2995 || EQ (binding, definition)
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2996 || (CONSP (definition) && !NILP (Fequal (binding, definition)))))
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2997 /* Doesn't match. */
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
2998 return;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2999
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
3000 /* We have found a match. Construct the key sequence where we found it. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3001 if (INTEGERP (key) && last_is_meta)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3002 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3003 sequence = Fcopy_sequence (this);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3004 Faset (sequence, last, make_number (XINT (key) | meta_modifier));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3005 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3006 else
91037
fd549372af1b (where_is_internal_1): If key is a cons, store the copy
Kenichi Handa <handa@m17n.org>
parents: 91005
diff changeset
3007 {
fd549372af1b (where_is_internal_1): If key is a cons, store the copy
Kenichi Handa <handa@m17n.org>
parents: 91005
diff changeset
3008 if (CONSP (key))
fd549372af1b (where_is_internal_1): If key is a cons, store the copy
Kenichi Handa <handa@m17n.org>
parents: 91005
diff changeset
3009 key = Fcons (XCAR (key), XCDR (key));
fd549372af1b (where_is_internal_1): If key is a cons, store the copy
Kenichi Handa <handa@m17n.org>
parents: 91005
diff changeset
3010 sequence = append_key (this, key);
fd549372af1b (where_is_internal_1): If key is a cons, store the copy
Kenichi Handa <handa@m17n.org>
parents: 91005
diff changeset
3011 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3012
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
3013 if (!NILP (where_is_cache))
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
3014 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
3015 Lisp_Object sequences = Fgethash (binding, where_is_cache, Qnil);
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
3016 Fputhash (binding, Fcons (sequence, sequences), where_is_cache);
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
3017 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
3018 else
81792
4ee4f467ca51 (struct accessible_keymaps_data, struct where_is_internal_data): New structs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81609
diff changeset
3019 d->sequences = Fcons (sequence, d->sequences);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3020 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3021
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3022 /* describe-bindings - summarizing all the bindings in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3023
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3024 DEFUN ("describe-buffer-bindings", Fdescribe_buffer_bindings, Sdescribe_buffer_bindings, 1, 3, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3025 doc: /* Insert the list of all defined keys and their definitions.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3026 The list is inserted in the current buffer, while the bindings are
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3027 looked up in BUFFER.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3028 The optional argument PREFIX, if non-nil, should be a key sequence;
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3029 then we display only bindings that start with that prefix.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3030 The optional argument MENUS, if non-nil, says to mention menu bindings.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3031 \(Ordinarily these are omitted from the output.) */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3032 (buffer, prefix, menus)
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3033 Lisp_Object buffer, prefix, menus;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3034 {
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3035 Lisp_Object outbuf, shadow;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3036 int nomenu = NILP (menus);
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
3037 register Lisp_Object start1;
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
3038 struct gcpro gcpro1;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3039
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3040 char *alternate_heading
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3041 = "\
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
3042 Keyboard translations:\n\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
3043 You type Translation\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
3044 -------- -----------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3045
76415
a31980a5f310 (Fdescribe_buffer_bindings): Check that BUFFER is valid.
Juanma Barranquero <lekktu@gmail.com>
parents: 76269
diff changeset
3046 CHECK_BUFFER (buffer);
a31980a5f310 (Fdescribe_buffer_bindings): Check that BUFFER is valid.
Juanma Barranquero <lekktu@gmail.com>
parents: 76269
diff changeset
3047
4575
bf0f07186369 (describe_buffer_bindings): Declare shadow just once.
Richard M. Stallman <rms@gnu.org>
parents: 4138
diff changeset
3048 shadow = Qnil;
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
3049 GCPRO1 (shadow);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3050
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3051 outbuf = Fcurrent_buffer ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3052
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3053 /* Report on alternates for keys. */
83391
e99392472e41 Change `keyboard-translate-table' to be terminal-local.
Karoly Lorentey <lorentey@elte.hu>
parents: 83380
diff changeset
3054 if (STRINGP (current_kboard->Vkeyboard_translate_table) && !NILP (prefix))
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3055 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3056 int c;
83391
e99392472e41 Change `keyboard-translate-table' to be terminal-local.
Karoly Lorentey <lorentey@elte.hu>
parents: 83380
diff changeset
3057 const unsigned char *translate = SDATA (current_kboard->Vkeyboard_translate_table);
e99392472e41 Change `keyboard-translate-table' to be terminal-local.
Karoly Lorentey <lorentey@elte.hu>
parents: 83380
diff changeset
3058 int translate_len = SCHARS (current_kboard->Vkeyboard_translate_table);
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3059
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3060 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
3061 if (translate[c] != c)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3062 {
26481
70d85ae6dfee (Fsingle_key_description): Use KEY_DESCRIPTION_SIZE to
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
3063 char buf[KEY_DESCRIPTION_SIZE];
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3064 char *bufend;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3065
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3066 if (alternate_heading)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3067 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3068 insert_string (alternate_heading);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3069 alternate_heading = 0;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3070 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3071
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
3072 bufend = push_key_description (translate[c], buf, 1);
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3073 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3074 Findent_to (make_number (16), make_number (1));
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
3075 bufend = push_key_description (c, buf, 1);
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3076 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3077
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3078 insert ("\n", 1);
65456
d9638b932900 (Fdescribe_buffer_bindings): Reload `translate'
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
3079
d9638b932900 (Fdescribe_buffer_bindings): Reload `translate'
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
3080 /* Insert calls signal_after_change which may GC. */
83391
e99392472e41 Change `keyboard-translate-table' to be terminal-local.
Karoly Lorentey <lorentey@elte.hu>
parents: 83380
diff changeset
3081 translate = SDATA (current_kboard->Vkeyboard_translate_table);
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3082 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3083
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3084 insert ("\n", 1);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3085 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3086
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3087 if (!NILP (Vkey_translation_map))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3088 describe_map_tree (Vkey_translation_map, 0, Qnil, prefix,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3089 "Key translations", nomenu, 1, 0, 0);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3090
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3091
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3092 /* Print the (major mode) local map. */
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3093 start1 = Qnil;
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
3094 if (!NILP (current_kboard->Voverriding_terminal_local_map))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
3095 start1 = current_kboard->Voverriding_terminal_local_map;
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
3096 else if (!NILP (Voverriding_local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
3097 start1 = Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
3098
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3099 if (!NILP (start1))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3100 {
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
3101 describe_map_tree (start1, 1, shadow, prefix,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3102 "\f\nOverriding Bindings", nomenu, 0, 0, 0);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3103 shadow = Fcons (start1, shadow);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3104 }
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3105 else
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3106 {
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3107 /* Print the minor mode and major mode keymaps. */
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3108 int i, nmaps;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3109 Lisp_Object *modes, *maps;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3110
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3111 /* Temporarily switch to `buffer', so that we can get that buffer's
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3112 minor modes correctly. */
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3113 Fset_buffer (buffer);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3114
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3115 nmaps = current_minor_maps (&modes, &maps);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3116 Fset_buffer (outbuf);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3117
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3118 start1 = get_local_map (BUF_PT (XBUFFER (buffer)),
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3119 XBUFFER (buffer), Qkeymap);
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3120 if (!NILP (start1))
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3121 {
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3122 describe_map_tree (start1, 1, shadow, prefix,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3123 "\f\n`keymap' Property Bindings", nomenu,
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3124 0, 0, 0);
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3125 shadow = Fcons (start1, shadow);
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3126 }
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3127
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3128 /* Print the minor mode maps. */
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3129 for (i = 0; i < nmaps; i++)
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3130 {
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3131 /* The title for a minor mode keymap
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3132 is constructed at run time.
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3133 We let describe_map_tree do the actual insertion
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3134 because it takes care of other features when doing so. */
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3135 char *title, *p;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3136
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3137 if (!SYMBOLP (modes[i]))
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
3138 abort ();
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3139
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
3140 p = title = (char *) alloca (42 + SCHARS (SYMBOL_NAME (modes[i])));
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3141 *p++ = '\f';
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3142 *p++ = '\n';
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3143 *p++ = '`';
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
3144 bcopy (SDATA (SYMBOL_NAME (modes[i])), p,
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
3145 SCHARS (SYMBOL_NAME (modes[i])));
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
3146 p += SCHARS (SYMBOL_NAME (modes[i]));
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3147 *p++ = '\'';
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3148 bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings") - 1);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3149 p += sizeof (" Minor Mode Bindings") - 1;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3150 *p = 0;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3151
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3152 describe_map_tree (maps[i], 1, shadow, prefix,
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3153 title, nomenu, 0, 0, 0);
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3154 shadow = Fcons (maps[i], shadow);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3155 }
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3156
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3157 start1 = get_local_map (BUF_PT (XBUFFER (buffer)),
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3158 XBUFFER (buffer), Qlocal_map);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3159 if (!NILP (start1))
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3160 {
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3161 if (EQ (start1, XBUFFER (buffer)->keymap))
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3162 describe_map_tree (start1, 1, shadow, prefix,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3163 "\f\nMajor Mode Bindings", nomenu, 0, 0, 0);
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3164 else
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3165 describe_map_tree (start1, 1, shadow, prefix,
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3166 "\f\n`local-map' Property Bindings",
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3167 nomenu, 0, 0, 0);
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3168
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3169 shadow = Fcons (start1, shadow);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3170 }
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3171 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3172
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
3173 describe_map_tree (current_global_map, 1, shadow, prefix,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3174 "\f\nGlobal Bindings", nomenu, 0, 1, 0);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3175
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3176 /* Print the function-key-map translations under this prefix. */
83346
7372c2f9daac Rename function-key-map to local-function-key-map, and global-function-key-map to function-key-map. Same for key-translation-map.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
3177 if (!NILP (current_kboard->Vlocal_function_key_map))
7372c2f9daac Rename function-key-map to local-function-key-map, and global-function-key-map to function-key-map. Same for key-translation-map.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
3178 describe_map_tree (current_kboard->Vlocal_function_key_map, 0, Qnil, prefix,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3179 "\f\nFunction key map translations", nomenu, 1, 0, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3180
85106
fd282fb888de Add new `input-decode-map' keymap and use it for temrinal
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83652
diff changeset
3181 /* Print the input-decode-map translations under this prefix. */
fd282fb888de Add new `input-decode-map' keymap and use it for temrinal
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83652
diff changeset
3182 if (!NILP (current_kboard->Vinput_decode_map))
fd282fb888de Add new `input-decode-map' keymap and use it for temrinal
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83652
diff changeset
3183 describe_map_tree (current_kboard->Vinput_decode_map, 0, Qnil, prefix,
fd282fb888de Add new `input-decode-map' keymap and use it for temrinal
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83652
diff changeset
3184 "\f\nInput decoding map translations", nomenu, 1, 0, 0);
fd282fb888de Add new `input-decode-map' keymap and use it for temrinal
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83652
diff changeset
3185
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
3186 UNGCPRO;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3187 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3188 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3189
13947
65488aa49b87 (Flookup_key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13771
diff changeset
3190 /* Insert a description of the key bindings in STARTMAP,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3191 followed by those of all maps reachable through STARTMAP.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3192 If PARTIAL is nonzero, omit certain "uninteresting" commands
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3193 (such as `undefined').
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3194 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
3195 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
3196 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
3197 TITLE, if not 0, is a string to insert at the beginning.
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3198 TITLE should not end with a colon or a newline; we supply that.
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3199 If NOMENU is not 0, then omit menu-bar commands.
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3200
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3201 If TRANSL is nonzero, the definitions are actually key translations
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3202 so print strings and vectors differently.
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3203
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3204 If ALWAYS_TITLE is nonzero, print the title even if there are no maps
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3205 to look through.
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3206
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3207 If MENTION_SHADOW is nonzero, then when something is shadowed by SHADOW,
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3208 don't omit it; instead, mention it but say it is shadowed. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3209
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3210 void
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3211 describe_map_tree (startmap, partial, shadow, prefix, title, nomenu, transl,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3212 always_title, mention_shadow)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3213 Lisp_Object startmap, shadow, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3214 int partial;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3215 char *title;
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3216 int nomenu;
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3217 int transl;
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3218 int always_title;
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3219 int mention_shadow;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3220 {
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3221 Lisp_Object maps, orig_maps, seen, sub_shadows;
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
3222 struct gcpro gcpro1, gcpro2, gcpro3;
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3223 int something = 0;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3224 char *key_heading
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3225 = "\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3226 key binding\n\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3227 --- -------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3228
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3229 orig_maps = maps = Faccessible_keymaps (startmap, prefix);
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3230 seen = Qnil;
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
3231 sub_shadows = Qnil;
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
3232 GCPRO3 (maps, seen, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3233
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3234 if (nomenu)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3235 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3236 Lisp_Object list;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3237
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3238 /* Delete from MAPS each element that is for the menu bar. */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
3239 for (list = maps; CONSP (list); list = XCDR (list))
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3240 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3241 Lisp_Object elt, prefix, tem;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3242
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
3243 elt = XCAR (list);
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3244 prefix = Fcar (elt);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3245 if (XVECTOR (prefix)->size >= 1)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3246 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3247 tem = Faref (prefix, make_number (0));
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3248 if (EQ (tem, Qmenu_bar))
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3249 maps = Fdelq (elt, maps);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3250 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3251 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3252 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3253
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3254 if (!NILP (maps) || always_title)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3255 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3256 if (title)
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3257 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3258 insert_string (title);
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3259 if (!NILP (prefix))
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3260 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3261 insert_string (" Starting With ");
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3262 insert1 (Fkey_description (prefix, Qnil));
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3263 }
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3264 insert_string (":\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3265 }
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3266 insert_string (key_heading);
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3267 something = 1;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3268 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3269
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
3270 for (; CONSP (maps); maps = XCDR (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3271 {
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
3272 register Lisp_Object elt, prefix, tail;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3273
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85106
diff changeset
3274 elt = XCAR (maps);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3275 prefix = Fcar (elt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3276
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3277 sub_shadows = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3278
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3279 for (tail = shadow; CONSP (tail); tail = XCDR (tail))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3280 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3281 Lisp_Object shmap;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3282
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3283 shmap = XCAR (tail);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3284
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3285 /* 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
3286 then the shadow map for this keymap is just SHADOW. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
3287 if ((STRINGP (prefix) && SCHARS (prefix) == 0)
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
3288 || (VECTORP (prefix) && XVECTOR (prefix)->size == 0))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3289 ;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3290 /* 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
3291 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
3292 what we should use. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3293 else
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3294 {
6859
f34b91fa388c (describe_map_tree): Fix call to Flookup_key.
Richard M. Stallman <rms@gnu.org>
parents: 6834
diff changeset
3295 shmap = Flookup_key (shmap, Fcar (elt), Qt);
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
3296 if (INTEGERP (shmap))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3297 shmap = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3298 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3299
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3300 /* 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
3301 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
3302 describe this map at all. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3303 if (!NILP (shmap) && !KEYMAPP (shmap))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3304 goto skip;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3305
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3306 if (!NILP (shmap))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3307 sub_shadows = Fcons (shmap, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3308 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3309
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3310 /* Maps we have already listed in this loop shadow this map. */
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3311 for (tail = orig_maps; !EQ (tail, maps); tail = XCDR (tail))
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3312 {
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3313 Lisp_Object tem;
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3314 tem = Fequal (Fcar (XCAR (tail)), prefix);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3315 if (!NILP (tem))
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3316 sub_shadows = Fcons (XCDR (XCAR (tail)), sub_shadows);
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3317 }
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3318
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3319 describe_map (Fcdr (elt), prefix,
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3320 transl ? describe_translation : describe_command,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3321 partial, sub_shadows, &seen, nomenu, mention_shadow);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3322
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3323 skip: ;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3324 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3325
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3326 if (something)
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3327 insert_string ("\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3328
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3329 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3330 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3331
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3332 static int previous_description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3333
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3334 static void
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3335 describe_command (definition, args)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3336 Lisp_Object definition, args;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3337 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3338 register Lisp_Object tem1;
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
3339 int column = (int) current_column (); /* iftc */
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3340 int description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3341
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3342 /* If column 16 is no good, go to col 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3343 but don't push beyond that--go to next line instead. */
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3344 if (column > 30)
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3345 {
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3346 insert_char ('\n');
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3347 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3348 }
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3349 else if (column > 14 || (column > 10 && previous_description_column == 32))
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3350 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3351 else
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3352 description_column = 16;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3353
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3354 Findent_to (make_number (description_column), make_number (1));
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3355 previous_description_column = description_column;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3356
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
3357 if (SYMBOLP (definition))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3358 {
45404
3885467d7b12 * keymap.c (silly_event_symbol_error, Fsingle_key_description)
Ken Raeburn <raeburn@raeburn.org>
parents: 45279
diff changeset
3359 tem1 = SYMBOL_NAME (definition);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3360 insert1 (tem1);
21539
b9606d56f91f Revert erroneous 1998-04-08 change.
Dave Love <fx@gnu.org>
parents: 21514
diff changeset
3361 insert_string ("\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3362 }
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3363 else if (STRINGP (definition) || VECTORP (definition))
5367
e4f5f2674f34 (describe_command): If binding is a kbd macro, say so.
Richard M. Stallman <rms@gnu.org>
parents: 5246
diff changeset
3364 insert_string ("Keyboard Macro\n");
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3365 else if (KEYMAPP (definition))
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3366 insert_string ("Prefix Command\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3367 else
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3368 insert_string ("??\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3369 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3370
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3371 static void
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3372 describe_translation (definition, args)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3373 Lisp_Object definition, args;
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3374 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3375 register Lisp_Object tem1;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3376
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3377 Findent_to (make_number (16), make_number (1));
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3378
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3379 if (SYMBOLP (definition))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3380 {
45404
3885467d7b12 * keymap.c (silly_event_symbol_error, Fsingle_key_description)
Ken Raeburn <raeburn@raeburn.org>
parents: 45279
diff changeset
3381 tem1 = SYMBOL_NAME (definition);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3382 insert1 (tem1);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3383 insert_string ("\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3384 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3385 else if (STRINGP (definition) || VECTORP (definition))
13343
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
3386 {
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3387 insert1 (Fkey_description (definition, Qnil));
13343
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
3388 insert_string ("\n");
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
3389 }
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3390 else if (KEYMAPP (definition))
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3391 insert_string ("Prefix Command\n");
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3392 else
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3393 insert_string ("??\n");
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3394 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3395
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3396 /* describe_map puts all the usable elements of a sparse keymap
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3397 into an array of `struct describe_map_elt',
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3398 then sorts them by the events. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3399
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3400 struct describe_map_elt { Lisp_Object event; Lisp_Object definition; int shadowed; };
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3401
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3402 /* qsort comparison function for sorting `struct describe_map_elt' by
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3403 the event field. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3404
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3405 static int
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3406 describe_map_compare (aa, bb)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3407 const void *aa, *bb;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3408 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3409 const struct describe_map_elt *a = aa, *b = bb;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3410 if (INTEGERP (a->event) && INTEGERP (b->event))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3411 return ((XINT (a->event) > XINT (b->event))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3412 - (XINT (a->event) < XINT (b->event)));
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3413 if (!INTEGERP (a->event) && INTEGERP (b->event))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3414 return 1;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3415 if (INTEGERP (a->event) && !INTEGERP (b->event))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3416 return -1;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3417 if (SYMBOLP (a->event) && SYMBOLP (b->event))
67994
2e977adcc0e5 (describe_map_compare): Yet another int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67904
diff changeset
3418 return (!NILP (Fstring_lessp (a->event, b->event)) ? -1
2e977adcc0e5 (describe_map_compare): Yet another int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67904
diff changeset
3419 : !NILP (Fstring_lessp (b->event, a->event)) ? 1
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3420 : 0);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3421 return 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3422 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3423
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
3424 /* Describe the contents of map MAP, assuming that this map itself is
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3425 reached by the sequence of prefix keys PREFIX (a string or vector).
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3426 PARTIAL, SHADOW, NOMENU are as in `describe_map_tree' above. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3427
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3428 static void
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3429 describe_map (map, prefix, elt_describer, partial, shadow,
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3430 seen, nomenu, mention_shadow)
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
3431 register Lisp_Object map;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3432 Lisp_Object prefix;
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3433 void (*elt_describer) P_ ((Lisp_Object, Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3434 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3435 Lisp_Object shadow;
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3436 Lisp_Object *seen;
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3437 int nomenu;
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3438 int mention_shadow;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3439 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3440 Lisp_Object tail, definition, event;
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3441 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3442 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3443 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3444 int first = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3445 struct gcpro gcpro1, gcpro2, gcpro3;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3446
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3447 /* These accumulate the values from sparse keymap bindings,
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3448 so we can sort them and handle them in order. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3449 int length_needed = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3450 struct describe_map_elt *vect;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3451 int slots_used = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3452 int i;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3453
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3454 suppress = Qnil;
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3455
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3456 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3457 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3458
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3459 /* 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
3460 that is done once per keymap element, we don't want to cons up a
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3461 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3462 kludge = Fmake_vector (make_number (1), Qnil);
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3463 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3464
93664
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
3465 GCPRO3 (prefix, definition, kludge);
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
3466
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
3467 map = call1 (Qkeymap_canonicalize, map);
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
3468
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3469 for (tail = map; CONSP (tail); tail = XCDR (tail))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3470 length_needed++;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3471
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3472 vect = ((struct describe_map_elt *)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3473 alloca (sizeof (struct describe_map_elt) * length_needed));
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3474
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3475 for (tail = map; CONSP (tail); tail = XCDR (tail))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3476 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3477 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3478
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3479 if (VECTORP (XCAR (tail))
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3480 || CHAR_TABLE_P (XCAR (tail)))
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3481 describe_vector (XCAR (tail),
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3482 prefix, Qnil, elt_describer, partial, shadow, map,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3483 (int *)0, 0, 1, mention_shadow);
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3484 else if (CONSP (XCAR (tail)))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3485 {
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3486 int this_shadowed = 0;
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3487
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3488 event = XCAR (XCAR (tail));
7341
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
3489
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3490 /* Ignore bindings whose "prefix" are not really valid events.
7341
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
3491 (We get these in the frames and buffers menu.) */
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3492 if (!(SYMBOLP (event) || INTEGERP (event)))
7191
bd2f9c5ee54e (Fsingle_key_description): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents: 7186
diff changeset
3493 continue;
7341
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
3494
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3495 if (nomenu && EQ (event, Qmenu_bar))
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3496 continue;
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3497
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3498 definition = get_keyelt (XCDR (XCAR (tail)), 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3499
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3500 /* Don't show undefined commands or suppressed commands. */
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3501 if (NILP (definition)) continue;
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
3502 if (SYMBOLP (definition) && partial)
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3503 {
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3504 tem = Fget (definition, suppress);
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3505 if (!NILP (tem))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3506 continue;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3507 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3508
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3509 /* 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
3510 because a local definition of the same key shadows it. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3511
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
3512 ASET (kludge, 0, event);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3513 if (!NILP (shadow))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3514 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3515 tem = shadow_lookup (shadow, kludge, Qt);
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3516 if (!NILP (tem))
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3517 {
75393
42d89518722a (describe_map): Don't consider prefix keys to be shadowed.
Kim F. Storm <storm@cua.dk>
parents: 75348
diff changeset
3518 /* If both bindings are keymaps, this key is a prefix key,
42d89518722a (describe_map): Don't consider prefix keys to be shadowed.
Kim F. Storm <storm@cua.dk>
parents: 75348
diff changeset
3519 so don't say it is shadowed. */
42d89518722a (describe_map): Don't consider prefix keys to be shadowed.
Kim F. Storm <storm@cua.dk>
parents: 75348
diff changeset
3520 if (KEYMAPP (definition) && KEYMAPP (tem))
42d89518722a (describe_map): Don't consider prefix keys to be shadowed.
Kim F. Storm <storm@cua.dk>
parents: 75348
diff changeset
3521 ;
70554
e1a064810f6f * keymap.c (describe_map): Avoid generating duplicate entries if
Chong Yidong <cyd@stupidchicken.com>
parents: 70536
diff changeset
3522 /* Avoid generating duplicate entries if the
75393
42d89518722a (describe_map): Don't consider prefix keys to be shadowed.
Kim F. Storm <storm@cua.dk>
parents: 75348
diff changeset
3523 shadowed binding has the same definition. */
42d89518722a (describe_map): Don't consider prefix keys to be shadowed.
Kim F. Storm <storm@cua.dk>
parents: 75348
diff changeset
3524 else if (mention_shadow && !EQ (tem, definition))
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3525 this_shadowed = 1;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3526 else
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3527 continue;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3528 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3529 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3530
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
3531 tem = Flookup_key (map, kludge, Qt);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3532 if (!EQ (tem, definition)) continue;
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3533
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3534 vect[slots_used].event = event;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3535 vect[slots_used].definition = definition;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3536 vect[slots_used].shadowed = this_shadowed;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3537 slots_used++;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3538 }
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3539 else if (EQ (XCAR (tail), Qkeymap))
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3540 {
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3541 /* The same keymap might be in the structure twice, if we're
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3542 using an inherited keymap. So skip anything we've already
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3543 encountered. */
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3544 tem = Fassq (tail, *seen);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3545 if (CONSP (tem) && !NILP (Fequal (XCAR (tem), prefix)))
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3546 break;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3547 *seen = Fcons (Fcons (tail, prefix), *seen);
6976
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3548 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3549 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3550
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3551 /* If we found some sparse map events, sort them. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3552
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3553 qsort (vect, slots_used, sizeof (struct describe_map_elt),
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3554 describe_map_compare);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3555
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3556 /* Now output them in sorted order. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3557
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3558 for (i = 0; i < slots_used; i++)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3559 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3560 Lisp_Object start, end;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3561
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3562 if (first)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3563 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3564 previous_description_column = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3565 insert ("\n", 1);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3566 first = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3567 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3568
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3569 ASET (kludge, 0, vect[i].event);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3570 start = vect[i].event;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3571 end = start;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3572
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3573 definition = vect[i].definition;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3574
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3575 /* Find consecutive chars that are identically defined. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3576 if (INTEGERP (vect[i].event))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3577 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3578 while (i + 1 < slots_used
69870
bc9116711ea3 (describe_map): Don't use XINT if we haven't checked INTEGERP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69596
diff changeset
3579 && EQ (vect[i+1].event, make_number (XINT (vect[i].event) + 1))
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3580 && !NILP (Fequal (vect[i + 1].definition, definition))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3581 && vect[i].shadowed == vect[i + 1].shadowed)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3582 i++;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3583 end = vect[i].event;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3584 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3585
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3586 /* Now START .. END is the range to describe next. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3587
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3588 /* Insert the string to describe the event START. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3589 insert1 (Fkey_description (kludge, prefix));
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3590
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3591 if (!EQ (start, end))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3592 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3593 insert (" .. ", 4);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3594
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3595 ASET (kludge, 0, end);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3596 /* Insert the string to describe the character END. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3597 insert1 (Fkey_description (kludge, prefix));
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3598 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3599
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3600 /* Print a description of the definition of this character.
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3601 elt_describer will take care of spacing out far enough
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3602 for alignment purposes. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3603 (*elt_describer) (vect[i].definition, Qnil);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3604
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3605 if (vect[i].shadowed)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3606 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3607 SET_PT (PT - 1);
70083
61d8c79b3c79 (describe_map): Make "shadowed" warning more verbose.
Richard M. Stallman <rms@gnu.org>
parents: 69870
diff changeset
3608 insert_string ("\n (that binding is currently shadowed by another mode)");
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3609 SET_PT (PT + 1);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3610 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3611 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3612
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3613 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3614 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3615
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
3616 static void
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3617 describe_vector_princ (elt, fun)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3618 Lisp_Object elt, fun;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3619 {
3691
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
3620 Findent_to (make_number (16), make_number (1));
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3621 call1 (fun, elt);
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
3622 Fterpri (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3623 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3624
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3625 DEFUN ("describe-vector", Fdescribe_vector, Sdescribe_vector, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3626 doc: /* Insert a description of contents of VECTOR.
55913
c663e2e97168 (Fdescribe_vector): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 55722
diff changeset
3627 This is text showing the elements of vector matched against indices.
c663e2e97168 (Fdescribe_vector): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 55722
diff changeset
3628 DESCRIBER is the output function used; nil means use `princ'. */)
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3629 (vector, describer)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3630 Lisp_Object vector, describer;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3631 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46142
diff changeset
3632 int count = SPECPDL_INDEX ();
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3633 if (NILP (describer))
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3634 describer = intern ("princ");
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
3635 specbind (Qstandard_output, Fcurrent_buffer ());
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40625
diff changeset
3636 CHECK_VECTOR_OR_CHAR_TABLE (vector);
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3637 describe_vector (vector, Qnil, describer, describe_vector_princ, 0,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3638 Qnil, Qnil, (int *)0, 0, 0, 0);
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
3639
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
3640 return unbind_to (count, Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3641 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3642
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3643 /* Insert in the current buffer a description of the contents of VECTOR.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3644 We call ELT_DESCRIBER to insert the description of one value found
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3645 in VECTOR.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3646
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3647 ELT_PREFIX describes what "comes before" the keys or indices defined
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3648 by this vector. This is a human-readable string whose size
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3649 is not necessarily related to the situation.
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3650
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3651 If the vector is in a keymap, ELT_PREFIX is a prefix key which
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3652 leads to this keymap.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3653
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3654 If the vector is a chartable, ELT_PREFIX is the vector
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3655 of bytes that lead to the character set or portion of a character
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3656 set described by this chartable.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3657
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3658 If PARTIAL is nonzero, it means do not mention suppressed commands
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3659 (that assumes the vector is in a keymap).
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3660
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3661 SHADOW is a list of keymaps that shadow this map.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3662 If it is non-nil, then we look up the key in those maps
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3663 and we don't mention it now if it is defined by any of them.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3664
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3665 ENTIRE_MAP is the keymap in which this vector appears.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3666 If the definition in effect in the whole map does not match
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3667 the one in this vector, we ignore this one.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3668
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3669 ARGS is simply passed as the second argument to ELT_DESCRIBER.
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3670
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3671 INDICES and CHAR_TABLE_DEPTH are ignored. They will be removed in
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 55913
diff changeset
3672 the near future.
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3673
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3674 KEYMAP_P is 1 if vector is known to be a keymap, so map ESC to M-.
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3675
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3676 ARGS is simply passed as the second argument to ELT_DESCRIBER. */
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3677
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3678 static void
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3679 describe_vector (vector, prefix, args, elt_describer,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3680 partial, shadow, entire_map,
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3681 indices, char_table_depth, keymap_p,
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3682 mention_shadow)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3683 register Lisp_Object vector;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3684 Lisp_Object prefix, args;
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3685 void (*elt_describer) P_ ((Lisp_Object, Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3686 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3687 Lisp_Object shadow;
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3688 Lisp_Object entire_map;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3689 int *indices;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3690 int char_table_depth;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3691 int keymap_p;
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3692 int mention_shadow;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3693 {
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3694 Lisp_Object definition;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3695 Lisp_Object tem2;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3696 Lisp_Object elt_prefix = Qnil;
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3697 int i;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3698 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3699 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3700 int first = 1;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3701 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3702 /* Range of elements to be handled. */
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3703 int from, to, stop;
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3704 Lisp_Object character;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3705 int starting_i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3706
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3707 suppress = Qnil;
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3708
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3709 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3710
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3711 if (!keymap_p)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3712 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3713 /* Call Fkey_description first, to avoid GC bug for the other string. */
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3714 if (!NILP (prefix) && XFASTINT (Flength (prefix)) > 0)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3715 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3716 Lisp_Object tem;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3717 tem = Fkey_description (prefix, Qnil);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3718 elt_prefix = concat2 (tem, build_string (" "));
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3719 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3720 prefix = Qnil;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3721 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3722
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3723 /* This vector gets used to present single keys to Flookup_key. Since
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3724 that is done once per vector element, we don't want to cons up a
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3725 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3726 kludge = Fmake_vector (make_number (1), Qnil);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3727 GCPRO4 (elt_prefix, prefix, definition, kludge);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3728
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3729 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3730 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3731
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3732 from = 0;
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3733 if (CHAR_TABLE_P (vector))
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3734 stop = MAX_5_BYTE_CHAR + 1, to = MAX_CHAR + 1;
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3735 else
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3736 stop = to = XVECTOR (vector)->size;
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3737
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3738 for (i = from; ; i++)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3739 {
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3740 int this_shadowed = 0;
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3741 int range_beg, range_end;
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3742 Lisp_Object val;
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3743
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3744 QUIT;
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
3745
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3746 if (i == stop)
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3747 {
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3748 if (i == to)
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3749 break;
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3750 stop = to;
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3751 }
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3752
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3753 starting_i = i;
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3754
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3755 if (CHAR_TABLE_P (vector))
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3756 {
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3757 range_beg = i;
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3758 i = stop - 1;
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3759 val = char_table_ref_and_range (vector, range_beg, &range_beg, &i);
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3760 }
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3761 else
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3762 val = AREF (vector, i);
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3763 definition = get_keyelt (val, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3764
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3765 if (NILP (definition)) continue;
17511
10ead0052174 (describe_vector): Test for suppressed commands in
Richard M. Stallman <rms@gnu.org>
parents: 17510
diff changeset
3766
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3767 /* Don't mention suppressed commands. */
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3768 if (SYMBOLP (definition) && partial)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3769 {
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3770 Lisp_Object tem;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3771
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3772 tem = Fget (definition, suppress);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3773
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3774 if (!NILP (tem)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3775 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3776
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3777 character = make_number (starting_i);
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 55913
diff changeset
3778 ASET (kludge, 0, character);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3779
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3780 /* If this binding is shadowed by some other map, ignore it. */
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3781 if (!NILP (shadow))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3782 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3783 Lisp_Object tem;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
3784
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3785 tem = shadow_lookup (shadow, kludge, Qt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3786
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3787 if (!NILP (tem))
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3788 {
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3789 if (mention_shadow)
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3790 this_shadowed = 1;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3791 else
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3792 continue;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3793 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3794 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3795
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3796 /* Ignore this definition if it is shadowed by an earlier
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3797 one in the same keymap. */
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3798 if (!NILP (entire_map))
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3799 {
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3800 Lisp_Object tem;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3801
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3802 tem = Flookup_key (entire_map, kludge, Qt);
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3803
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3804 if (!EQ (tem, definition))
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3805 continue;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3806 }
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3807
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3808 if (first)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3809 {
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3810 insert ("\n", 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3811 first = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3812 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3813
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3814 /* Output the prefix that applies to every entry in this map. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3815 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3816 insert1 (elt_prefix);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3817
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 55913
diff changeset
3818 insert1 (Fkey_description (kludge, prefix));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3819
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
3820 /* Find all consecutive characters or rows that have the same
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3821 definition. But, VECTOR is a char-table, we had better put a
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3822 boundary between normal characters (-#x3FFF7F) and 8-bit
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3823 characters (#x3FFF80-). */
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3824 if (CHAR_TABLE_P (vector))
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3825 {
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3826 while (i + 1 < stop
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3827 && (range_beg = i + 1, range_end = stop - 1,
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3828 val = char_table_ref_and_range (vector, range_beg,
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3829 &range_beg, &range_end),
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3830 tem2 = get_keyelt (val, 0),
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3831 !NILP (tem2))
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3832 && !NILP (Fequal (tem2, definition)))
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3833 i = range_end;
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3834 }
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3835 else
99981
ec7ddeda2233 (describe_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 96747
diff changeset
3836 while (i + 1 < stop
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
3837 && (tem2 = get_keyelt (AREF (vector, i + 1), 0),
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3838 !NILP (tem2))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3839 && !NILP (Fequal (tem2, definition)))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3840 i++;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
3841
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3842 /* If we have a range of more than one character,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3843 print where the range reaches to. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3844
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3845 if (i != starting_i)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3846 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3847 insert (" .. ", 4);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3848
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3849 ASET (kludge, 0, make_number (i));
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3850
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3851 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3852 insert1 (elt_prefix);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3853
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 55913
diff changeset
3854 insert1 (Fkey_description (kludge, prefix));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3855 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3856
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3857 /* Print a description of the definition of this character.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3858 elt_describer will take care of spacing out far enough
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3859 for alignment purposes. */
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3860 (*elt_describer) (definition, args);
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3861
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3862 if (this_shadowed)
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3863 {
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3864 SET_PT (PT - 1);
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3865 insert_string (" (binding currently shadowed)");
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3866 SET_PT (PT + 1);
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3867 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3868 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3869
89810
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3870 if (CHAR_TABLE_P (vector) && ! NILP (XCHAR_TABLE (vector)->defalt))
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3871 {
89810
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3872 if (!NILP (elt_prefix))
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3873 insert1 (elt_prefix);
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3874 insert ("default", 7);
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3875 (*elt_describer) (XCHAR_TABLE (vector)->defalt, args);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3876 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3877
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3878 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3879 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3880
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3881 /* Apropos - finding all symbols whose names match a regexp. */
49059
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3882 static Lisp_Object apropos_predicate;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3883 static Lisp_Object apropos_accumulate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3884
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3885 static void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3886 apropos_accum (symbol, string)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3887 Lisp_Object symbol, string;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3888 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3889 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3890
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3891 tem = Fstring_match (string, Fsymbol_name (symbol), Qnil);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3892 if (!NILP (tem) && !NILP (apropos_predicate))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3893 tem = call1 (apropos_predicate, symbol);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3894 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3895 apropos_accumulate = Fcons (symbol, apropos_accumulate);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3896 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3897
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
3898 DEFUN ("apropos-internal", Fapropos_internal, Sapropos_internal, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3899 doc: /* Show all symbols whose names contain match for REGEXP.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3900 If optional 2nd arg PREDICATE is non-nil, (funcall PREDICATE SYMBOL) is done
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3901 for each symbol and a symbol is mentioned only if that returns non-nil.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3902 Return list of symbols found. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3903 (regexp, predicate)
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3904 Lisp_Object regexp, predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3905 {
49059
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3906 Lisp_Object tem;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40625
diff changeset
3907 CHECK_STRING (regexp);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3908 apropos_predicate = predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3909 apropos_accumulate = Qnil;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3910 map_obarray (Vobarray, apropos_accum, regexp);
49059
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3911 tem = Fsort (apropos_accumulate, Qstring_lessp);
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3912 apropos_accumulate = Qnil;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3913 apropos_predicate = Qnil;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3914 return tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3915 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3916
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21429
diff changeset
3917 void
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3918 syms_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3919 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3920 Qkeymap = intern ("keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3921 staticpro (&Qkeymap);
49059
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3922 staticpro (&apropos_predicate);
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3923 staticpro (&apropos_accumulate);
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3924 apropos_predicate = Qnil;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3925 apropos_accumulate = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3926
93664
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
3927 Qkeymap_canonicalize = intern ("keymap-canonicalize");
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
3928 staticpro (&Qkeymap_canonicalize);
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93205
diff changeset
3929
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3930 /* Now we are ready to set up this property, so we can
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3931 create char tables. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3932 Fput (Qkeymap, Qchar_table_extra_slots, make_number (0));
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3933
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3934 /* Initialize the keymaps standardly used.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3935 Each one is the value of a Lisp variable, and is also
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3936 pointed to by a C variable */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3937
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3938 global_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3939 Fset (intern ("global-map"), global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3940
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3941 current_global_map = global_map;
16227
6acf08913847 (syms_of_keymap): staticpro global_map.
Erik Naggum <erik@naggum.no>
parents: 16125
diff changeset
3942 staticpro (&global_map);
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3943 staticpro (&current_global_map);
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3944
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3945 meta_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3946 Fset (intern ("esc-map"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3947 Ffset (intern ("ESC-prefix"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3948
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3949 control_x_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3950 Fset (intern ("ctl-x-map"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3951 Ffset (intern ("Control-X-prefix"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3952
42378
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3953 exclude_keys
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3954 = Fcons (Fcons (build_string ("DEL"), build_string ("\\d")),
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3955 Fcons (Fcons (build_string ("TAB"), build_string ("\\t")),
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3956 Fcons (Fcons (build_string ("RET"), build_string ("\\r")),
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3957 Fcons (Fcons (build_string ("ESC"), build_string ("\\e")),
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3958 Fcons (Fcons (build_string ("SPC"), build_string (" ")),
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3959 Qnil)))));
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3960 staticpro (&exclude_keys);
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3961
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3962 DEFVAR_LISP ("define-key-rebound-commands", &Vdefine_key_rebound_commands,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3963 doc: /* List of commands given new key bindings recently.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3964 This is used for internal purposes during Emacs startup;
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3965 don't alter it yourself. */);
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3966 Vdefine_key_rebound_commands = Qt;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3967
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3968 DEFVAR_LISP ("minibuffer-local-map", &Vminibuffer_local_map,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3969 doc: /* 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
3970 Vminibuffer_local_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3971
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3972 DEFVAR_LISP ("minibuffer-local-ns-map", &Vminibuffer_local_ns_map,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3973 doc: /* 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
3974 Vminibuffer_local_ns_map = Fmake_sparse_keymap (Qnil);
39837
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
3975 Fset_keymap_parent (Vminibuffer_local_ns_map, Vminibuffer_local_map);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3976
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3977 DEFVAR_LISP ("minibuffer-local-completion-map", &Vminibuffer_local_completion_map,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3978 doc: /* 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
3979 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil);
39837
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
3980 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3981
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
3982 DEFVAR_LISP ("minibuffer-local-filename-completion-map",
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3983 &Vminibuffer_local_filename_completion_map,
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3984 doc: /* Local keymap for minibuffer input with completion for filenames. */);
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3985 Vminibuffer_local_filename_completion_map = Fmake_sparse_keymap (Qnil);
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
3986 Fset_keymap_parent (Vminibuffer_local_filename_completion_map,
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3987 Vminibuffer_local_completion_map);
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3988
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3989
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3990 DEFVAR_LISP ("minibuffer-local-must-match-map", &Vminibuffer_local_must_match_map,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3991 doc: /* 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
3992 Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil);
39837
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
3993 Fset_keymap_parent (Vminibuffer_local_must_match_map,
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
3994 Vminibuffer_local_completion_map);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3995
95575
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
3996 DEFVAR_LISP ("minibuffer-local-filename-must-match-map",
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
3997 &Vminibuffer_local_filename_must_match_map,
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3998 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */);
95575
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
3999 Vminibuffer_local_filename_must_match_map = Fmake_sparse_keymap (Qnil);
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
4000 Fset_keymap_parent (Vminibuffer_local_filename_must_match_map,
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
4001 Vminibuffer_local_must_match_map);
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
4002
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
4003 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
4004 doc: /* Alist of keymaps to use for minor modes.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
4005 Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
4006 key sequences and look up bindings if VARIABLE's value is non-nil.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
4007 If two active keymaps bind the same key, the keymap appearing earlier
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
4008 in the list takes precedence. */);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
4009 Vminor_mode_map_alist = Qnil;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
4010
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
4011 DEFVAR_LISP ("minor-mode-overriding-map-alist", &Vminor_mode_overriding_map_alist,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
4012 doc: /* Alist of keymaps to use for minor modes, in current major mode.
46133
14893800e663 (syms_of_keymap): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 45619
diff changeset
4013 This variable is an alist just like `minor-mode-map-alist', and it is
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
4014 used the same way (and before `minor-mode-map-alist'); however,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
4015 it is provided for major modes to bind locally. */);
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
4016 Vminor_mode_overriding_map_alist = Qnil;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
4017
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4018 DEFVAR_LISP ("emulation-mode-map-alists", &Vemulation_mode_map_alists,
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4019 doc: /* List of keymap alists to use for emulations modes.
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4020 It is intended for modes or packages using multiple minor-mode keymaps.
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4021 Each element is a keymap alist just like `minor-mode-map-alist', or a
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4022 symbol with a variable binding which is a keymap alist, and it is used
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4023 the same way. The "active" keymaps in each alist are used before
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
4024 `minor-mode-map-alist' and `minor-mode-overriding-map-alist'. */);
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4025 Vemulation_mode_map_alists = Qnil;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
4026
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4027 DEFVAR_LISP ("where-is-preferred-modifier", &Vwhere_is_preferred_modifier,
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4028 doc: /* Preferred modifier to use for `where-is'.
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4029 When a single binding is requested, `where-is' will return one that
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4030 uses this modifier if possible. If nil, or if no such binding exists,
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4031 bindings using keys without modifiers (or only with meta) will be
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4032 preferred. */);
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4033 Vwhere_is_preferred_modifier = Qnil;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4034 where_is_preferred_modifier = 0;
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4035
53808
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4036 staticpro (&Vmouse_events);
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4037 Vmouse_events = Fcons (intern ("menu-bar"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4038 Fcons (intern ("tool-bar"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4039 Fcons (intern ("header-line"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4040 Fcons (intern ("mode-line"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4041 Fcons (intern ("mouse-1"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4042 Fcons (intern ("mouse-2"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4043 Fcons (intern ("mouse-3"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4044 Fcons (intern ("mouse-4"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4045 Fcons (intern ("mouse-5"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
4046 Qnil)))))))));
50141
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
4047
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
4048
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4049 Qsingle_key_description = intern ("single-key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4050 staticpro (&Qsingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4051
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4052 Qkey_description = intern ("key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4053 staticpro (&Qkey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4054
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4055 Qkeymapp = intern ("keymapp");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4056 staticpro (&Qkeymapp);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4057
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
4058 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
4059 staticpro (&Qnon_ascii);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
4060
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
4061 Qmenu_item = intern ("menu-item");
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
4062 staticpro (&Qmenu_item);
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
4063
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
4064 Qremap = intern ("remap");
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
4065 staticpro (&Qremap);
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
4066
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
4067 command_remapping_vector = Fmake_vector (make_number (2), Qremap);
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
4068 staticpro (&command_remapping_vector);
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
4069
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4070 where_is_cache_keymaps = Qt;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4071 where_is_cache = Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4072 staticpro (&where_is_cache);
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4073 staticpro (&where_is_cache_keymaps);
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4074
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4075 defsubr (&Skeymapp);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
4076 defsubr (&Skeymap_parent);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
4077 defsubr (&Skeymap_prompt);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
4078 defsubr (&Sset_keymap_parent);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4079 defsubr (&Smake_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4080 defsubr (&Smake_sparse_keymap);
93205
29c57be95740 (map_keymap_internal): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93204
diff changeset
4081 defsubr (&Smap_keymap_internal);
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
4082 defsubr (&Smap_keymap);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4083 defsubr (&Scopy_keymap);
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
4084 defsubr (&Scommand_remapping);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4085 defsubr (&Skey_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4086 defsubr (&Slocal_key_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4087 defsubr (&Sglobal_key_binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
4088 defsubr (&Sminor_mode_key_binding);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4089 defsubr (&Sdefine_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4090 defsubr (&Slookup_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4091 defsubr (&Sdefine_prefix_command);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4092 defsubr (&Suse_global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4093 defsubr (&Suse_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4094 defsubr (&Scurrent_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4095 defsubr (&Scurrent_global_map);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
4096 defsubr (&Scurrent_minor_mode_maps);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
4097 defsubr (&Scurrent_active_maps);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4098 defsubr (&Saccessible_keymaps);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4099 defsubr (&Skey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4100 defsubr (&Sdescribe_vector);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4101 defsubr (&Ssingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4102 defsubr (&Stext_char_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4103 defsubr (&Swhere_is_internal);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
4104 defsubr (&Sdescribe_buffer_bindings);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4105 defsubr (&Sapropos_internal);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4106 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4107
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21429
diff changeset
4108 void
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4109 keys_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4110 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4111 initial_define_key (global_map, 033, "ESC-prefix");
96747
ebf3bd5f0017 * keymap.c: Remove all NS-specific code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 96675
diff changeset
4112 initial_define_key (global_map, Ctl ('X'), "Control-X-prefix");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4113 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51034
diff changeset
4114
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51034
diff changeset
4115 /* arch-tag: 6dd15c26-7cf1-41c4-b904-f42f7ddda463
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51034
diff changeset
4116 (do not change this comment) */