annotate src/keymap.c @ 90602:b5c13d1564a9

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 437-446) - Update from CVS - lisp/url/url-methods.el: Fix format error when http_proxy is empty string - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 137-140) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-111
author Miles Bader <miles@gnu.org>
date Wed, 20 Sep 2006 06:04:23 +0000
parents a1a25ac6c88a f9742f561ed9
children bb0e318b7c53
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,
68651
3bd95f4f2941 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 68397
diff changeset
4 2005, 2006 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
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 GNU Emacs is free software; you can redistribute it and/or modify
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
647
529171c8b71c entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 517
diff changeset
10 the Free Software Foundation; either version 2, or (at your option)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 any later version.
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
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61421
diff changeset
20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61421
diff changeset
21 Boston, MA 02110-1301, USA. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4575
diff changeset
24 #include <config.h>
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #include <stdio.h>
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
26 #if HAVE_ALLOCA_H
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
27 # include <alloca.h>
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
28 #endif
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 #include "lisp.h"
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 #include "commands.h"
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 #include "buffer.h"
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
32 #include "character.h"
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
33 #include "charset.h"
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
34 #include "keyboard.h"
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
35 #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
36 #include "blockinput.h"
13771
28790743a5a3 (Fkey_binding): Handle text-property keymaps.
Karl Heuer <kwzh@gnu.org>
parents: 13343
diff changeset
37 #include "puresize.h"
29282
59f2b30d577b Include intervals.h.
Dave Love <fx@gnu.org>
parents: 29013
diff changeset
38 #include "intervals.h"
39697
0b986bb45526 Include keymap.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39689
diff changeset
39 #include "keymap.h"
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
40 #include "window.h"
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
42 /* The number of elements in keymap vectors. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 #define DENSE_TABLE_SIZE (0200)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 /* Actually allocate storage for these variables */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 Lisp_Object current_global_map; /* Current global keymap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 Lisp_Object global_map; /* default global key bindings */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 Lisp_Object meta_map; /* The keymap used for globally bound
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 ESC-prefixed default commands */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 Lisp_Object control_x_map; /* The keymap used for globally bound
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 C-x-prefixed default commands */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 /* was MinibufLocalMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 Lisp_Object Vminibuffer_local_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 /* The keymap used by the minibuf for local
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 bindings when spaces are allowed in the
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 minibuf */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 /* was MinibufLocalNSMap */
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
64 Lisp_Object Vminibuffer_local_ns_map;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 /* The keymap used by the minibuf for local
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 bindings when spaces are not encouraged
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 in the minibuf */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 /* keymap used for minibuffers when doing completion */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 /* was MinibufLocalCompletionMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 Lisp_Object Vminibuffer_local_completion_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
73 /* keymap used for minibuffers when doing completion in filenames */
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
74 Lisp_Object Vminibuffer_local_filename_completion_map;
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
75
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
76 /* 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
77 with require-match*/
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
78 Lisp_Object Vminibuffer_local_must_match_filename_map;
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
79
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 /* keymap used for minibuffers when doing completion and require a match */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 /* was MinibufLocalMustMatchMap */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 Lisp_Object Vminibuffer_local_must_match_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
84 /* Alist of minor mode variables and keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
85 Lisp_Object Vminor_mode_map_alist;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
86
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
87 /* 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
88 minor mode variables and keymaps. */
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
89 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
90
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
91 /* List of emulation mode keymap alists. */
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
92 Lisp_Object Vemulation_mode_map_alists;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
93
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
94 /* Keymap mapping ASCII function key sequences onto their preferred forms.
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
95 Initialized by the terminal-specific lisp files. See DEFVAR for more
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
96 documentation. */
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
97 Lisp_Object Vfunction_key_map;
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
98
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
99 /* Keymap mapping ASCII function key sequences onto their preferred forms. */
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
100 Lisp_Object Vkey_translation_map;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
101
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
102 /* 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
103 when nil was stored here.
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
104 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
105 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
106 Lisp_Object Vdefine_key_rebound_commands;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
107
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
108 Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii, Qmenu_item, Qremap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109
42381
810b3bfc52cf Fix previous change; also correct its change log:
Richard M. Stallman <rms@gnu.org>
parents: 42378
diff changeset
110 /* 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
111 static Lisp_Object exclude_keys;
810b3bfc52cf Fix previous change; also correct its change log:
Richard M. Stallman <rms@gnu.org>
parents: 42378
diff changeset
112
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
113 /* 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
114 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
115
2886
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
116 /* 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
117 in a string key sequence is equivalent to prefixing with this
ad36d1481295 Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2790
diff changeset
118 character. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 extern Lisp_Object meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
121 extern Lisp_Object Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
122
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
123 /* 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
124 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
125 /* 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
126 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
127
31208
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
128 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
129 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
130
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
131 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
132 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
133 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
134 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
135 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
136 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
137 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
138 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
139 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
140 int, int, int));
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
141 static void silly_event_symbol_error P_ ((Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
143 /* Keymap object support - constructors and predicates. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
144
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
145 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
146 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
147 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
148 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
149 "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
150 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
151 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
152
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
153 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
154 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
155 (string)
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
156 Lisp_Object string;
250
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 Lisp_Object tail;
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
159 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
160 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
161 else
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
162 tail = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 return Fcons (Qkeymap,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
164 Fcons (Fmake_char_table (Qkeymap, Qnil), tail));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
167 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
168 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
169 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
170 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
171 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
172 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
173
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
174 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
175 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
176 (string)
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
177 Lisp_Object string;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 {
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
179 if (!NILP (string))
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
180 return Fcons (Qkeymap, Fcons (string, Qnil));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 return Fcons (Qkeymap, Qnil);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 /* This function is used for installing the standard key bindings
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 at initialization time.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 For example:
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
189 initial_define_key (control_x_map, Ctl('X'), "exchange-point-and-mark"); */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 initial_define_key (keymap, key, defname)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 int key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195 char *defname;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 store_in_keymap (keymap, make_number (key), intern (defname));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
200 void
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
201 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
202 Lisp_Object keymap;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
203 char *keyname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
204 char *defname;
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
205 {
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
206 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
207 }
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
208
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 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
210 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
211
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
212 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
213 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
214 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
215 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
216 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
217 (object)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 Lisp_Object object;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
220 return (KEYMAPP (object) ? Qt : Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
223 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
224 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
225 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
226 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
227 (map)
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
228 Lisp_Object map;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
229 {
58129
6f1bde62e20e (Fkeymap_prompt): Accept symbol keymaps.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57478
diff changeset
230 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
231 while (CONSP (map))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
232 {
58129
6f1bde62e20e (Fkeymap_prompt): Accept symbol keymaps.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57478
diff changeset
233 Lisp_Object tem = XCAR (map);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
234 if (STRINGP (tem))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
235 return tem;
58129
6f1bde62e20e (Fkeymap_prompt): Accept symbol keymaps.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 57478
diff changeset
236 map = XCDR (map);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
237 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
238 return Qnil;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
239 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
240
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 /* 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
242 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
243
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
244 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
245 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
246 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
247
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
248 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
249 is zero as well), return Qt.
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
250
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
251 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
252 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
253
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
254 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
255 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
256 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
257 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
258 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
259
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
260 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
261 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
262
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 Lisp_Object
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
264 get_keymap (object, error, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 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
266 int error, autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 {
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
268 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
270 autoload_retry:
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
271 if (NILP (object))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
272 goto end;
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
273 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
274 return object;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
275
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
276 tem = indirect_function (object);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
277 if (CONSP (tem))
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
278 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
279 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
280 return tem;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
281
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
282 /* 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
283 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
284 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
285 && 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
286 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
287 Lisp_Object tail;
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
288
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
289 tail = Fnth (make_number (4), tem);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
290 if (EQ (tail, Qkeymap))
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
291 {
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
292 if (autoload)
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
293 {
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
294 struct gcpro gcpro1, gcpro2;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
295
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
296 GCPRO2 (tem, object);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
297 do_autoload (tem, object);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
298 UNGCPRO;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
299
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
300 goto autoload_retry;
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
301 }
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
302 else
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
303 return Qt;
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
304 }
1566
892c9f61217a * keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
Jim Blandy <jimb@redhat.com>
parents: 1517
diff changeset
305 }
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
306 }
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
307
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
308 end:
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 if (error)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 wrong_type_argument (Qkeymapp, object);
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
311 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
313
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
314 /* 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
315 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
316
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
317 Lisp_Object
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
318 keymap_parent (keymap, autoload)
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
319 Lisp_Object keymap;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
320 int autoload;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
321 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
322 Lisp_Object list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
323
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
324 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
325
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
326 /* 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
327 list = XCDR (keymap);
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
328 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
329 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
330 /* 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
331 if (KEYMAPP (list))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
332 return list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
333 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
334
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
335 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
336 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
337
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
338 DEFUN ("keymap-parent", Fkeymap_parent, Skeymap_parent, 1, 1, 0,
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
339 doc: /* Return the parent keymap of KEYMAP. */)
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
340 (keymap)
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
341 Lisp_Object keymap;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
342 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
343 return keymap_parent (keymap, 1);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
344 }
31496
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
345
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
346 /* Check whether MAP is one of MAPS parents. */
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
347 int
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
348 keymap_memberp (map, maps)
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
349 Lisp_Object map, maps;
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
350 {
32559
bc60bd171784 (keymap_memberp): Ensure that nil is not a member.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32478
diff changeset
351 if (NILP (map)) return 0;
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
352 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
353 maps = keymap_parent (maps, 0);
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
354 return (EQ (map, maps));
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
355 }
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
356
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
357 /* 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
358
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
359 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
360 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
361 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
362 (keymap, parent)
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
363 Lisp_Object keymap, parent;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
364 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
365 Lisp_Object list, prev;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
366 struct gcpro gcpro1, gcpro2;
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
367 int i;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
368
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
369 /* 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
370 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
371 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
372 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
373 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
374 adverse effect.
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
375 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
376 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
377
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
378 GCPRO2 (keymap, parent);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
379 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
380
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
381 if (!NILP (parent))
31496
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
382 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
383 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
384
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
385 /* Check for cycles. */
32038
0cb9cab990cb (keymap_memberp): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31989
diff changeset
386 if (keymap_memberp (keymap, parent))
31496
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
387 error ("Cyclic keymap inheritance");
946e1ba42cc9 (Fset_keymap_parent): Check for cycles in keymap
Gerd Moellmann <gerd@gnu.org>
parents: 31232
diff changeset
388 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
389
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
390 /* Skip past the initial element `keymap'. */
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
391 prev = keymap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
392 while (1)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
393 {
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
394 list = XCDR (prev);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
395 /* 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
396 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
397 if (!CONSP (list) || KEYMAPP (list))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
398 {
15422
dd639432a55a (Fset_keymap_parent): Return early if KEYMAP already has the proper parent.
Richard M. Stallman <rms@gnu.org>
parents: 15378
diff changeset
399 /* 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
400 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
401 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
402 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
403
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
404 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
405 XSETCDR (prev, parent);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
406 break;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
407 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
408 prev = list;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
409 }
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 /* 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
412
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
413 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
414 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
415 /* 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
416 if (EQ (XCAR (list), Qkeymap))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
417 break;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
418
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
419 /* 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
420 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
421 && 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
422 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
423 XCDR (XCAR (list)));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
424
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
425 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
426 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
427 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
428 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
429 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
430
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
431 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
432 {
89551
28a8f2be4414 (Fset_keymap_parent, map_keymap, Fcopy_keymap)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
433 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
434 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
435 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
436
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
437 RETURN_UNGCPRO (parent);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
438 }
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 /* 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
441 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
442 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
443
31208
442d40fce0db (store_in_keymap, fix_submap_inheritance): New prototypes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30780
diff changeset
444 static void
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
445 fix_submap_inheritance (map, event, submap)
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
446 Lisp_Object map, event, submap;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
447 {
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
448 Lisp_Object map_parent, parent_entry;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
449
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
450 /* 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
451 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
452
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
453 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
454
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
455 /* 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
456 if (!CONSP (submap))
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
457 return;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
458
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
459 map_parent = keymap_parent (map, 0);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
460 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
461 parent_entry =
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
462 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
463 else
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
464 parent_entry = Qnil;
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
465
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
466 /* 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
467 our own submap shadows it completely. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
468 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
469 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
470
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
471 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
472 {
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
473 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
474 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
475 while (1)
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
476 {
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
477 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
478
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
479 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
480
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
481 if (KEYMAPP (tem))
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
482 {
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
483 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
484 /* 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
485 return;
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
486 submap_parent = tem;
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
487 }
25600
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
488 else
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
489 break;
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
490 }
6cea4c28fc1c (fix_submap_inheritance): Do nothing if the proper parent is an
Richard M. Stallman <rms@gnu.org>
parents: 25128
diff changeset
491 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
492 }
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
493 }
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
494
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
495 /* 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
496 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
497 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
498
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
499 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
500 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
501 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
502
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
503 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
504
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
505 If NOINHERIT, don't accept a subkeymap found in an inherited keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 Lisp_Object
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
508 access_keymap (map, idx, t_ok, noinherit, autoload)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 Lisp_Object idx;
1388
02226bff1476 * keymap.c (initial_define_lispy_key): New function, for defining
Jim Blandy <jimb@redhat.com>
parents: 1315
diff changeset
511 int t_ok;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
512 int noinherit;
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
513 int autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 {
40791
97673fa0eaa7 (access_keymap): Don't use initializers on Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
515 Lisp_Object val;
97673fa0eaa7 (access_keymap): Don't use initializers on Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
516
97673fa0eaa7 (access_keymap): Don't use initializers on Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
517 /* 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
518 val = Qunbound;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
519
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 /* If idx is a list (some sort of mouse click, perhaps?),
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 the index we want to use is the car of the list, which
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522 ought to be a symbol. */
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
523 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
525 /* 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
526 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
527 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
528 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
529 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
530 /* 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
531 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
532 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
534 /* Handle the special meta -> esc mapping. */
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
535 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
536 {
32615
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
537 /* 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
538 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
539 struct gcpro gcpro1;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
540 Lisp_Object meta_map;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
541 GCPRO1 (map);
59661
e7a8549bb201 (access_keymap): Protect from bad value of meta_prefix_char.
Richard M. Stallman <rms@gnu.org>
parents: 59522
diff changeset
542 /* 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
543 infinite recursion. Protect against that. */
59754
a9fbaec66c84 (access_keymap): YAILOM.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59661
diff changeset
544 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
545 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
546 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
547 t_ok, noinherit, autoload),
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
548 0, autoload);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
549 UNGCPRO;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
550 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
551 {
32739
5ce157b2eaa9 (fix_submap_inheritance): Don't do anything if parent_entry
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32615
diff changeset
552 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
553 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
554 }
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
555 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
556 /* 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
557 idx = Qt;
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
558 else
5f6178a60e6b (access_keymap): If IDX has a meta prefix, and there's
Gerd Moellmann <gerd@gnu.org>
parents: 32559
diff changeset
559 /* 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
560 return Qnil;
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
561 }
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
562
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
563 /* 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
564 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
565 for this key sequence. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
567 Lisp_Object tail;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
568 Lisp_Object t_binding = Qnil;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
569 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
570
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
571 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
572
88821
690d527d1ad2 (access_keymap): Remove generic char code.
Dave Love <fx@gnu.org>
parents: 88747
diff changeset
573 /* If `t_ok' is 2, both `t' is accepted. */
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
574 t_ok = t_ok ? 2 : 0;
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
575
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
576 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
577 (CONSP (tail)
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
578 || (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
579 tail = XCDR (tail))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
580 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
581 Lisp_Object binding;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
583 binding = XCAR (tail);
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
584 if (SYMBOLP (binding))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
585 {
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
586 /* If NOINHERIT, stop finding prefix definitions
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
587 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
588 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
589 RETURN_UNGCPRO (Qnil);
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
590 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
591 else if (CONSP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
592 {
38888
bf8f70dc79f4 (access_keymap): If a binding of the form (GENERIC-CHAR
Gerd Moellmann <gerd@gnu.org>
parents: 37938
diff changeset
593 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
594
38888
bf8f70dc79f4 (access_keymap): If a binding of the form (GENERIC-CHAR
Gerd Moellmann <gerd@gnu.org>
parents: 37938
diff changeset
595 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
596 val = XCDR (binding);
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
597 else if (t_ok > 1 && EQ (key, Qt))
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
598 {
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
599 t_binding = XCDR (binding);
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
600 t_ok = 1;
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
601 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
602 }
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
603 else if (VECTORP (binding))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
604 {
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
605 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
606 val = AREF (binding, XFASTINT (idx));
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
607 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
608 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
609 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
610 /* 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
611 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
612 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
613 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
614 {
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
615 val = Faref (binding, idx);
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
616 /* `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
617 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
618 unbound entry. */
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
619 if (NILP (val))
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
620 val = Qunbound;
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
621 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
622 }
1264
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
623
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
624 /* 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
625 if (!EQ (val, Qunbound))
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
626 {
41593
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
627 if (EQ (val, Qt))
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
628 /* 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
629 (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
630 keymaps of lower precedence). */
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
631 val = Qnil;
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
632 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
633 if (KEYMAPP (val))
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
634 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
635 RETURN_UNGCPRO (val);
39940
a6ced7cb88d9 (access_keymap): Unify handling of `t' and generic-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39837
diff changeset
636 }
1264
6ba9d5aaace6 * keymap.c (access_keymap): Don't forget to QUIT while scanning
Jim Blandy <jimb@redhat.com>
parents: 1236
diff changeset
637 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
638 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
639 UNGCPRO;
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
640 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
641 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
642 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
643
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
644 static void
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
645 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
646 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
647 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
648 void *data;
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 /* 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
651 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
652 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
653 val = Qnil;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
654 (*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
655 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
656
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
657 static void
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
658 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
659 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
660 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
661 if (!NILP (val))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
662 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
663 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
664 args = XCDR (args);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
665 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
666 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
667 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
668 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
669
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
670 /* Call FUN for every binding in MAP.
50828
997060f8dbbb (map_keymap): Doc fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50798
diff changeset
671 FUN is called with 4 arguments: FUN (KEY, BINDING, ARGS, DATA).
997060f8dbbb (map_keymap): Doc fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50798
diff changeset
672 AUTOLOAD if non-zero means that we can autoload keymaps if necessary. */
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
673 void
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
674 map_keymap (map, fun, args, data, autoload)
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
675 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
676 Lisp_Object map, args;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
677 void *data;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
678 int autoload;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
679 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
680 struct gcpro gcpro1, gcpro2, gcpro3;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
681 Lisp_Object tail;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
682
69596
f646e7ad8c27 (map_keymap): Set tail to Qnil before GCPRO it.
Kenichi Handa <handa@m17n.org>
parents: 69392
diff changeset
683 tail = Qnil;
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
684 GCPRO3 (map, args, tail);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
685 map = get_keymap (map, 1, autoload);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
686 for (tail = (CONSP (map) && EQ (Qkeymap, XCAR (map))) ? XCDR (map) : map;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
687 CONSP (tail) || (tail = get_keymap (tail, 0, autoload), CONSP (tail));
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
688 tail = XCDR (tail))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
689 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
690 Lisp_Object binding = XCAR (tail);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
691
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
692 if (CONSP (binding))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
693 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
694 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
695 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
696 /* 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
697 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
698 int c;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
699 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
700 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
701 Lisp_Object character;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
702 XSETFASTINT (character, c);
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
703 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
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 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
707 {
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
708 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
709 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
710 Fcons (make_save_value (data, 0),
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
711 args)));
50798
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 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
714 UNGCPRO;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
715 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
716
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
717 static void
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
718 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
719 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
720 void *dummy;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
721 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
722 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
723 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
724
58271
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
725 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
726 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
727 FUNCTION is called with two arguments: the event that is bound, and
d25897b05660 (Fmap_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 67994
diff changeset
728 the definition it is bound to.
d25897b05660 (Fmap_keymap): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 67994
diff changeset
729
56635
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
730 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
731 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
732 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
733 usage: (map-keymap FUNCTION KEYMAP) */)
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
734 (function, keymap, sort_first)
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
735 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
736 {
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
737 if (INTEGERP (function))
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
738 /* We have to stop integers early since map_keymap gives them special
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
739 significance. */
71982
df96acbe2970 (Fmap_keymap): Use xsignal1.
Kim F. Storm <storm@cua.dk>
parents: 71836
diff changeset
740 xsignal1 (Qinvalid_function, function);
58271
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
741 if (! NILP (sort_first))
8b3b0ccbe80b (Fmap_keymap): New arg SORT-FIRST. Use
Richard M. Stallman <rms@gnu.org>
parents: 58129
diff changeset
742 return call3 (intern ("map-keymap-internal"), function, keymap, Qt);
65456
d9638b932900 (Fdescribe_buffer_bindings): Reload `translate'
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
743
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
744 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
745 return Qnil;
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
746 }
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
747
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 /* Given OBJECT which was found in a slot in a keymap,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749 trace indirect definitions to get the actual definition of that slot.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 An indirect definition is a list of the form
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 (KEYMAP . INDEX), where KEYMAP is a keymap or a symbol defined as one
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 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
753
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754 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
755 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
756
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
757 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
758 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
759
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
760 This can GC because menu_item_eval_property calls Feval. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
761
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
762 Lisp_Object
6774
a29237d1fdca (get_keymap): Pass 1 as ERROR to get_keymap_1.
Richard M. Stallman <rms@gnu.org>
parents: 6695
diff changeset
763 get_keyelt (object, autoload)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
764 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
765 int autoload;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 {
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
769 if (!(CONSP (object)))
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
770 /* This is really the value. */
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
771 return object;
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
772
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
773 /* 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
774 then use itself. */
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
775 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
776 return object;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
778 /* 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
779 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
780 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
781 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
782 {
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
783 if (CONSP (XCDR (object)))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
784 {
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
785 Lisp_Object tem;
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
786
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
787 object = XCDR (XCDR (object));
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
788 tem = object;
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
789 if (CONSP (object))
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
790 object = XCAR (object);
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
791
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
792 /* 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
793 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
794 use. */
29941
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
795 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
796 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
797 {
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
798 Lisp_Object filter;
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
799 filter = XCAR (XCDR (tem));
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
800 filter = list2 (filter, list2 (Qquote, object));
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
801 object = menu_item_eval_property (filter);
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
802 break;
0c77254c90b8 (get_keyelt): For menu-items containing a `:filter
Gerd Moellmann <gerd@gnu.org>
parents: 29726
diff changeset
803 }
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
804 }
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
805 else
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
806 /* Invalid keymap. */
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
807 return object;
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
808 }
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
809
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
810 /* 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
811 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
812 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
813 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
814 {
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
815 object = XCDR (object);
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
816 /* 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
817 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
818 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
819 object = XCDR (object);
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
820 /* 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
821 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
822 {
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
823 Lisp_Object carcar;
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
824 carcar = XCAR (XCAR (object));
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
825 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
826 object = XCDR (object);
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
827 }
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
828 }
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
829
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
830 /* If the contents are (KEYMAP . ELEMENT), go indirect. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 else
25128
2563b35e613f (get_keymap_1, get_keyelt): Check the type of OBJECT
Karl Heuer <kwzh@gnu.org>
parents: 24572
diff changeset
832 {
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
833 struct gcpro gcpro1;
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
834 Lisp_Object map;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
835 GCPRO1 (object);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
836 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
837 UNGCPRO;
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
838 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
839 : 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
840 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843
31232
5213900983ed (store_in_keymap): Add `static' to declaration.
Dave Love <fx@gnu.org>
parents: 31208
diff changeset
844 static Lisp_Object
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845 store_in_keymap (keymap, idx, def)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 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
848 Lisp_Object def;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 {
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
850 /* 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
851 where_is_cache = Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
852 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
853
10367
e1c7a3f0c15f (store_in_keymap): Copy a cons only if car is a string.
Richard M. Stallman <rms@gnu.org>
parents: 10305
diff changeset
854 /* 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
855 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
856 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
857 && (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
858 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
859
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
860 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
861 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
862
89640
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
863 /* 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
864 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
865 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
866 CHECK_CHARACTER_CDR (idx);
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
867 else
99303f55a1b8 (store_in_keymap): Pay attention to the case that idx
Kenichi Handa <handa@m17n.org>
parents: 89626
diff changeset
868 /* 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
869 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
870 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
871 idx = EVENT_HEAD (idx);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
873 /* 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
874 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
875 if (SYMBOLP (idx))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
876 idx = reorder_modifiers (idx);
3515
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
877 else if (INTEGERP (idx))
9d0af0f2dc0d (access_keymap, store_in_keymap): Discard meaningless
Richard M. Stallman <rms@gnu.org>
parents: 3425
diff changeset
878 /* 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
879 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
880 XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
881
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
882 /* 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
883 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
884 Lisp_Object tail;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
886 /* 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
887 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
888 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
889 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
890 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
891 front of the keymap. */
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
892 Lisp_Object insertion_point;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
893
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
894 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
895 for (tail = XCDR (keymap); CONSP (tail); tail = XCDR (tail))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
897 Lisp_Object elt;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
898
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
899 elt = XCAR (tail);
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
900 if (VECTORP (elt))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
901 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
902 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
903 {
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
904 CHECK_IMPURE (elt);
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
905 ASET (elt, XFASTINT (idx), def);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
906 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
907 }
89655
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
908 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
909 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
910 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
911 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
912
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
913 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
914 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
915 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
916 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
917 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
918 /* 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
919 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
920 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
921 insertion_point = tail;
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
922 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
923 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
924 {
17932
78a128b99e05 (access_keymap, store_in_keymap): Don't look in a char-table
Richard M. Stallman <rms@gnu.org>
parents: 17861
diff changeset
925 /* 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
926 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
927 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
928 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
929 {
41593
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
930 Faset (elt, idx,
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
931 /* `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
932 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
933 unbound entry. */
bc65be224d92 (access_keymap): Handle t bindings like nil bindings.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41387
diff changeset
934 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
935 return def;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
936 }
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
937 else if (CONSP (idx) && CHARACTERP (XCAR (idx)))
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
938 {
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
939 Fset_char_table_range (elt, idx, NILP (def) ? Qt : def);
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
940 return def;
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
941 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
942 insertion_point = tail;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
943 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
944 else if (CONSP (elt))
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
945 {
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
946 if (EQ (idx, XCAR (elt)))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
947 {
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
948 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
949 XSETCDR (elt, def);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
950 return def;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
951 }
89655
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
952 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
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 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
955 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
956
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
957 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
958 && 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
959 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
960 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
961 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
962 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
963 }
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
964 }
9973
1d5a908f201e (access_keymap): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9957
diff changeset
965 }
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
966 else if (EQ (elt, Qkeymap))
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
967 /* 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
968 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
969 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
970 should be inserted before it. */
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
971 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
972
929409595312 * keymap.c (store_in_keymap): Don't forget to QUIT in the
Jim Blandy <jimb@redhat.com>
parents: 1388
diff changeset
973 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
975
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
976 keymap_end:
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
977 /* 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
978 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
979 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
980 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
981
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
982 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
983 {
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
984 /* 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
985 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
986 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
987 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
988 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
989 }
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
990 else
c7f2621e0e2d (store_in_keymap): Pay attention to the case that idx is a cons
Kenichi Handa <handa@m17n.org>
parents: 89640
diff changeset
991 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
992 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
993 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
994 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
996
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997 return def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999
39837
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
1000 EXFUN (Fcopy_keymap, 1);
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
1001
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1002 Lisp_Object
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1003 copy_keymap_item (elt)
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1004 Lisp_Object elt;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1005 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1006 Lisp_Object res, tem;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1007
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1008 if (!CONSP (elt))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1009 return elt;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1010
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1011 res = tem = elt;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1012
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1013 /* 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
1014 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
1015 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1016 /* 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
1017 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
1018 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1019 if (CONSP (tem))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1020 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1021 /* 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
1022 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
1023 elt = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1024 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1025 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1026 if (CONSP (tem))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1027 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1028 /* 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
1029 copy that. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1030 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
1031 elt = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1032 tem = XCAR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1033 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
1034 XSETCAR (elt, Fcopy_keymap (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1035 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1036 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
1037 /* Delete cache for key equivalences. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1038 XSETCDR (elt, XCDR (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1039 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1040 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1041 else
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1042 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1043 /* 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
1044 Skip the optional menu string. */
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1045 if (STRINGP (XCAR (tem)))
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 /* 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
1048 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
1049 tem = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1050 /* 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
1051 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
1052 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1053 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
1054 elt = XCDR (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1055 tem = XCDR (elt);
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 /* 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
1058 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
1059 if (CONSP (tem)
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1060 && CONSP (XCAR (tem))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1061 && (NILP (XCAR (XCAR (tem)))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1062 || VECTORP (XCAR (XCAR (tem)))))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1063 {
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1064 XSETCDR (elt, XCDR (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1065 tem = XCDR (tem);
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) && EQ (XCAR (tem), Qkeymap))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1068 XSETCDR (elt, Fcopy_keymap (tem));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1069 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1070 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
1071 res = Fcopy_keymap (elt);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1072 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1073 return res;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1074 }
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1075
49912
e9f8f5a9cef6 (copy_keymap_1): Make it static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49902
diff changeset
1076 static void
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1077 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
1078 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
1079 {
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
1080 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
1081 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1082
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1083 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
1084 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
1085 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
1086 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
1087 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
1088 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
1089 is not copied. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1090 (keymap)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1091 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1092 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1093 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
1094 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
1095 copy = tail = Fcons (Qkeymap, Qnil);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1096 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
1097
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1098 while (CONSP (keymap) && !EQ (XCAR (keymap), Qkeymap))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1099 {
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1100 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
1101 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
1102 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1103 elt = Fcopy_sequence (elt);
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
1104 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
1105 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
1106 else if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1107 {
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1108 int i;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
1109 elt = Fcopy_sequence (elt);
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
1110 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
1111 ASET (elt, i, copy_keymap_item (AREF (elt, i)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1112 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1113 else if (CONSP (elt))
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1114 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
1115 XSETCDR (tail, Fcons (elt, Qnil));
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1116 tail = XCDR (tail);
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1117 keymap = XCDR (keymap);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1118 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1119 XSETCDR (tail, keymap);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1120 return copy;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1121 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1122
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1123 /* Simple Keymap mutators and accessors. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1124
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1125 /* 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
1126
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1127 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
1128 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
1129 KEYMAP is a keymap.
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1130
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1131 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
1132 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
1133 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
1134 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
1135 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
1136
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1137 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
1138 nil (means key is undefined in this keymap),
55722
623ab06bb37b (Fdefine_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 55006
diff changeset
1139 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
1140 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
1141 a keymap (to define a prefix key),
55722
623ab06bb37b (Fdefine_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 55006
diff changeset
1142 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
1143 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
1144 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
1145 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
1146 (DEFN should be a valid definition in its own right),
55722
623ab06bb37b (Fdefine_key): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 55006
diff changeset
1147 or a cons (MAP . CHAR), meaning use definition of CHAR in keymap MAP.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1148
49901
71b3917cf40b (Fdefine_key): Doc fix.
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49868
diff changeset
1149 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
1150 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
1151 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
1152 (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
1153 Lisp_Object keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1154 Lisp_Object key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1155 Lisp_Object def;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1156 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1157 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1158 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1160 int metized = 0;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1161 int meta_bit;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1162 int length;
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1163 struct gcpro gcpro1, gcpro2, gcpro3;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1164
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1165 GCPRO3 (keymap, key, def);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1166 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1167
71836
838fd2b04ce0 (Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.
Kim F. Storm <storm@cua.dk>
parents: 70554
diff changeset
1168 CHECK_VECTOR_OR_STRING (key);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1169
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1170 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1171 if (length == 0)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1172 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
1173
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
1174 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
1175 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
1176
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1177 meta_bit = VECTORP (key) ? meta_modifier : 0x80;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1178
72074
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1179 if (VECTORP (def) && ASIZE (def) > 0 && CONSP (AREF (def, make_number (0))))
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1180 { /* 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
1181 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
1182 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
1183 while (--i >= 0)
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1184 {
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1185 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
1186 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
1187 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
1188 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
1189 }
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1190 def = tmp;
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1191 }
91ea8d22ef60 (Fdefine_key): If the key binding definition looks like an
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 71982
diff changeset
1192
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1193 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1194 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1195 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1196 c = Faref (key, make_number (idx));
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1197
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1198 if (CONSP (c))
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1199 {
89626
e2d5f38e23b4 (Fdefine_key): Fix handling of Lucid style event type list.
Kenichi Handa <handa@m17n.org>
parents: 89551
diff changeset
1200 /* 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
1201 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
1202 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
1203 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
1204 else if (CHARACTERP (XCAR (c)))
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
1205 CHECK_CHARACTER_CDR (c);
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1206 }
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
1207
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1208 if (SYMBOLP (c))
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1209 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
1210
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1211 if (INTEGERP (c)
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
1212 && (XINT (c) & meta_bit)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1213 && !metized)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1214 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215 c = meta_prefix_char;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1216 metized = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1217 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1218 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1219 {
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
1220 if (INTEGERP (c))
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1221 XSETINT (c, XINT (c) & ~meta_bit);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 metized = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224 idx++;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1225 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1227 if (!INTEGERP (c) && !SYMBOLP (c)
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1228 && (!CONSP (c)
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1229 /* If C is a range, it must be a leaf. */
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
1230 || (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
1231 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
1232
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1233 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
1234 RETURN_UNGCPRO (store_in_keymap (keymap, c, def));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1235
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1236 cmd = access_keymap (keymap, c, 0, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1237
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1238 /* If this key is undefined, make it a prefix. */
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1239 if (NILP (cmd))
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1240 cmd = define_as_prefix (keymap, c);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1241
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1242 keymap = get_keymap (cmd, 0, 1);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1243 if (!CONSP (keymap))
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
1244 /* 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
1245 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
1246 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
1247 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
1248 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
1249 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
1250 Qnil)));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1251 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1252 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1253
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1254 /* 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
1255
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1256 DEFUN ("command-remapping", Fcommand_remapping, Scommand_remapping, 1, 2, 0,
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1257 doc: /* Return the remapping for command COMMAND in current keymaps.
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1258 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
1259
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1260 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
1261 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
1262 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
1263 number or marker, in which case the keymap properties at the specified
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1264 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
1265 (command, position)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1266 Lisp_Object command, position;
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1267 {
49720
e4fcec69ba69 (Fremap_command): Return nil if arg is not a symbol.
Kim F. Storm <storm@cua.dk>
parents: 49059
diff changeset
1268 if (!SYMBOLP (command))
e4fcec69ba69 (Fremap_command): Return nil if arg is not a symbol.
Kim F. Storm <storm@cua.dk>
parents: 49059
diff changeset
1269 return Qnil;
e4fcec69ba69 (Fremap_command): Return nil if arg is not a symbol.
Kim F. Storm <storm@cua.dk>
parents: 49059
diff changeset
1270
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
1271 ASET (command_remapping_vector, 1, command);
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1272 return Fkey_binding (command_remapping_vector, Qnil, Qt, position);
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1273 }
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1274
42206
0f4506820432 Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 41593
diff changeset
1275 /* 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
1276 /* GC is possible in this function if it autoloads a keymap. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1277
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1278 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
1279 doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1280 nil means undefined. See doc of `define-key' for kinds of definitions.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1281
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1282 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
1283 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
1284 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
1285 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
1286 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
1287
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1288 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
1289 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
1290 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
1291 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
1292 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
1293 (keymap, key, accept_default)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1294 Lisp_Object keymap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1295 Lisp_Object key;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1296 Lisp_Object accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1297 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1298 register int idx;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1299 register Lisp_Object cmd;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1300 register Lisp_Object c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1301 int length;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1302 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
1303 struct gcpro gcpro1, gcpro2;
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1304
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1305 GCPRO2 (keymap, key);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1306 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1307
71836
838fd2b04ce0 (Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.
Kim F. Storm <storm@cua.dk>
parents: 70554
diff changeset
1308 CHECK_VECTOR_OR_STRING (key);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1309
1517
72b7bbcaf7d8 * keymap.c (Fdefine_key, Flookup_key, describe_map): Don't assume
Jim Blandy <jimb@redhat.com>
parents: 1441
diff changeset
1310 length = XFASTINT (Flength (key));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1311 if (length == 0)
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1312 RETURN_UNGCPRO (keymap);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1313
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 idx = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1315 while (1)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316 {
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1317 c = Faref (key, make_number (idx++));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1318
10840
3a7336f191b9 (Fdefine_key): Handle Lucid-style (crtl backspace) etc.
Richard M. Stallman <rms@gnu.org>
parents: 10810
diff changeset
1319 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
1320 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
1321
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1322 /* Turn the 8th bit of string chars into a meta modifier. */
58450
277e7a013eb6 (Flookup_key): Check INTEGERP before XINT.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58271
diff changeset
1323 if (INTEGERP (c) && XINT (c) & 0x80 && STRINGP (key))
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1324 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
1325
43504
20832766c3e1 (Flookup_key): Fixed problem in 2001-12-28 patch:
Kim F. Storm <storm@cua.dk>
parents: 43494
diff changeset
1326 /* 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
1327 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
1328 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
1329 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
1330
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1331 cmd = access_keymap (keymap, c, t_ok, 0, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332 if (idx == length)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1333 RETURN_UNGCPRO (cmd);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1335 keymap = get_keymap (cmd, 0, 1);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1336 if (!CONSP (keymap))
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1337 RETURN_UNGCPRO (make_number (idx));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1338
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1339 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1341 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1342
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1343 /* 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
1344 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
1345 Return the keymap. */
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1346
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1347 static Lisp_Object
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1348 define_as_prefix (keymap, c)
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1349 Lisp_Object keymap, c;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1350 {
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1351 Lisp_Object cmd;
3735
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1352
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1353 cmd = Fmake_sparse_keymap (Qnil);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1354 /* 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
1355 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
1356 inherit the other prefix definition. */
32476
9b2a0dc393a4 * keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32145
diff changeset
1357 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
1358 store_in_keymap (keymap, c, cmd);
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1359
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1360 return cmd;
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1361 }
7193a99a87c1 Make prefix keys work with keymap inheritance
Richard M. Stallman <rms@gnu.org>
parents: 3691
diff changeset
1362
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1363 /* 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
1364
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1365 Lisp_Object
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1366 append_key (key_sequence, key)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1367 Lisp_Object key_sequence, key;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1368 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1369 Lisp_Object args[2];
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1370
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1371 args[0] = key_sequence;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1372
2093
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1373 args[1] = Fcons (key, Qnil);
ce8bad247b1a (Fdefine_key): Use proper meta-bit to clear.
Richard M. Stallman <rms@gnu.org>
parents: 2059
diff changeset
1374 return Fvconcat (2, args);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1375 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1376
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1377 /* 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
1378 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
1379
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1380 static void
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1381 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
1382 Lisp_Object c;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1383 {
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1384 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
1385 int modifiers;
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1386
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1387 parsed = parse_modifiers (c);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1388 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
1389 base = XCAR (parsed);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1390 name = Fsymbol_name (base);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1391 /* 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
1392 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
1393
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1394 if (! NILP (assoc))
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1395 {
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1396 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
1397 char *p = new_mods;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1398 Lisp_Object keystring;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1399 if (modifiers & alt_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1400 { *p++ = '\\'; *p++ = 'A'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1401 if (modifiers & ctrl_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1402 { *p++ = '\\'; *p++ = 'C'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1403 if (modifiers & hyper_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1404 { *p++ = '\\'; *p++ = 'H'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1405 if (modifiers & meta_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1406 { *p++ = '\\'; *p++ = 'M'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1407 if (modifiers & shift_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1408 { *p++ = '\\'; *p++ = 'S'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1409 if (modifiers & super_modifier)
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1410 { *p++ = '\\'; *p++ = 's'; *p++ = '-'; }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1411 *p = 0;
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1412
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1413 c = reorder_modifiers (c);
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1414 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
1415
42404
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1416 error ((modifiers & ~meta_modifier
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1417 ? "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
1418 : "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
1419 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
1420 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
1421 }
ca040d0f5c67 (silly_event_symbol_error): New subrtn, from Fdefine_key.
Richard M. Stallman <rms@gnu.org>
parents: 42381
diff changeset
1422 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1423
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1424 /* Global, local, and minor mode keymap stuff. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1425
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1426 /* 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
1427 some systems, static gets macro-defined to be the empty string.
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1428 Ickypoo. */
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1429 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
1430 static int cmm_size = 0;
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1431
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1432 /* Store a pointer to an array of the keymaps of the currently active
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1433 minor modes in *buf, and return the number of maps it contains.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1434
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1435 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
1436 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
1437 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
1438 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
1439 new assoclist, list, what have you) for each invocation would
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1440 result in a lot of consing over time.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1441
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1442 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
1443 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
1444 which would call this function again, resulting in an infinite
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1445 loop. Instead, we'll use realloc/malloc and silently truncate the
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1446 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
1447 code signals the error. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1448 int
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1449 current_minor_maps (modeptr, mapptr)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1450 Lisp_Object **modeptr, **mapptr;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1451 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1452 int i = 0;
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1453 int list_number = 0;
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
1454 Lisp_Object alist, assoc, var, val;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1455 Lisp_Object emulation_alists;
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1456 Lisp_Object lists[2];
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1457
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1458 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
1459 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
1460 lists[1] = Vminor_mode_map_alist;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1461
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1462 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
1463 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1464 if (CONSP (emulation_alists))
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
1465 {
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1466 alist = XCAR (emulation_alists);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1467 emulation_alists = XCDR (emulation_alists);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1468 if (SYMBOLP (alist))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1469 alist = find_symbol_value (alist);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1470 list_number = -1;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1471 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1472 else
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1473 alist = lists[list_number];
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1474
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1475 for ( ; CONSP (alist); alist = XCDR (alist))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1476 if ((assoc = XCAR (alist), CONSP (assoc))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1477 && (var = XCAR (assoc), SYMBOLP (var))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1478 && (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
1479 && !NILP (val))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1480 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1481 Lisp_Object temp;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1482
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1483 /* 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
1484 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
1485 ignore the latter. */
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1486 if (list_number == 1)
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1487 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1488 val = assq_no_quit (var, lists[0]);
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1489 if (!NILP (val))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1490 continue;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1491 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1492
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1493 if (i >= cmm_size)
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1494 {
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1495 int newsize, allocsize;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1496 Lisp_Object *newmodes, *newmaps;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1497
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1498 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
1499 allocsize = newsize * sizeof *newmodes;
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1500
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1501 /* 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
1502 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
1503 BLOCK_INPUT;
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1504 newmodes = (Lisp_Object *) malloc (allocsize);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1505 if (newmodes)
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1506 {
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1507 if (cmm_modes)
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1508 {
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1509 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
1510 free (cmm_modes);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1511 }
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1512 cmm_modes = newmodes;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1513 }
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1514
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1515 newmaps = (Lisp_Object *) malloc (allocsize);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1516 if (newmaps)
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1517 {
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1518 if (cmm_maps)
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1519 {
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1520 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
1521 free (cmm_maps);
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1522 }
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1523 cmm_maps = newmaps;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1524 }
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1525 UNBLOCK_INPUT;
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1526
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1527 if (newmodes == NULL || newmaps == NULL)
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1528 break;
45235
66271fa0bf60 (current_minor_maps): Fixed resizing of cmm_maps;
Kim F. Storm <storm@cua.dk>
parents: 45222
diff changeset
1529 cmm_size = newsize;
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1530 }
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1531
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1532 /* 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
1533 temp = Findirect_function (XCDR (assoc), Qt);
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1534 if (!NILP (temp))
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1535 {
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1536 cmm_modes[i] = var;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1537 cmm_maps [i] = temp;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1538 i++;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
1539 }
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 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1542
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1543 if (modeptr) *modeptr = cmm_modes;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1544 if (mapptr) *mapptr = cmm_maps;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1545 return i;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1546 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1547
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1548 DEFUN ("current-active-maps", Fcurrent_active_maps, Scurrent_active_maps,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1549 0, 1, 0,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1550 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
1551 OLP if non-nil indicates that we should obey `overriding-local-map' and
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1552 `overriding-terminal-local-map'. */)
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1553 (olp)
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1554 Lisp_Object olp;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1555 {
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1556 Lisp_Object keymaps = Fcons (current_global_map, Qnil);
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1557
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1558 if (!NILP (olp))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1559 {
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1560 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
1561 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
1562 /* 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
1563 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
1564 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
1565 else if (!NILP (Voverriding_local_map))
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1566 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
1567 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1568 if (NILP (XCDR (keymaps)))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1569 {
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1570 Lisp_Object local;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1571 Lisp_Object *maps;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1572 int nmaps, i;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1573
59522
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1574 /* This usually returns the buffer's local map,
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1575 but that can be overridden by a `local-map' property. */
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1576 local = get_local_map (PT, current_buffer, Qlocal_map);
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1577 if (!NILP (local))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1578 keymaps = Fcons (local, keymaps);
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1579
59522
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1580 /* 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
1581 nmaps = current_minor_maps (0, &maps);
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1582
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1583 for (i = --nmaps; i >= 0; i--)
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1584 if (!NILP (maps[i]))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1585 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
1586
59522
031c9a79c55a (Fcurrent_active_maps): Ignore Voverriding_local_map
Richard M. Stallman <rms@gnu.org>
parents: 58450
diff changeset
1587 /* This returns nil unless there is a `keymap' property. */
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1588 local = get_local_map (PT, current_buffer, Qkeymap);
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1589 if (!NILP (local))
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1590 keymaps = Fcons (local, keymaps);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1591 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
1592
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1593 return keymaps;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1594 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1595
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1596 /* 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
1597
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1598 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
1599 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
1600 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
1601 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
1602
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1603 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
1604 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
1605 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
1606 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
1607 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
1608
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1609 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
1610 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
1611 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
1612 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
1613
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1614 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
1615 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
1616 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
1617
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1618 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
1619 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
1620 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
1621 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
1622 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
1623 */)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1624 (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
1625 Lisp_Object key, accept_default, no_remap, position;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1626 {
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1627 Lisp_Object *maps, value;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1628 int nmaps, i;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1629 struct gcpro gcpro1, gcpro2;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1630 int count = SPECPDL_INDEX ();
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1631
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1632 GCPRO2 (key, position);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1633
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1634 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
1635 {
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1636 Lisp_Object event
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1637 /* 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
1638 scrollbar or mode line */
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1639 = 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
1640
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1641 /* 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
1642
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1643 if (EVENT_HAS_PARAMETERS (event)) {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1644 Lisp_Object kind;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1645
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1646 kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1647 if (EQ (kind, Qmouse_click))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1648 position = EVENT_START (event);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1649 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1650 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1651
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1652 /* 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
1653 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
1654 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
1655 here. */
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1656
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1657 if (CONSP (position))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1658 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1659 Lisp_Object window;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1660
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1661 window = POSN_WINDOW (position);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1662
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1663 if (WINDOWP (window)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1664 && BUFFERP (XWINDOW (window)->buffer)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1665 && 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
1666 {
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1667 /* 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
1668 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
1669 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
1670 `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
1671 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
1672 things the same.
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1673 */
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1674
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1675 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1676
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1677 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
1678 }
64e86769392f * keymap.c (Fkey_binding): Check for local keymap for mouse click
Chong Yidong <cyd@stupidchicken.com>
parents: 72074
diff changeset
1679 }
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1680
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1681 if (! NILP (current_kboard->Voverriding_terminal_local_map))
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1682 {
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1683 value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1684 key, accept_default);
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1685 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
1686 goto done;
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
1687 }
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1688 else if (! NILP (Voverriding_local_map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1689 {
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1690 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
1691 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
1692 goto done;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1693 }
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1694 else
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1695 {
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1696 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
1697 EMACS_INT pt;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1698
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1699 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
1700 : 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
1701 : PT;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1702
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1703 local_map = get_local_map (pt, current_buffer, Qlocal_map);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1704 keymap = get_local_map (pt, current_buffer, Qkeymap);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1705
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1706 if (CONSP (position))
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1707 {
72989
f9742f561ed9 Include alloca.h if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72889
diff changeset
1708 Lisp_Object string;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1709
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1710 /* 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
1711 of the place clicked on, rather than point. */
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1712
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1713 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
1714 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1715 Lisp_Object pos;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1716
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1717 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
1718 if (INTEGERP (pos)
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1719 && 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
1720 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1721 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
1722 current_buffer, Qlocal_map);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1723
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1724 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
1725 current_buffer, Qkeymap);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1726 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1727 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1728
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1729 /* 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
1730 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
1731 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
1732 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
1733 that string. */
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1734
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1735 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
1736 (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
1737 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1738 Lisp_Object pos, map;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1739
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1740 pos = XCDR (string);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1741 string = XCAR (string);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1742 if (XINT (pos) >= 0
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1743 && XINT (pos) < SCHARS (string))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1744 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1745 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
1746 if (!NILP (map))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1747 local_map = map;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1748
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1749 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
1750 if (!NILP (map))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1751 keymap = map;
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1752 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1753 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1754
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1755 }
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1756
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1757 if (! NILP (keymap))
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1758 {
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1759 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
1760 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
1761 goto done;
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1762 }
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
1763
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1764 nmaps = current_minor_maps (0, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1765 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1766 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1767
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1768 for (i = 0; i < nmaps; i++)
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1769 if (! NILP (maps[i]))
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1770 {
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1771 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
1772 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
1773 goto done;
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1774 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1775
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1776 if (! NILP (local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1777 {
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1778 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
1779 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
1780 goto done;
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1781 }
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
1782 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1783
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1784 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
1785
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1786 done:
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1787 unbind_to (count, Qnil);
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1788
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1789 UNGCPRO;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1790 if (NILP (value) || INTEGERP (value))
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1791 return Qnil;
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1792
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1793 /* 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
1794 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
1795
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
1796 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
1797 {
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1798 Lisp_Object value1;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
1799 if (value1 = Fcommand_remapping (value, position), !NILP (value1))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1800 value = value1;
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1801 }
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
1802
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
1803 return value;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1804 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1805
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1806 /* 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
1807
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1808 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
1809 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
1810 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
1811 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
1812
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1813 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
1814 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
1815 (keys, accept_default)
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1816 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 register Lisp_Object map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819 map = current_buffer->keymap;
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1820 if (NILP (map))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1821 return Qnil;
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1822 return Flookup_key (map, keys, accept_default);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1823 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1824
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1825 /* 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
1826
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1827 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
1828 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
1829 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
1830 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
1831 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
1832 \(which see).
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1833
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1834 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
1835 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
1836 (keys, accept_default)
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1837 Lisp_Object keys, accept_default;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1838 {
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1839 return Flookup_key (current_global_map, keys, accept_default);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1840 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1841
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1842 /* 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
1843
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1844 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
1845 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
1846 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
1847 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
1848 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
1849 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
1850 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
1851 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
1852 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
1853
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1854 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
1855 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
1856 (key, accept_default)
1871
00bee181f7ed * keymap.c (Flookup_key, Fkey_binding, Flocal_key_binding,
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
1857 Lisp_Object key, accept_default;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1858 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1859 Lisp_Object *modes, *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1860 int nmaps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1861 Lisp_Object binding;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1862 int i, j;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1863 struct gcpro gcpro1, gcpro2;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1864
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1865 nmaps = current_minor_maps (&modes, &maps);
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1866 /* Note that all these maps are GCPRO'd
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1867 in the places where we found them. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1868
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1869 binding = Qnil;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1870 GCPRO2 (key, binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1871
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1872 for (i = j = 0; i < nmaps; i++)
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1873 if (!NILP (maps[i])
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1874 && !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
1875 && !INTEGERP (binding))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1876 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1877 if (KEYMAPP (binding))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1878 maps[j++] = Fcons (modes[i], binding);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1879 else if (j == 0)
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1880 RETURN_UNGCPRO (Fcons (Fcons (modes[i], binding), Qnil));
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1881 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1882
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
1883 UNGCPRO;
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1884 return Flist (j, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1885 }
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1886
23968
4c423f69142b (Fdefine_prefix_command): Accept a third argument NAME
Eli Zaretskii <eliz@gnu.org>
parents: 23953
diff changeset
1887 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
1888 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
1889 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
1890 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
1891 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
1892 as a function.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1893 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
1894 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
1895 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
1896 (command, mapvar, name)
23968
4c423f69142b (Fdefine_prefix_command): Accept a third argument NAME
Eli Zaretskii <eliz@gnu.org>
parents: 23953
diff changeset
1897 Lisp_Object command, mapvar, name;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1898 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1899 Lisp_Object map;
23968
4c423f69142b (Fdefine_prefix_command): Accept a third argument NAME
Eli Zaretskii <eliz@gnu.org>
parents: 23953
diff changeset
1900 map = Fmake_sparse_keymap (name);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1901 Ffset (command, map);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1902 if (!NILP (mapvar))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1903 Fset (mapvar, map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1904 else
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1905 Fset (command, map);
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
1906 return command;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1907 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1908
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1909 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
1910 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
1911 (keymap)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1912 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1913 {
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1914 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1915 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
1916
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1917 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1918 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1919
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1920 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
1921 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
1922 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
1923 (keymap)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1924 Lisp_Object keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1925 {
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
1926 if (!NILP (keymap))
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
1927 keymap = get_keymap (keymap, 1, 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1928
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1929 current_buffer->keymap = keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1930
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1931 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1932 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1933
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1934 DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_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
1935 doc: /* Return current buffer's local keymap, or nil if it has none. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
1936 ()
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1937 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1938 return current_buffer->keymap;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1939 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1940
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1941 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
1942 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
1943 ()
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1944 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1945 return current_global_map;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1946 }
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1947
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1948 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
1949 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
1950 ()
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1951 {
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1952 Lisp_Object *maps;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1953 int nmaps = current_minor_maps (0, &maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1954
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1955 return Flist (nmaps, maps);
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1956 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1957
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1958 /* Help functions for describing and documenting keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
1959
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1960
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1961 static void
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1962 accessible_keymaps_1 (key, cmd, maps, tail, thisseq, is_metized)
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1963 Lisp_Object maps, tail, thisseq, key, cmd;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1964 int is_metized; /* If 1, `key' is assumed to be INTEGERP. */
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1965 {
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1966 Lisp_Object tem;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1967
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1968 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
1969 if (NILP (cmd))
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1970 return;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1971
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1972 /* Look for and break cycles. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1973 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
1974 {
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1975 Lisp_Object prefix = XCAR (tem);
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1976 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
1977 if (lim <= XINT (Flength (thisseq)))
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1978 { /* 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
1979 int i = 0;
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1980 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
1981 Faref (thisseq, make_number (i))))
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1982 i++;
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1983 if (i >= lim)
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1984 /* `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
1985 return;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
1986 }
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1987 /* 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
1988 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
1989 looking. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1990 maps = XCDR (Fmemq (tem, maps));
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1991 }
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1992
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1993 /* 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
1994 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
1995 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
1996 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
1997 keymap table. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1998 if (is_metized)
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
1999 {
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2000 int meta_bit = meta_modifier;
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2001 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
2002 tem = Fcopy_sequence (thisseq);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2003
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2004 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
2005
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2006 /* 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
2007 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
2008 after this one. */
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2009 XSETCDR (tail,
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2010 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
2011 }
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2012 else
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2013 {
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2014 tem = append_key (thisseq, key);
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2015 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
2016 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2017 }
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2018
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2019 static void
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2020 accessible_keymaps_char_table (args, index, cmd)
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2021 Lisp_Object args, index, cmd;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2022 {
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2023 accessible_keymaps_1 (index, cmd,
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2024 XCAR (XCAR (args)),
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2025 XCAR (XCDR (args)),
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2026 XCDR (XCDR (args)),
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2027 XINT (XCDR (XCAR (args))));
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2028 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2029
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2030 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2031
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2032 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
2033 1, 2, 0,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2034 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
2035 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
2036 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
2037 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
2038 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
2039 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
2040 (keymap, prefix)
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2041 Lisp_Object keymap, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2042 {
50190
615d7388f725 (Faccessible_keymaps): Remove unused var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50189
diff changeset
2043 Lisp_Object maps, tail;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2044 int prefixlen = 0;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2045
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2046 /* 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
2047
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2048 if (!NILP (prefix))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2049 prefixlen = XINT (Flength (prefix));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2050
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2051 if (!NILP (prefix))
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2052 {
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2053 /* 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
2054 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
2055 Lisp_Object tem;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2056 tem = Flookup_key (keymap, prefix, Qt);
8473
c285c3b0ea54 (Faccessible_keymaps): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 8464
diff changeset
2057 /* 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
2058 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
2059 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
2060 tem = get_keymap (tem, 0, 0);
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2061 if (CONSP (tem))
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2062 {
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2063 /* 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
2064 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
2065 if (STRINGP (prefix))
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2066 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2067 int i, i_byte, c;
17510
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2068 Lisp_Object copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2069
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
2070 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
2071 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
2072 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2073 int i_before = i;
29013
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2074
b9565b4bcdf8 (Fsingle_key_description): Use SPLIT_CHAR instead of
Kenichi Handa <handa@m17n.org>
parents: 26864
diff changeset
2075 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
2076 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
2077 c ^= 0200 | meta_modifier;
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2078 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
2079 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2080 prefix = copy;
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2081 }
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2082 maps = Fcons (Fcons (prefix, tem), Qnil);
2da99276d613 (Faccessible_keymaps): Convert PREFIX to a vector
Richard M. Stallman <rms@gnu.org>
parents: 17327
diff changeset
2083 }
8431
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2084 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2085 return Qnil;
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2086 }
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2087 else
b4138573c00f (Faccessible_keymaps): Use PREFIX to set loop starting
Richard M. Stallman <rms@gnu.org>
parents: 7998
diff changeset
2088 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
2089 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
2090 Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2091
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2092 /* For each map in the list maps,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2093 look at any other maps it points to,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2094 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
2095
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2096 This is a breadth-first traversal, where tail is the queue of
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2097 nodes, and maps accumulates a list of all nodes visited. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2098
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2099 for (tail = maps; CONSP (tail); tail = XCDR (tail))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2100 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2101 register Lisp_Object thisseq, thismap;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2102 Lisp_Object last;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2103 /* Does the current sequence end in the meta-prefix-char? */
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2104 int is_metized;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2105
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2106 thisseq = Fcar (Fcar (tail));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2107 thismap = Fcdr (Fcar (tail));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2108 last = make_number (XINT (Flength (thisseq)) - 1);
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2109 is_metized = (XINT (last) >= 0
17264
fad065a280dc (Faccessible_keymaps): When metizing, convert a
Richard M. Stallman <rms@gnu.org>
parents: 17189
diff changeset
2110 /* 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
2111 && XINT (last) >= prefixlen
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2112 && EQ (Faref (thisseq, last), meta_prefix_char));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2113
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2114 for (; CONSP (thismap); thismap = XCDR (thismap))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2115 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2116 Lisp_Object elt;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2117
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2118 elt = XCAR (thismap);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2119
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2120 QUIT;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2121
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2122 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
2123 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2124 map_char_table (accessible_keymaps_char_table, Qnil,
36406
f5bdd1200e0e (Faccessible_keymaps): Pass `is_metized' to accessible_keymaps_char_table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36405
diff changeset
2125 elt, Fcons (Fcons (maps, make_number (is_metized)),
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
2126 Fcons (tail, thisseq)));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2127 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2128 else if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2129 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2130 register int i;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2131
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2132 /* Vector keymap. Scan all the elements. */
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2133 for (i = 0; i < ASIZE (elt); i++)
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2134 accessible_keymaps_1 (make_number (i), AREF (elt, i),
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2135 maps, tail, thisseq, is_metized);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2136
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2137 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2138 else if (CONSP (elt))
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2139 accessible_keymaps_1 (XCAR (elt), XCDR (elt),
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2140 maps, tail, thisseq,
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2141 is_metized && INTEGERP (XCAR (elt)));
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2142
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2143 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2144 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2145
50189
c7ce12a3b9c2 (accessible_keymaps_1): Break cycles but without preventing
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50141
diff changeset
2146 return maps;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2147 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2148
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2149 Lisp_Object Qsingle_key_description, Qkey_description;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2150
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2151 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2152
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2153 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
2154 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
2155 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
2156 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
2157 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
2158 (keys, prefix)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2159 Lisp_Object keys, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2160 {
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
2161 int len = 0;
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2162 int i, i_byte;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2163 Lisp_Object *args;
55006
5429150a04f3 (Fkey_description): Fix the usual int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54925
diff changeset
2164 int size = XINT (Flength (keys));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2165 Lisp_Object list;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2166 Lisp_Object sep = build_string (" ");
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2167 Lisp_Object key;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2168 int add_meta = 0;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2169
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2170 if (!NILP (prefix))
55006
5429150a04f3 (Fkey_description): Fix the usual int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54925
diff changeset
2171 size += XINT (Flength (prefix));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2172
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2173 /* 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
2174 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
2175
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2176 /* In effect, this computes
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2177 (mapconcat 'single-key-description keys " ")
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2178 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
2179
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2180 next_list:
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2181 if (!NILP (prefix))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2182 list = prefix, prefix = Qnil;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2183 else if (!NILP (keys))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2184 list = keys, keys = Qnil;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2185 else
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2186 {
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2187 if (add_meta)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2188 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2189 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
2190 len += 2;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2191 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2192 else if (len == 0)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2193 return empty_string;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2194 return Fconcat (len - 1, args);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2195 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2196
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2197 if (STRINGP (list))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2198 size = SCHARS (list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2199 else if (VECTORP (list))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2200 size = XVECTOR (list)->size;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2201 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
2202 size = XINT (Flength (list));
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2203 else
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2204 wrong_type_argument (Qarrayp, list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2205
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2206 i = i_byte = 0;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2207
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2208 while (i < size)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2209 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2210 if (STRINGP (list))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2211 {
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2212 int c;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2213 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
2214 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
2215 c ^= 0200 | meta_modifier;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2216 XSETFASTINT (key, c);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2217 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2218 else if (VECTORP (list))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2219 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2220 key = AREF (list, i++);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2221 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2222 else
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2223 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2224 key = XCAR (list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2225 list = XCDR (list);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2226 i++;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2227 }
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2228
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2229 if (add_meta)
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2230 {
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2231 if (!INTEGERP (key)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2232 || EQ (key, meta_prefix_char)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2233 || (XINT (key) & meta_modifier))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2234 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2235 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
2236 args[len++] = sep;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2237 if (EQ (key, meta_prefix_char))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2238 continue;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2239 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2240 else
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2241 XSETINT (key, (XINT (key) | meta_modifier) & ~0x80);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2242 add_meta = 0;
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2243 }
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2244 else if (EQ (key, meta_prefix_char))
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2245 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2246 add_meta = 1;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2247 continue;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2248 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2249 args[len++] = Fsingle_key_description (key, Qnil);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2250 args[len++] = sep;
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2251 }
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2252 goto next_list;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2253 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2254
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
2255
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2256 char *
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2257 push_key_description (c, p, force_multibyte)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2258 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2259 register char *p;
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2260 int force_multibyte;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2261 {
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2262 unsigned c2;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2263
2343
ddb30eaf2f56 (push_key_description): Ignore bits above meta_modifier.
Richard M. Stallman <rms@gnu.org>
parents: 2093
diff changeset
2264 /* 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
2265 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
2266 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
2267 | 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
2268
90390
9b61abfe926b (push_key_description): Fix synching with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
2269 if (! CHARACTERP (make_number (c2)))
70535
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2270 {
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2271 /* 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
2272 p += sprintf (p, "[%d]", c);
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2273 return p;
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2274 }
8003a30510ee (push_key_description): Handle invalid character key.
Kenichi Handa <handa@m17n.org>
parents: 70293
diff changeset
2275
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2276 if (c & alt_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2277 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2278 *p++ = 'A';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2279 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2280 c -= alt_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2281 }
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2282 if ((c & ctrl_modifier) != 0
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2283 || (c2 < ' ' && c2 != 27 && c2 != '\t' && c2 != Ctl ('M')))
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2284 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2285 *p++ = 'C';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2286 *p++ = '-';
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2287 c &= ~ctrl_modifier;
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2288 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2289 if (c & hyper_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2290 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2291 *p++ = 'H';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2292 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2293 c -= hyper_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2294 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2295 if (c & meta_modifier)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2296 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2297 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2298 *p++ = '-';
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2299 c -= meta_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2300 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2301 if (c & shift_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2302 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2303 *p++ = 'S';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2304 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2305 c -= shift_modifier;
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2306 }
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2307 if (c & super_modifier)
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2308 {
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2309 *p++ = 's';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2310 *p++ = '-';
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2311 c -= super_modifier;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2312 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2313 if (c < 040)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2314 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2315 if (c == 033)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2316 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2317 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2318 *p++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2319 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2320 }
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2321 else if (c == '\t')
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2322 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2323 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2324 *p++ = 'A';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2325 *p++ = 'B';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2326 }
16875
d9956cf6699b (push_key_description): Print C-j, not TAB.
Richard M. Stallman <rms@gnu.org>
parents: 16465
diff changeset
2327 else if (c == Ctl ('M'))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2328 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2329 *p++ = 'R';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2330 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2331 *p++ = 'T';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2332 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2333 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2334 {
30780
b4fcea50ee82 (push_key_description): If C without modifiers is < 32,
Gerd Moellmann <gerd@gnu.org>
parents: 30609
diff changeset
2335 /* `C-' already added above. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2336 if (c > 0 && c <= Ctl ('Z'))
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2337 *p++ = c + 0140;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2338 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2339 *p++ = c + 0100;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2340 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2341 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2342 else if (c == 0177)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2343 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2344 *p++ = 'D';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2345 *p++ = 'E';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2346 *p++ = 'L';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2347 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2348 else if (c == ' ')
24394
8159c8cb33cc (push_key_description): If enable-multibyte-characters
Kenichi Handa <handa@m17n.org>
parents: 23968
diff changeset
2349 {
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2350 *p++ = 'S';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2351 *p++ = 'P';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2352 *p++ = 'C';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2353 }
24396
340189fd508f (push_key_description): If enable-multibyte-characters
Kenichi Handa <handa@m17n.org>
parents: 24394
diff changeset
2354 else if (c < 128
340189fd508f (push_key_description): If enable-multibyte-characters
Kenichi Handa <handa@m17n.org>
parents: 24394
diff changeset
2355 || (NILP (current_buffer->enable_multibyte_characters)
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2356 && SINGLE_BYTE_CHAR_P (c)
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2357 && !force_multibyte))
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2358 {
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2359 *p++ = c;
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
2360 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2361 else
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2362 {
90390
9b61abfe926b (push_key_description): Fix synching with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
2363 /* 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
2364 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
2365 && ! force_multibyte)
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2366 *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
2367 else
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2368 p += CHAR_STRING (c, (unsigned char *) p);
2059
3eaba0d9797c Include termhooks.h.
Richard M. Stallman <rms@gnu.org>
parents: 1922
diff changeset
2369 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2370
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
2371 return p;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2372 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2373
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2374 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2375
30559
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2376 DEFUN ("single-key-description", Fsingle_key_description,
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2377 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
2378 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
2379 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
2380 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
2381 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
2382 (key, no_angles)
30559
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2383 Lisp_Object key, no_angles;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2384 {
23953
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2385 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
2386 key = Fevent_convert_list (key);
c8cdb4e487cb (Fsingle_key_description): Handle (control ?x) etc.
Richard M. Stallman <rms@gnu.org>
parents: 23776
diff changeset
2387
1315
884c3d7e7172 * keymap.c (access_keymap, store_in_keymap,
Jim Blandy <jimb@redhat.com>
parents: 1264
diff changeset
2388 key = EVENT_HEAD (key);
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
2389
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2390 if (INTEGERP (key)) /* Normal character */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2391 {
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2392 char tem[KEY_DESCRIPTION_SIZE];
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2393
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2394 *push_key_description (XUINT (key), tem, 1) = 0;
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
2395 return build_string (tem);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2396 }
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2397 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
2398 {
30559
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2399 if (NILP (no_angles))
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2400 {
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2401 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
2402 = (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
2403 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
2404 return build_string (buffer);
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2405 }
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2406 else
16a291eedbd8 (Fsingle_key_description): Add parameter NO_ANGLES.
Gerd Moellmann <gerd@gnu.org>
parents: 30134
diff changeset
2407 return Fsymbol_name (key);
29651
31099bb76b6e (Fsingle_key_description): Enclose function key and
Gerd Moellmann <gerd@gnu.org>
parents: 29282
diff changeset
2408 }
10008
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2409 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
2410 return Fcopy_sequence (key);
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2411 else
b83150a8020d (Fsingle_key_description): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9973
diff changeset
2412 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
2413 return Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2414 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2415
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2416 char *
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2417 push_text_char_description (c, p)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2418 register unsigned int c;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2419 register char *p;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2420 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2421 if (c >= 0200)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2422 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2423 *p++ = 'M';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2424 *p++ = '-';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2425 c -= 0200;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2426 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2427 if (c < 040)
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++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2430 *p++ = c + 64; /* 'A' - 1 */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2431 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2432 else if (c == 0177)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2433 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2434 *p++ = '^';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2435 *p++ = '?';
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2436 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2437 else
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2438 *p++ = c;
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
2439 return p;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2440 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2441
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2442 /* This function cannot GC. */
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2443
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2444 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
2445 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
2446 Control characters turn into "^char", etc. This differs from
dd79816933ec (Ftext_char_description): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55913
diff changeset
2447 `single-key-description' which turns them into "C-char".
dd79816933ec (Ftext_char_description): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55913
diff changeset
2448 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
2449 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
2450 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
2451 (character)
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2452 Lisp_Object character;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2453 {
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2454 /* 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
2455 unsigned char str[6];
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2456 int c;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2457
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40625
diff changeset
2458 CHECK_NUMBER (character);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
2459
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2460 c = XINT (character);
89212
c5637be14c7f (Ftext_char_description): Check C by ASCII_CHAR_P, not
Kenichi Handa <handa@m17n.org>
parents: 89175
diff changeset
2461 if (!ASCII_CHAR_P (c))
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2462 {
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2463 int len = CHAR_STRING (c, str);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2464
20624
9ac0b485cf60 (describe_vector): Unconditionally handle multibyte chars.
Richard M. Stallman <rms@gnu.org>
parents: 20576
diff changeset
2465 return make_multibyte_string (str, 1, len);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2466 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
2467
26864
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2468 *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
2469
b89eb8bbaff1 (push_key_description): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26481
diff changeset
2470 return build_string (str);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2471 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2472
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2473 /* Return non-zero if SEQ contains only ASCII characters, perhaps with
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2474 a meta bit. */
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2475 static int
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2476 ascii_sequence_p (seq)
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2477 Lisp_Object seq;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2478 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2479 int i;
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2480 int len = XINT (Flength (seq));
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
2481
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2482 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
2483 {
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2484 Lisp_Object ii, elt;
6008
d3ccce72be00 (get_keyelt): Discard keyboard equivalents
Richard M. Stallman <rms@gnu.org>
parents: 5785
diff changeset
2485
9312
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2486 XSETFASTINT (ii, i);
dfaf1d41e53d (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
Karl Heuer <kwzh@gnu.org>
parents: 9273
diff changeset
2487 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
2488
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2489 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
2490 || (XUINT (elt) & ~CHAR_META) >= 0x80)
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2491 return 0;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2492 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2493
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2494 return 1;
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2495 }
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2496
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2497
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2498 /* where-is - finding a command in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2499
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2500 static Lisp_Object where_is_internal ();
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2501 static Lisp_Object where_is_internal_1 ();
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
2502 static void where_is_internal_2 ();
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2503
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2504 /* 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
2505 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
2506
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2507 static Lisp_Object
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2508 shadow_lookup (shadow, key, flag)
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2509 Lisp_Object shadow, key, flag;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2510 {
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2511 Lisp_Object tail, value;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2512
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2513 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
2514 {
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2515 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
2516 if (NATNUMP (value))
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2517 {
67070
c83903b9e676 (shadow_lookup): Use make_number to pass a number to Fsubstring.
Ken Raeburn <raeburn@raeburn.org>
parents: 66757
diff changeset
2518 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
2519 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
2520 if (!NILP (value))
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2521 return Qnil;
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2522 }
3f4ee1926eb1 (shadow_lookup): If Flookup_key returns a number,
Juri Linkov <juri@jurta.org>
parents: 65456
diff changeset
2523 else if (!NILP (value))
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2524 return value;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2525 }
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2526 return Qnil;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2527 }
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2528
53808
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
2529 static Lisp_Object Vmouse_events;
50141
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
2530
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2531 /* 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
2532
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2533 static Lisp_Object
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2534 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
2535 Lisp_Object definition, keymaps;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2536 Lisp_Object firstonly, noindirect, no_remap;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2537 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2538 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
2539 Lisp_Object found, sequences;
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2540 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
2541 /* 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
2542 int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2543
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2544 /* If this command is remapped, then it has no key bindings
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2545 of its own. */
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2546 if (NILP (no_remap) && SYMBOLP (definition))
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2547 {
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2548 Lisp_Object tem;
72889
25c755416160 * NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents: 72806
diff changeset
2549 if (tem = Fcommand_remapping (definition, Qnil), !NILP (tem))
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2550 return Qnil;
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2551 }
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2552
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2553 found = keymaps;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2554 while (CONSP (found))
29282
59f2b30d577b Include intervals.h.
Dave Love <fx@gnu.org>
parents: 29013
diff changeset
2555 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2556 maps =
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2557 nconc2 (maps,
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
2558 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
2559 found = XCDR (found);
29282
59f2b30d577b Include intervals.h.
Dave Love <fx@gnu.org>
parents: 29013
diff changeset
2560 }
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2561
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2562 GCPRO5 (definition, keymaps, maps, found, sequences);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2563 found = Qnil;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2564 sequences = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2565
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2566 for (; !NILP (maps); maps = Fcdr (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2567 {
6502
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2568 /* 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
2569 register Lisp_Object this, map, tem;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2570
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2571 /* In order to fold [META-PREFIX-CHAR CHAR] sequences into
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2572 [M-CHAR] sequences, check if last character of the sequence
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2573 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
2574 Lisp_Object last;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2575 int last_is_meta;
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2576
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2577 this = Fcar (Fcar (maps));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2578 map = Fcdr (Fcar (maps));
18dfda644bc0 (access_keymap, store_in_keymap, Fcopy_keymap, Fdefine_key,
Karl Heuer <kwzh@gnu.org>
parents: 6475
diff changeset
2579 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
2580 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
2581 && EQ (Faref (this, last), meta_prefix_char));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2582
36373
274190d289d7 (where_is_internal): Accept non-ascii integer prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35781
diff changeset
2583 /* if (nomenus && !ascii_sequence_p (this)) */
36405
7fe1b8d8fc44 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36373
diff changeset
2584 if (nomenus && XINT (last) >= 0
50141
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
2585 && 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
2586 && !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
2587 /* 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
2588 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
2589 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
2590 continue;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2591
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
2592 QUIT;
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
2593
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2594 while (CONSP (map))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2595 {
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2596 /* Because the code we want to run on each binding is rather
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2597 large, we don't want to have two separate loop bodies for
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2598 sparse keymap bindings and tables; we want to iterate one
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2599 loop body over both keymap and vector bindings.
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2600
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2601 For this reason, if Fcar (map) is a vector, we don't
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2602 advance map to the next element until i indicates that we
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2603 have finished off the vector. */
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2604 Lisp_Object elt, key, binding;
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2605 elt = XCAR (map);
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2606 map = XCDR (map);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2607
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2608 sequences = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2609
1236
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
2610 QUIT;
5e8c234e5f03 * keymap.c (access_keymap): Remove code to notice bindings for
Jim Blandy <jimb@redhat.com>
parents: 1209
diff changeset
2611
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2612 /* Set key and binding to the current key and binding, and
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2613 advance map and i to the next binding. */
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
2614 if (VECTORP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2615 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2616 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2617 int i;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2618 /* In a vector, look at each element. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2619 for (i = 0; i < XVECTOR (elt)->size; i++)
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2620 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2621 binding = AREF (elt, i);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2622 XSETFASTINT (key, i);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2623 sequence = where_is_internal_1 (binding, key, definition,
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2624 noindirect, this,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2625 last, nomenus, last_is_meta);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2626 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2627 sequences = Fcons (sequence, sequences);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2628 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2629 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2630 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
2631 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2632 Lisp_Object args;
20076
374e09781f08 (Faccessible_keymaps): Avoid alloca for fixed-size array.
Karl Heuer <kwzh@gnu.org>
parents: 20070
diff changeset
2633
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2634 args = Fcons (Fcons (Fcons (definition, noindirect),
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2635 Qnil), /* Result accumulator. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2636 Fcons (Fcons (this, last),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2637 Fcons (make_number (nomenus),
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2638 make_number (last_is_meta))));
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89339
diff changeset
2639 map_char_table (where_is_internal_2, Qnil, elt, args);
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2640 sequences = XCDR (XCAR (args));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2641 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
2642 else if (CONSP (elt))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2643 {
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2644 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2645
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2646 key = XCAR (elt);
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2647 binding = XCDR (elt);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2648
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2649 sequence = where_is_internal_1 (binding, key, definition,
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2650 noindirect, this,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2651 last, nomenus, last_is_meta);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2652 if (!NILP (sequence))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2653 sequences = Fcons (sequence, sequences);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2654 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2655
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2656
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2657 while (!NILP (sequences))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2658 {
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2659 Lisp_Object sequence, remapped, function;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2660
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2661 sequence = XCAR (sequences);
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2662 sequences = XCDR (sequences);
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2663
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2664 /* If the current sequence is a command remapping with
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2665 format [remap COMMAND], find the key sequences
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2666 which run COMMAND, and use those sequences instead. */
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2667 remapped = Qnil;
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2668 if (NILP (no_remap)
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2669 && VECTORP (sequence) && XVECTOR (sequence)->size == 2
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2670 && EQ (AREF (sequence, 0), Qremap)
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2671 && (function = AREF (sequence, 1), SYMBOLP (function)))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2672 {
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2673 Lisp_Object remapped1;
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2674
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2675 remapped1 = where_is_internal (function, keymaps, firstonly, noindirect, Qt);
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2676 if (CONSP (remapped1))
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2677 {
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2678 /* Verify that this key binding actually maps to the
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2679 remapped command (see below). */
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2680 if (!EQ (shadow_lookup (keymaps, XCAR (remapped1), Qnil), function))
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2681 continue;
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2682 sequence = XCAR (remapped1);
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2683 remapped = XCDR (remapped1);
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
2684 goto record_sequence;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2685 }
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2686 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2687
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2688 /* Verify that this key binding is not shadowed by another
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2689 binding for the same key, before we say it exists.
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2690
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2691 Mechanism: look for local definition of this key and if
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2692 it is defined and does not match what we found then
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2693 ignore this key.
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2694
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2695 Either nil or number as value from Flookup_key
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2696 means undefined. */
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2697 if (!EQ (shadow_lookup (keymaps, sequence, Qnil), definition))
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2698 continue;
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2699
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2700 record_sequence:
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
2701 /* Don't annoy user with strings from a menu such as
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2702 Select Paste. Change them all to "(any string)",
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2703 so that there seems to be only one menu item
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2704 to report. */
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2705 if (! NILP (sequence))
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2706 {
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2707 Lisp_Object tem;
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2708 tem = Faref (sequence, make_number (XVECTOR (sequence)->size - 1));
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2709 if (STRINGP (tem))
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2710 Faset (sequence, make_number (XVECTOR (sequence)->size - 1),
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2711 build_string ("(any string)"));
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2712 }
d474c1024296 (where_is_internal): Convert a string used as event type into "(any string)".
Richard M. Stallman <rms@gnu.org>
parents: 60066
diff changeset
2713
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2714 /* It is a true unshadowed match. Record it, unless it's already
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2715 been seen (as could happen when inheriting keymaps). */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2716 if (NILP (Fmember (sequence, found)))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2717 found = Fcons (sequence, found);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2718
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2719 /* If firstonly is Qnon_ascii, then we can return the first
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2720 binding we find. If firstonly is not Qnon_ascii but not
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2721 nil, then we should return the first ascii-only binding
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2722 we find. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2723 if (EQ (firstonly, Qnon_ascii))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2724 RETURN_UNGCPRO (sequence);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2725 else if (!NILP (firstonly) && ascii_sequence_p (sequence))
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2726 RETURN_UNGCPRO (sequence);
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2727
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2728 if (CONSP (remapped))
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2729 {
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2730 sequence = XCAR (remapped);
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2731 remapped = XCDR (remapped);
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2732 goto record_sequence;
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2733 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2734 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2735 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2736 }
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2737
7998
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2738 UNGCPRO;
d4b5f4dd9c51 (Flookup_key): Add gcpro.
Richard M. Stallman <rms@gnu.org>
parents: 7894
diff changeset
2739
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2740 found = Fnreverse (found);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2741
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2742 /* 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
2743 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
2744 return the best we could find. */
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2745 if (!NILP (firstonly))
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2746 return Fcar (found);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2747
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
2748 return found;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2749 }
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2750
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2751 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
2752 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
2753 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
2754 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
2755 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
2756
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2757 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
2758 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
2759 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
2760 no matter what it is.
56635
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
2761 If FIRSTONLY has another non-nil value, prefer sequences of ASCII characters
a8be0bc345d2 (Fmake_keymap, Fmap_keymap, Fwhere_is_internal): Doc fixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56618
diff changeset
2762 \(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
2763
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
2764 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
2765 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
2766 indirect definition itself.
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2767
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2768 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
2769 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
2770 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
2771 (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
2772 Lisp_Object definition, keymap;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2773 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
2774 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2775 Lisp_Object sequences, keymaps;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2776 /* 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
2777 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
2778 Lisp_Object result;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2779
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2780 /* Find the relevant keymaps. */
35258
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2781 if (CONSP (keymap) && KEYMAPP (XCAR (keymap)))
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2782 keymaps = keymap;
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2783 else if (!NILP (keymap))
35258
f585b46c055a Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents: 34906
diff changeset
2784 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
2785 else
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2786 keymaps = Fcurrent_active_maps (Qnil);
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2787
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2788 /* 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
2789 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
2790 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
2791 {
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2792 Lisp_Object *defns;
35781
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2793 int i, j, n;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2794 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
2795
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2796 /* 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
2797 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
2798 where_is_cache = Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2799
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2800 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
2801 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2802 /* 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
2803 Lisp_Object args[2];
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2804 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
2805 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
2806
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2807 /* Fill in the cache. */
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2808 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
2809 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
2810 UNGCPRO;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2811
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2812 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
2813 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2814
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2815 /* 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
2816 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
2817 over that vector. */
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2818 sequences = Fgethash (definition, where_is_cache, Qnil);
36405
7fe1b8d8fc44 *** empty log message ***
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36373
diff changeset
2819 n = XINT (Flength (sequences));
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2820 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
2821 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
2822 defns[i++] = XCAR (sequences);
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
2823
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2824 /* 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
2825 the following can GC. */
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2826 GCPRO2 (definition, keymaps);
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2827 result = Qnil;
35781
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2828 j = -1;
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2829 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
2830 if (EQ (shadow_lookup (keymaps, defns[i], Qnil), definition))
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2831 {
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2832 if (ascii_sequence_p (defns[i]))
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2833 break;
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2834 else if (j < 0)
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2835 j = i;
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2836 }
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2837
ffdcf20f53f2 (Fwhere_is_internal): Use the first valid binding
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35706
diff changeset
2838 result = i >= 0 ? defns[i] : (j >= 0 ? defns[j] : Qnil);
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2839 UNGCPRO;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2840 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2841 else
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2842 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2843 /* 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
2844 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
2845 where_is_cache = Qnil;
43152
0029b0259426 (Fdefine_key): Allow symbol as KEY argument for
Kim F. Storm <storm@cua.dk>
parents: 42510
diff changeset
2846 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
2847 }
35520
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2848
beec07f3fec0 (Fwhere_is_internal): Don't nreverse the cached
Gerd Moellmann <gerd@gnu.org>
parents: 35258
diff changeset
2849 return result;
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2850 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2851
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2852 /* This is the function that Fwhere_is_internal calls using map_char_table.
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2853 ARGS has the form
89992
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2854 (((DEFINITION . NOINDIRECT) . RESULT)
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2855 .
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2856 ((THIS . LAST) . (NOMENUS . LAST_IS_META)))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2857 Since map_char_table doesn't really use the return value from this function,
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2858 we the result append to RESULT, the slot in ARGS.
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2859
89992
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2860 KEY may be a cons (FROM . TO) where both FROM and TO are integers
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2861 (i.e. character events).
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2862
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2863 This function can GC because it calls where_is_internal_1 which can
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2864 GC. */
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2865
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
2866 static void
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2867 where_is_internal_2 (args, key, binding)
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2868 Lisp_Object args, key, binding;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2869 {
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2870 Lisp_Object definition, noindirect, this, last;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2871 Lisp_Object result, sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2872 int nomenus, last_is_meta;
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2873 struct gcpro gcpro1, gcpro2, gcpro3;
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2874
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2875 GCPRO3 (args, key, binding);
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2876 definition = XCAR (XCAR (XCAR (args)));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2877 noindirect = XCDR (XCAR (XCAR (args)));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2878 this = XCAR (XCAR (XCDR (args)));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2879 last = XCDR (XCAR (XCDR (args)));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2880 nomenus = XFASTINT (XCAR (XCDR (XCDR (args))));
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
2881 last_is_meta = XFASTINT (XCDR (XCDR (XCDR (args))));
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2882
89992
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2883 result = Qnil;
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2884 if (CONSP (key) && INTEGERP (XCAR (key)) && INTEGERP (XCDR (key)))
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2885 {
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2886 /* Try all ASCII characters. Try also non-ASCII characters but
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2887 only the first and last one because trying all of them is
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2888 extremely memory and time consuming.
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2889
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2890 Fixme: Perhaps it should be allowed to store a cons directly
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2891 in RESULT. -- handa@m17n.org */
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2892 int from = XINT (XCAR (key)), to = XINT (XCDR (key));
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2893 Lisp_Object k;
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2894
89994
298e7fb11b61 (where_is_internal_2): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89992
diff changeset
2895 for (; from <= to; to--)
89992
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2896 {
89994
298e7fb11b61 (where_is_internal_2): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89992
diff changeset
2897 k = make_number (to);
89992
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2898 sequence = where_is_internal_1 (binding, k, definition, noindirect,
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2899 this, last, nomenus, last_is_meta);
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2900 if (!NILP (sequence))
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2901 result = Fcons (sequence, result);
89994
298e7fb11b61 (where_is_internal_2): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89992
diff changeset
2902 if (to > 129)
298e7fb11b61 (where_is_internal_2): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89992
diff changeset
2903 to = 129;
89992
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2904 }
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2905 }
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2906 else
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2907 {
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2908 sequence = where_is_internal_1 (binding, key, definition, noindirect,
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2909 this, last, nomenus, last_is_meta);
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2910 if (!NILP (sequence))
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2911 result = Fcons (sequence, Qnil);
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2912 }
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2913
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2914 if (! NILP (result))
4f38a84c01e5 (where_is_internal_2): Fix for the case that KEY is a
Kenichi Handa <handa@m17n.org>
parents: 89961
diff changeset
2915 nconc2 (XCAR (args), result);
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2916
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2917 UNGCPRO;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2918 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2919
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2920
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
2921 /* This function can GC because get_keyelt can. */
30134
784ef95b020b (get_keymap_1): Add comment that this function can GC.
Gerd Moellmann <gerd@gnu.org>
parents: 30030
diff changeset
2922
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2923 static Lisp_Object
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2924 where_is_internal_1 (binding, key, definition, noindirect, this, last,
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2925 nomenus, last_is_meta)
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
2926 Lisp_Object binding, key, definition, noindirect, this, last;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2927 int nomenus, last_is_meta;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2928 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2929 Lisp_Object sequence;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2930
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2931 /* 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
2932 if (NILP (noindirect))
32145
a48fcf036df1 (Fwhere_is_internal): Ignore `menu-bar' and `tool-bar'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32038
diff changeset
2933 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
2934
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2935 /* 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
2936 the target. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2937
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2938 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
2939 || EQ (binding, definition)
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2940 || (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
2941 /* Doesn't match. */
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2942 return Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2943
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2944 /* 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
2945 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
2946 {
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2947 sequence = Fcopy_sequence (this);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2948 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
2949 }
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2950 else
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2951 sequence = append_key (this, key);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2952
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2953 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
2954 {
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2955 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
2956 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
2957 return Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2958 }
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2959 else
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
2960 return sequence;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
2961 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2962
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2963 /* describe-bindings - summarizing all the bindings in a set of keymaps. */
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
2964
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2965 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
2966 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
2967 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
2968 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
2969 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
2970 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
2971 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
2972 \(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
2973 (buffer, prefix, menus)
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2974 Lisp_Object buffer, prefix, menus;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2975 {
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2976 Lisp_Object outbuf, shadow;
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
2977 int nomenu = NILP (menus);
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2978 register Lisp_Object start1;
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2979 struct gcpro gcpro1;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2980
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2981 char *alternate_heading
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2982 = "\
20850
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2983 Keyboard translations:\n\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2984 You type Translation\n\
ffbaaba0bf76 (Fdescribe_bindings_internal):
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
2985 -------- -----------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2986
4575
bf0f07186369 (describe_buffer_bindings): Declare shadow just once.
Richard M. Stallman <rms@gnu.org>
parents: 4138
diff changeset
2987 shadow = Qnil;
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
2988 GCPRO1 (shadow);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
2989
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
2990 outbuf = Fcurrent_buffer ();
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2991
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2992 /* Report on alternates for keys. */
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
2993 if (STRINGP (Vkeyboard_translate_table) && !NILP (prefix))
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2994 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2995 int c;
46470
00b425333e0d (Fdescribe_buffer_bindings): Use const for pointer to
Ken Raeburn <raeburn@raeburn.org>
parents: 46370
diff changeset
2996 const unsigned char *translate = SDATA (Vkeyboard_translate_table);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
2997 int translate_len = SCHARS (Vkeyboard_translate_table);
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2998
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
2999 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
3000 if (translate[c] != c)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3001 {
26481
70d85ae6dfee (Fsingle_key_description): Use KEY_DESCRIPTION_SIZE to
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
3002 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
3003 char *bufend;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3004
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3005 if (alternate_heading)
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3006 {
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3007 insert_string (alternate_heading);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3008 alternate_heading = 0;
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3009 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3010
34906
333a490b6ebc (push_key_description): Add parameter FORCE_MULTIBYTE.
Gerd Moellmann <gerd@gnu.org>
parents: 34765
diff changeset
3011 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
3012 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3013 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
3014 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
3015 insert (buf, bufend - buf);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3016
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3017 insert ("\n", 1);
65456
d9638b932900 (Fdescribe_buffer_bindings): Reload `translate'
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
3018
d9638b932900 (Fdescribe_buffer_bindings): Reload `translate'
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
3019 /* Insert calls signal_after_change which may GC. */
d9638b932900 (Fdescribe_buffer_bindings): Reload `translate'
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
3020 translate = SDATA (Vkeyboard_translate_table);
1120
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3021 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3022
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3023 insert ("\n", 1);
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3024 }
0a486e1a45bc * keymap.c (describe_buffer_bindings): Adjust key_heading to match
Jim Blandy <jimb@redhat.com>
parents: 1095
diff changeset
3025
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3026 if (!NILP (Vkey_translation_map))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3027 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
3028 "Key translations", nomenu, 1, 0, 0);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3029
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3030
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3031 /* Print the (major mode) local map. */
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3032 start1 = Qnil;
12262
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
3033 if (!NILP (current_kboard->Voverriding_terminal_local_map))
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
3034 start1 = current_kboard->Voverriding_terminal_local_map;
a7d5578ebb25 (Fkey_binding, describe_buffer_bindings):
Karl Heuer <kwzh@gnu.org>
parents: 12151
diff changeset
3035 else if (!NILP (Voverriding_local_map))
5613
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
3036 start1 = Voverriding_local_map;
cad51b2de6cd (Fkey_binding): Handle Voverriding_local_map.
Richard M. Stallman <rms@gnu.org>
parents: 5551
diff changeset
3037
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3038 if (!NILP (start1))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3039 {
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
3040 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
3041 "\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
3042 shadow = Fcons (start1, shadow);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3043 }
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3044 else
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3045 {
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3046 /* 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
3047 int i, nmaps;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3048 Lisp_Object *modes, *maps;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3049
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3050 /* 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
3051 minor modes correctly. */
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3052 Fset_buffer (buffer);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3053
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3054 nmaps = current_minor_maps (&modes, &maps);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3055 Fset_buffer (outbuf);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3056
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3057 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
3058 XBUFFER (buffer), Qkeymap);
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3059 if (!NILP (start1))
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3060 {
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3061 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
3062 "\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
3063 0, 0, 0);
42510
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3064 shadow = Fcons (start1, shadow);
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3065 }
dde71e46eeeb (Fcurrent_active_maps): Put the `keymap' property map first.
Richard M. Stallman <rms@gnu.org>
parents: 42404
diff changeset
3066
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3067 /* Print the minor mode maps. */
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3068 for (i = 0; i < nmaps; i++)
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3069 {
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3070 /* The title for a minor mode keymap
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3071 is constructed at run time.
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3072 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
3073 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
3074 char *title, *p;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3075
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3076 if (!SYMBOLP (modes[i]))
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3077 abort();
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3078
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
3079 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
3080 *p++ = '\f';
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3081 *p++ = '\n';
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3082 *p++ = '`';
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46310
diff changeset
3083 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
3084 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
3085 p += SCHARS (SYMBOL_NAME (modes[i]));
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3086 *p++ = '\'';
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3087 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
3088 p += sizeof (" Minor Mode Bindings") - 1;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3089 *p = 0;
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3090
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3091 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
3092 title, nomenu, 0, 0, 0);
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3093 shadow = Fcons (maps[i], shadow);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3094 }
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3095
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3096 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
3097 XBUFFER (buffer), Qlocal_map);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3098 if (!NILP (start1))
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3099 {
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3100 if (EQ (start1, XBUFFER (buffer)->keymap))
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
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\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
3103 else
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3104 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
3105 "\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
3106 nomenu, 0, 0, 0);
40625
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3107
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3108 shadow = Fcons (start1, shadow);
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3109 }
1248b61b7baf (Fdescribe_buffer_bindings): Print character property
Richard M. Stallman <rms@gnu.org>
parents: 40401
diff changeset
3110 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3111
16465
398e3995162d (describe_buffer_bindings): Pass 1 for PARTIAL
Richard M. Stallman <rms@gnu.org>
parents: 16227
diff changeset
3112 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
3113 "\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
3114
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3115 /* Print the function-key-map translations under this prefix. */
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3116 if (!NILP (Vfunction_key_map))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3117 describe_map_tree (Vfunction_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
3118 "\f\nFunction key map translations", nomenu, 1, 0, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3119
7186
092688f7ebbb (describe_buffer_bindings): gcpro stuff. Delete some unused code.
Karl Heuer <kwzh@gnu.org>
parents: 7184
diff changeset
3120 UNGCPRO;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3121 return Qnil;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3122 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3123
13947
65488aa49b87 (Flookup_key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 13771
diff changeset
3124 /* Insert a description of the key bindings in STARTMAP,
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3125 followed by those of all maps reachable through STARTMAP.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3126 If PARTIAL is nonzero, omit certain "uninteresting" commands
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3127 (such as `undefined').
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3128 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
3129 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
3130 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
3131 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
3132 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
3133 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
3134
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3135 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
3136 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
3137
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3138 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
3139 to look through.
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3140
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3141 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
3142 don't omit it; instead, mention it but say it is shadowed. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3143
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3144 void
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3145 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
3146 always_title, mention_shadow)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3147 Lisp_Object startmap, shadow, prefix;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3148 int partial;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3149 char *title;
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3150 int nomenu;
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3151 int transl;
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3152 int always_title;
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3153 int mention_shadow;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3154 {
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3155 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
3156 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
3157 int something = 0;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3158 char *key_heading
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3159 = "\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3160 key binding\n\
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3161 --- -------\n";
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3162
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3163 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
3164 seen = Qnil;
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
3165 sub_shadows = Qnil;
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
3166 GCPRO3 (maps, seen, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3167
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3168 if (nomenu)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3169 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3170 Lisp_Object list;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3171
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3172 /* Delete from MAPS each element that is for the menu bar. */
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3173 for (list = maps; !NILP (list); list = XCDR (list))
5551
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3174 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3175 Lisp_Object elt, prefix, tem;
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3176
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3177 elt = Fcar (list);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3178 prefix = Fcar (elt);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3179 if (XVECTOR (prefix)->size >= 1)
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3180 {
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3181 tem = Faref (prefix, make_number (0));
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3182 if (EQ (tem, Qmenu_bar))
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3183 maps = Fdelq (elt, maps);
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3184 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3185 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3186 }
2b8f405f5103 (describe_map_tree): New arg NOMENU.
Richard M. Stallman <rms@gnu.org>
parents: 5367
diff changeset
3187
13245
2e0c4159e94b (describe_map_tree): New arg always_title. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 13201
diff changeset
3188 if (!NILP (maps) || always_title)
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3189 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3190 if (title)
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3191 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3192 insert_string (title);
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3193 if (!NILP (prefix))
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3194 {
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3195 insert_string (" Starting With ");
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3196 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
3197 }
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3198 insert_string (":\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3199 }
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3200 insert_string (key_heading);
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3201 something = 1;
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3202 }
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3203
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3204 for (; !NILP (maps); maps = Fcdr (maps))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3205 {
7184
caac285c072d (describe_map_tree): gcpro some things.
Karl Heuer <kwzh@gnu.org>
parents: 7183
diff changeset
3206 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
3207
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3208 elt = Fcar (maps);
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3209 prefix = Fcar (elt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3210
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3211 sub_shadows = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3212
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3213 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
3214 {
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3215 Lisp_Object shmap;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3216
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3217 shmap = XCAR (tail);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3218
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3219 /* 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
3220 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
3221 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
3222 || (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
3223 ;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3224 /* 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
3225 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
3226 what we should use. */
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3227 else
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3228 {
6859
f34b91fa388c (describe_map_tree): Fix call to Flookup_key.
Richard M. Stallman <rms@gnu.org>
parents: 6834
diff changeset
3229 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
3230 if (INTEGERP (shmap))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3231 shmap = Qnil;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3232 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3233
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3234 /* 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
3235 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
3236 describe this map at all. */
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3237 if (!NILP (shmap) && !KEYMAPP (shmap))
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3238 goto skip;
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3239
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3240 if (!NILP (shmap))
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3241 sub_shadows = Fcons (shmap, sub_shadows);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3242 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3243
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3244 /* 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
3245 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
3246 {
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3247 Lisp_Object tem;
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3248 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
3249 if (!NILP (tem))
20883
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3250 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
3251 }
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3252
4aeabf3b8f98 (describe_map_tree): Add the maps we have already
Richard M. Stallman <rms@gnu.org>
parents: 20850
diff changeset
3253 describe_map (Fcdr (elt), prefix,
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3254 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
3255 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
3256
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3257 skip: ;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3258 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3259
4023
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3260 if (something)
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3261 insert_string ("\n");
5e4f918d5d44 (describe_map_tree): When inserting TITLE, mention PREFIX.
Richard M. Stallman <rms@gnu.org>
parents: 3962
diff changeset
3262
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3263 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3264 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3265
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3266 static int previous_description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3267
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3268 static void
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3269 describe_command (definition, args)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3270 Lisp_Object definition, args;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3271 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3272 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
3273 int column = (int) current_column (); /* iftc */
14304
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3274 int description_column;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3275
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3276 /* If column 16 is no good, go to col 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3277 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
3278 if (column > 30)
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3279 {
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3280 insert_char ('\n');
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3281 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3282 }
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3283 else if (column > 14 || (column > 10 && previous_description_column == 32))
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3284 description_column = 32;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3285 else
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3286 description_column = 16;
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3287
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3288 Findent_to (make_number (description_column), make_number (1));
57194b6a555d (Faccessible_keymaps): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3289 previous_description_column = description_column;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3290
9123
c225137ddefb (get_keyelt, store_in_keymap, Fcopy_keymap, Fdefine_key, Flookup_key,
Karl Heuer <kwzh@gnu.org>
parents: 8922
diff changeset
3291 if (SYMBOLP (definition))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3292 {
45404
3885467d7b12 * keymap.c (silly_event_symbol_error, Fsingle_key_description)
Ken Raeburn <raeburn@raeburn.org>
parents: 45279
diff changeset
3293 tem1 = SYMBOL_NAME (definition);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3294 insert1 (tem1);
21539
b9606d56f91f Revert erroneous 1998-04-08 change.
Dave Love <fx@gnu.org>
parents: 21514
diff changeset
3295 insert_string ("\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3296 }
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3297 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
3298 insert_string ("Keyboard Macro\n");
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3299 else if (KEYMAPP (definition))
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3300 insert_string ("Prefix Command\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3301 else
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3302 insert_string ("??\n");
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3303 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3304
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3305 static void
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3306 describe_translation (definition, args)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3307 Lisp_Object definition, args;
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3308 {
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3309 register Lisp_Object tem1;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3310
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3311 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
3312
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3313 if (SYMBOLP (definition))
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3314 {
45404
3885467d7b12 * keymap.c (silly_event_symbol_error, Fsingle_key_description)
Ken Raeburn <raeburn@raeburn.org>
parents: 45279
diff changeset
3315 tem1 = SYMBOL_NAME (definition);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3316 insert1 (tem1);
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3317 insert_string ("\n");
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3318 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3319 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
3320 {
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3321 insert1 (Fkey_description (definition, Qnil));
13343
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
3322 insert_string ("\n");
cc0f24bdfab1 (describe_translation): Insert newline after key description.
Richard M. Stallman <rms@gnu.org>
parents: 13245
diff changeset
3323 }
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3324 else if (KEYMAPP (definition))
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3325 insert_string ("Prefix Command\n");
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3326 else
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32889
diff changeset
3327 insert_string ("??\n");
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3328 }
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3329
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3330 /* 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
3331 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
3332 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
3333
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3334 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
3335
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3336 /* 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
3337 the event field. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3338
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3339 static int
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3340 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
3341 const void *aa, *bb;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3342 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3343 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
3344 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
3345 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
3346 - (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
3347 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
3348 return 1;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3349 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
3350 return -1;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3351 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
3352 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
3353 : !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
3354 : 0);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3355 return 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3356 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3357
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
3358 /* 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
3359 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
3360 PARTIAL, SHADOW, NOMENU are as in `describe_map_tree' above. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3361
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3362 static void
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3363 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
3364 seen, nomenu, mention_shadow)
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
3365 register Lisp_Object map;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3366 Lisp_Object prefix;
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3367 void (*elt_describer) P_ ((Lisp_Object, Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3368 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3369 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
3370 Lisp_Object *seen;
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3371 int nomenu;
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3372 int mention_shadow;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3373 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3374 Lisp_Object tail, definition, event;
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3375 Lisp_Object tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3376 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3377 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3378 int first = 1;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3379 struct gcpro gcpro1, gcpro2, gcpro3;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3380
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3381 /* 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
3382 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
3383 int length_needed = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3384 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
3385 int slots_used = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3386 int i;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3387
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3388 suppress = Qnil;
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3389
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3390 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3391 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3392
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3393 /* 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
3394 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
3395 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3396 kludge = Fmake_vector (make_number (1), Qnil);
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3397 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3398
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3399 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
3400 length_needed++;
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 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
3403 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
3404
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3405 GCPRO3 (prefix, definition, kludge);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3406
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3407 for (tail = map; CONSP (tail); tail = XCDR (tail))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3408 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3409 QUIT;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3410
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3411 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
3412 || 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
3413 describe_vector (XCAR (tail),
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3414 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
3415 (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
3416 else if (CONSP (XCAR (tail)))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3417 {
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3418 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
3419
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3420 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
3421
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3422 /* 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
3423 (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
3424 if (!(SYMBOLP (event) || INTEGERP (event)))
7191
bd2f9c5ee54e (Fsingle_key_description): Undo previous change.
Karl Heuer <kwzh@gnu.org>
parents: 7186
diff changeset
3425 continue;
7341
516dd16e2017 (describe_map): Ignore bindings for all except symbols and integers.
Richard M. Stallman <rms@gnu.org>
parents: 7191
diff changeset
3426
14129
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3427 if (nomenu && EQ (event, Qmenu_bar))
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3428 continue;
d0b95da4f1f2 (describe_map): New arg nomenu.
Karl Heuer <kwzh@gnu.org>
parents: 14099
diff changeset
3429
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3430 definition = get_keyelt (XCDR (XCAR (tail)), 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3431
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3432 /* Don't show undefined commands or suppressed commands. */
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3433 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
3434 if (SYMBOLP (definition) && partial)
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3435 {
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3436 tem = Fget (definition, suppress);
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3437 if (!NILP (tem))
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3438 continue;
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3439 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3440
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3441 /* 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
3442 because a local definition of the same key shadows it. */
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3443
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
3444 ASET (kludge, 0, event);
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3445 if (!NILP (shadow))
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3446 {
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3447 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
3448 if (!NILP (tem))
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3449 {
70554
e1a064810f6f * keymap.c (describe_map): Avoid generating duplicate entries if
Chong Yidong <cyd@stupidchicken.com>
parents: 70536
diff changeset
3450 /* Avoid generating duplicate entries if the
e1a064810f6f * keymap.c (describe_map): Avoid generating duplicate entries if
Chong Yidong <cyd@stupidchicken.com>
parents: 70536
diff changeset
3451 shadowed binding has the same definition. */
e1a064810f6f * keymap.c (describe_map): Avoid generating duplicate entries if
Chong Yidong <cyd@stupidchicken.com>
parents: 70536
diff changeset
3452 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
3453 this_shadowed = 1;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3454 else
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3455 continue;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3456 }
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3457 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3458
6974
ab22b527d380 (describe_map): Merge with describe_map_2.
Karl Heuer <kwzh@gnu.org>
parents: 6859
diff changeset
3459 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
3460 if (!EQ (tem, definition)) continue;
3908
a148b4ff79c6 (describe_map_2): Cleanups.
Richard M. Stallman <rms@gnu.org>
parents: 3735
diff changeset
3461
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3462 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
3463 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
3464 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
3465 slots_used++;
1209
1aa2cd425737 * keymap.c (DENSE_TABLE_SIZE): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1160
diff changeset
3466 }
25662
0a7261c1d487 Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25600
diff changeset
3467 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
3468 {
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3469 /* 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
3470 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
3471 encountered. */
4d540eeb2dd5 (describe_map_tree, describe_map): Skip keymaps we've seen before.
Karl Heuer <kwzh@gnu.org>
parents: 6974
diff changeset
3472 tem = Fassq (tail, *seen);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3473 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
3474 break;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3475 *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
3476 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3477 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3478
67904
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3479 /* 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
3480
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3481 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
3482 describe_map_compare);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3483
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3484 /* 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
3485
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3486 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
3487 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3488 Lisp_Object start, end;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3489
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3490 if (first)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3491 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3492 previous_description_column = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3493 insert ("\n", 1);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3494 first = 0;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3495 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3496
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3497 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
3498 start = vect[i].event;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3499 end = start;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3500
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3501 definition = vect[i].definition;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3502
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3503 /* 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
3504 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
3505 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3506 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
3507 && 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
3508 && !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
3509 && 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
3510 i++;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3511 end = vect[i].event;
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3512 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3513
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3514 /* 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
3515
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3516 /* 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
3517 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
3518
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3519 if (!EQ (start, end))
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3520 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3521 insert (" .. ", 4);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3522
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3523 ASET (kludge, 0, end);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3524 /* 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
3525 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
3526 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3527
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3528 /* 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
3529 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
3530 for alignment purposes. */
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3531 (*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
3532
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3533 if (vect[i].shadowed)
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3534 {
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3535 SET_PT (PT - 1);
70083
61d8c79b3c79 (describe_map): Make "shadowed" warning more verbose.
Richard M. Stallman <rms@gnu.org>
parents: 69870
diff changeset
3536 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
3537 SET_PT (PT + 1);
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3538 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3539 }
d2dff317d618 (describe_map): Put sparse map elements into an array,
Richard M. Stallman <rms@gnu.org>
parents: 67674
diff changeset
3540
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3541 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3542 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3543
20319
81424cf4d446 (copy_keymap_1): Fix return type.
Andreas Schwab <schwab@suse.de>
parents: 20076
diff changeset
3544 static void
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3545 describe_vector_princ (elt, fun)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3546 Lisp_Object elt, fun;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3547 {
3691
49ce2242f5c1 (get_keymap_1): Add missing semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 3674
diff changeset
3548 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
3549 call1 (fun, elt);
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
3550 Fterpri (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3551 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3552
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3553 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
3554 doc: /* Insert a description of contents of VECTOR.
55913
c663e2e97168 (Fdescribe_vector): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 55722
diff changeset
3555 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
3556 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
3557 (vector, describer)
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3558 Lisp_Object vector, describer;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3559 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46142
diff changeset
3560 int count = SPECPDL_INDEX ();
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3561 if (NILP (describer))
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3562 describer = intern ("princ");
3632
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
3563 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
3564 CHECK_VECTOR_OR_CHAR_TABLE (vector);
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3565 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
3566 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
3567
72cfde0cd8cd (Fdescribe_vector): Use current buf, not standard-output.
Richard M. Stallman <rms@gnu.org>
parents: 3542
diff changeset
3568 return unbind_to (count, Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3569 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3570
13201
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3571 /* 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
3572 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
3573 in VECTOR.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3574
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3575 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
3576 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
3577 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
3578
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3579 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
3580 leads to this keymap.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3581
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3582 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
3583 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
3584 set described by this chartable.
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3585
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3586 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
3587 (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
3588
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3589 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
3590 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
3591 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
3592
e9007fec678e (describe_vector): Support nested char-tables.
Richard M. Stallman <rms@gnu.org>
parents: 13145
diff changeset
3593 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
3594 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
3595 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
3596
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3597 ARGS is simply passed as the second argument to ELT_DESCRIBER.
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3598
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3599 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
3600 the near future.
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3601
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3602 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
3603
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3604 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
3605
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3606 static void
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3607 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
3608 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
3609 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
3610 mention_shadow)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3611 register Lisp_Object vector;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3612 Lisp_Object prefix, args;
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3613 void (*elt_describer) P_ ((Lisp_Object, Lisp_Object));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3614 int partial;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3615 Lisp_Object shadow;
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3616 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
3617 int *indices;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3618 int char_table_depth;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3619 int keymap_p;
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3620 int mention_shadow;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3621 {
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3622 Lisp_Object definition;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3623 Lisp_Object tem2;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3624 Lisp_Object elt_prefix = Qnil;
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3625 int i;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3626 Lisp_Object suppress;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3627 Lisp_Object kludge;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3628 int first = 1;
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3629 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3630 /* Range of elements to be handled. */
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3631 int from, to;
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3632 Lisp_Object character;
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3633 int starting_i;
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3634
31829
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3635 suppress = Qnil;
43566b0aec59 Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents: 31496
diff changeset
3636
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3637 definition = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3638
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3639 if (!keymap_p)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3640 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3641 /* 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
3642 if (!NILP (prefix) && XFASTINT (Flength (prefix)) > 0)
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3643 {
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3644 Lisp_Object tem;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3645 tem = Fkey_description (prefix, Qnil);
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3646 elt_prefix = concat2 (tem, build_string (" "));
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3647 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3648 prefix = Qnil;
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3649 }
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3650
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3651 /* This vector gets used to present single keys to Flookup_key. Since
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3652 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
3653 fresh vector every time. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3654 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
3655 GCPRO4 (elt_prefix, prefix, definition, kludge);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3656
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3657 if (partial)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3658 suppress = intern ("suppress-keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3659
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3660 from = 0;
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3661 to = CHAR_TABLE_P (vector) ? MAX_CHAR + 1 : XVECTOR (vector)->size;
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3662
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3663 for (i = from; i < to; i++)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3664 {
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3665 int this_shadowed = 0;
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3666 int range_beg, range_end;
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3667 Lisp_Object val;
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3668
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3669 QUIT;
17189
7c008ec99e97 (describe_vector): Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
Kenichi Handa <handa@m17n.org>
parents: 17111
diff changeset
3670
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3671 starting_i = i;
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3672
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3673 if (CHAR_TABLE_P (vector))
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3674 val = char_table_ref_and_range (vector, i, &range_beg, &i);
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3675 else
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3676 val = AREF (vector, i);
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3677 definition = get_keyelt (val, 0);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3678
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3679 if (NILP (definition)) continue;
17511
10ead0052174 (describe_vector): Test for suppressed commands in
Richard M. Stallman <rms@gnu.org>
parents: 17510
diff changeset
3680
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3681 /* Don't mention suppressed commands. */
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3682 if (SYMBOLP (definition) && partial)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3683 {
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3684 Lisp_Object tem;
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3685
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3686 tem = Fget (definition, suppress);
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3687
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3688 if (!NILP (tem)) continue;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3689 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3690
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3691 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
3692 ASET (kludge, 0, character);
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3693
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3694 /* 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
3695 if (!NILP (shadow))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3696 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3697 Lisp_Object tem;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
3698
3952
f9dfc2872fb0 (describe_map_tree): Insert key_heading here.
Richard M. Stallman <rms@gnu.org>
parents: 3908
diff changeset
3699 tem = shadow_lookup (shadow, kludge, Qt);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3700
60066
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3701 if (!NILP (tem))
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3702 {
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3703 if (mention_shadow)
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3704 this_shadowed = 1;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3705 else
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3706 continue;
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3707 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3708 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3709
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3710 /* 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
3711 one in the same keymap. */
88380
88a2dd2ddb6e Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43504
diff changeset
3712 if (!NILP (entire_map))
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3713 {
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3714 Lisp_Object tem;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3715
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3716 tem = Flookup_key (entire_map, kludge, Qt);
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3717
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
3718 if (!EQ (tem, definition))
11973
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3719 continue;
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3720 }
4e0f3e3b4cc7 (describe_vector): New arg entire_map.
Karl Heuer <kwzh@gnu.org>
parents: 11924
diff changeset
3721
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3722 if (first)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3723 {
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3724 insert ("\n", 1);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3725 first = 0;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3726 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3727
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3728 /* 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
3729 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3730 insert1 (elt_prefix);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3731
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 55913
diff changeset
3732 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
3733
17795
41b7d56b62fb (describe_vector): Identify charset row numbers clearly.
Richard M. Stallman <rms@gnu.org>
parents: 17788
diff changeset
3734 /* Find all consecutive characters or rows that have the same
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3735 definition. But, for elements of a top level char table, if
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3736 they are for charsets, we had better describe one by one even
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3737 if they have the same definition. */
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3738 if (CHAR_TABLE_P (vector))
88747
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3739 while (i + 1 < to
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3740 && (val = char_table_ref_and_range (vector, i + 1,
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3741 &range_beg, &range_end),
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3742 tem2 = get_keyelt (val, 0),
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3743 !NILP (tem2))
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3744 && !NILP (Fequal (tem2, definition)))
f35665df510f (describe_vector): Handle a char-table directly here.
Kenichi Handa <handa@m17n.org>
parents: 88380
diff changeset
3745 i = range_end;
17327
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3746 else
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3747 while (i + 1 < to
32846
c1b3ab2a1ccc Use AREF, ASET and ASIZE macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32844
diff changeset
3748 && (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
3749 !NILP (tem2))
0cb065f8702e (describe_vector): Adjusted for the new structure of Lisp_Char_Table.
Kenichi Handa <handa@m17n.org>
parents: 17264
diff changeset
3750 && !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
3751 i++;
45279
220c13a65624 (keymap_parent): New fun, extracted from Fkeymap_parent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45235
diff changeset
3752
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3753 /* If we have a range of more than one character,
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3754 print where the range reaches to. */
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3755
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3756 if (i != starting_i)
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3757 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3758 insert (" .. ", 4);
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3759
54925
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3760 ASET (kludge, 0, make_number (i));
f0a7441d22f6 (Fkey_description): Add optional PREFIX arg.
Kim F. Storm <storm@cua.dk>
parents: 53808
diff changeset
3761
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3762 if (!NILP (elt_prefix))
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3763 insert1 (elt_prefix);
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3764
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 55913
diff changeset
3765 insert1 (Fkey_description (kludge, prefix));
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3766 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3767
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3768 /* Print a description of the definition of this character.
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3769 elt_describer will take care of spacing out far enough
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3770 for alignment purposes. */
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3771 (*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
3772
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3773 if (this_shadowed)
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3774 {
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3775 SET_PT (PT - 1);
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3776 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
3777 SET_PT (PT + 1);
eca75f16d020 (describe_map_tree): New arg MENTION_SHADOW. Calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 59754
diff changeset
3778 }
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3779 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3780
89810
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3781 if (CHAR_TABLE_P (vector) && ! NILP (XCHAR_TABLE (vector)->defalt))
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3782 {
89810
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3783 if (!NILP (elt_prefix))
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3784 insert1 (elt_prefix);
743cb02a49dd (describe_vector): Handle default value of a char table.
Kenichi Handa <handa@m17n.org>
parents: 89655
diff changeset
3785 insert ("default", 7);
41293
3db86c7bf56f (Fdescribe_vector): Add `describer' parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41001
diff changeset
3786 (*elt_describer) (XCHAR_TABLE (vector)->defalt, args);
17036
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3787 }
7e4c52fd4430 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16875
diff changeset
3788
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3789 UNGCPRO;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3790 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3791
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3792 /* 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
3793 static Lisp_Object apropos_predicate;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3794 static Lisp_Object apropos_accumulate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3795
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3796 static void
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3797 apropos_accum (symbol, string)
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3798 Lisp_Object symbol, string;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3799 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3800 register Lisp_Object tem;
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3801
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3802 tem = Fstring_match (string, Fsymbol_name (symbol), Qnil);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3803 if (!NILP (tem) && !NILP (apropos_predicate))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3804 tem = call1 (apropos_predicate, symbol);
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
3805 if (!NILP (tem))
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3806 apropos_accumulate = Fcons (symbol, apropos_accumulate);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3807 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3808
45619
dbd65bd8bb4f (describe_command): Cast `current_column' return value to int.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45404
diff changeset
3809 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
3810 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
3811 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
3812 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
3813 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
3814 (regexp, predicate)
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3815 Lisp_Object regexp, predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3816 {
49059
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3817 Lisp_Object tem;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40625
diff changeset
3818 CHECK_STRING (regexp);
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3819 apropos_predicate = predicate;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3820 apropos_accumulate = Qnil;
14080
439185f0ef37 (Fkeymapp, Fdefine_prefix_command, Faccessible_keymaps,
Erik Naggum <erik@naggum.no>
parents: 13947
diff changeset
3821 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
3822 tem = Fsort (apropos_accumulate, Qstring_lessp);
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3823 apropos_accumulate = Qnil;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3824 apropos_predicate = Qnil;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3825 return tem;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3826 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3827
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21429
diff changeset
3828 void
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3829 syms_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3830 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3831 Qkeymap = intern ("keymap");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3832 staticpro (&Qkeymap);
49059
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3833 staticpro (&apropos_predicate);
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3834 staticpro (&apropos_accumulate);
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3835 apropos_predicate = Qnil;
435da46787dd (apropos_predicate, apropos_accumulate): Make them static.
Richard M. Stallman <rms@gnu.org>
parents: 46470
diff changeset
3836 apropos_accumulate = Qnil;
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3837
17788
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3838 /* 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
3839 create char tables. */
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3840 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
3841
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3842 /* 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
3843 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
3844 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
3845
208d71ea3a4f (get_keyelt): Handle an indirect entry with meta char.
Richard M. Stallman <rms@gnu.org>
parents: 17511
diff changeset
3846 global_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3847 Fset (intern ("global-map"), global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3848
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3849 current_global_map = global_map;
16227
6acf08913847 (syms_of_keymap): staticpro global_map.
Erik Naggum <erik@naggum.no>
parents: 16125
diff changeset
3850 staticpro (&global_map);
16125
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3851 staticpro (&current_global_map);
2e0a45264368 (syms_of_keymap): staticpro current_global_map;
Richard M. Stallman <rms@gnu.org>
parents: 15422
diff changeset
3852
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3853 meta_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3854 Fset (intern ("esc-map"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3855 Ffset (intern ("ESC-prefix"), meta_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3856
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3857 control_x_map = Fmake_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3858 Fset (intern ("ctl-x-map"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3859 Ffset (intern ("Control-X-prefix"), control_x_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3860
42378
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3861 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
3862 = 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
3863 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
3864 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
3865 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
3866 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
3867 Qnil)))));
9f96219e833e (Flookup_key): Add error message for trying to bind [DEL], [RET], etc.
Richard M. Stallman <rms@gnu.org>
parents: 42206
diff changeset
3868 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
3869
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3870 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
3871 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
3872 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
3873 don't alter it yourself. */);
12297
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3874 Vdefine_key_rebound_commands = Qt;
fe458a8ecfa2 (Vdefine_key_rebound_commands): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12262
diff changeset
3875
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3876 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
3877 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
3878 Vminibuffer_local_map = Fmake_sparse_keymap (Qnil);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3879
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3880 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
3881 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
3882 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
3883 Fset_keymap_parent (Vminibuffer_local_ns_map, Vminibuffer_local_map);
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 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
3886 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
3887 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
3888 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3889
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
3890 DEFVAR_LISP ("minibuffer-local-filename-completion-map",
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3891 &Vminibuffer_local_filename_completion_map,
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3892 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
3893 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
3894 Fset_keymap_parent (Vminibuffer_local_filename_completion_map,
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3895 Vminibuffer_local_completion_map);
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3896
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3897
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3898 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
3899 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
3900 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
3901 Fset_keymap_parent (Vminibuffer_local_must_match_map,
ccaa40660e40 (Fkey_description): Use empty_string.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39702
diff changeset
3902 Vminibuffer_local_completion_map);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3903
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
3904 DEFVAR_LISP ("minibuffer-local-must-match-filename-map",
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3905 &Vminibuffer_local_must_match_filename_map,
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3906 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */);
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3907 Vminibuffer_local_must_match_filename_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
3908 Fset_keymap_parent (Vminibuffer_local_must_match_filename_map,
67259
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3909 Vminibuffer_local_must_match_map);
134dc8d03e55 (Vminibuffer_local_filename_completion_map)
Eli Zaretskii <eliz@gnu.org>
parents: 67070
diff changeset
3910
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3911 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
3912 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
3913 Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3914 key sequences and look up bindings iff VARIABLE's value is non-nil.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3915 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
3916 in the list takes precedence. */);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3917 Vminor_mode_map_alist = Qnil;
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
3918
20517
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3919 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
3920 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
3921 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
3922 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
3923 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
3924 Vminor_mode_overriding_map_alist = Qnil;
40bfe766d355 (Vminor_mode_overriding_map_alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20381
diff changeset
3925
45222
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
3926 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
3927 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
3928 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
3929 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
3930 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
3931 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
3932 `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
3933 Vemulation_mode_map_alists = Qnil;
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
3934
c525c7445e1b (Vemulation_mode_map_alists): New variable.
Kim F. Storm <storm@cua.dk>
parents: 43504
diff changeset
3935
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3936 DEFVAR_LISP ("function-key-map", &Vfunction_key_map,
67505
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
3937 doc: /* Keymap that translates key sequences to key sequences during input.
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
3938 This is used mainly for mapping ASCII function key sequences into
51053176f6b7 (Fset_keymap_parent, store_in_keymap): Use CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents: 67259
diff changeset
3939 real Emacs function key events (symbols).
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3940
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3941 The `read-key-sequence' function replaces any subsequence bound by
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3942 `function-key-map' with its binding. More precisely, when the active
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3943 keymaps have no binding for the current key sequence but
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3944 `function-key-map' binds a suffix of the sequence to a vector or string,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3945 `read-key-sequence' replaces the matching suffix with its binding, and
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3946 continues with the new sequence.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3947
67674
e7b90ba8a38a (Vfunction_key_map): Docstring fix: mention that bindings can be functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67505
diff changeset
3948 If the binding is a function, it is called with one argument (the prompt)
e7b90ba8a38a (Vfunction_key_map): Docstring fix: mention that bindings can be functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67505
diff changeset
3949 and its return value (a key sequence) is used.
e7b90ba8a38a (Vfunction_key_map): Docstring fix: mention that bindings can be functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 67505
diff changeset
3950
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3951 The events that come from bindings in `function-key-map' are not
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3952 themselves looked up in `function-key-map'.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3953
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3954 For example, suppose `function-key-map' binds `ESC O P' to [f1].
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3955 Typing `ESC O P' to `read-key-sequence' would return [f1]. Typing
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3956 `C-x ESC O P' would return [?\\C-x f1]. If [f1] were a prefix
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3957 key, typing `ESC O P x' would return [f1 x]. */);
1095
6578f07e9eb8 (Fmake_sparse_keymap, Fmake_keymap): New optional arg. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents: 647
diff changeset
3958 Vfunction_key_map = Fmake_sparse_keymap (Qnil);
517
2f2206ac3dba *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
3959
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3960 DEFVAR_LISP ("key-translation-map", &Vkey_translation_map,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3961 doc: /* Keymap of key translations that can override keymaps.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40804
diff changeset
3962 This keymap works like `function-key-map', but comes after that,
56618
166ae6765a44 (Flocal_key_binding, Fglobal_key_binding)
Luc Teirlinck <teirllm@auburn.edu>
parents: 56574
diff changeset
3963 and its non-prefix bindings override ordinary bindings. */);
12710
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3964 Vkey_translation_map = Qnil;
26c09987d2f3 (describe_buffer_bindings): Print bindings from
Richard M. Stallman <rms@gnu.org>
parents: 12542
diff changeset
3965
53808
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3966 staticpro (&Vmouse_events);
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3967 Vmouse_events = Fcons (intern ("menu-bar"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3968 Fcons (intern ("tool-bar"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3969 Fcons (intern ("header-line"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3970 Fcons (intern ("mode-line"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3971 Fcons (intern ("mouse-1"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3972 Fcons (intern ("mouse-2"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3973 Fcons (intern ("mouse-3"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3974 Fcons (intern ("mouse-4"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3975 Fcons (intern ("mouse-5"),
aa6be081315b (Vmouse_events): Rename from Vmenu_events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52740
diff changeset
3976 Qnil)))))))));
50141
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
3977
3770fda038d0 (Vmenu_events): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49912
diff changeset
3978
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3979 Qsingle_key_description = intern ("single-key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3980 staticpro (&Qsingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3981
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3982 Qkey_description = intern ("key-description");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3983 staticpro (&Qkey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3984
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3985 Qkeymapp = intern ("keymapp");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3986 staticpro (&Qkeymapp);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3987
2727
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
3988 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
3989 staticpro (&Qnon_ascii);
b8911c8b9700 * keymap.c (Fwhere_is_internal): If FIRSTONLY is non-nil, avoid
Jim Blandy <jimb@redhat.com>
parents: 2652
diff changeset
3990
21241
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
3991 Qmenu_item = intern ("menu-item");
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
3992 staticpro (&Qmenu_item);
31bd04a792c2 (fix_submap_inheritance, get_keyelt, store_in_keymap,
Richard M. Stallman <rms@gnu.org>
parents: 20883
diff changeset
3993
43494
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
3994 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
3995 staticpro (&Qremap);
b5b76b498398 The following changes rework my patch of 2002-02-06 which
Kim F. Storm <storm@cua.dk>
parents: 43164
diff changeset
3996
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
3997 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
3998 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
3999
32889
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4000 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
4001 where_is_cache = Qnil;
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4002 staticpro (&where_is_cache);
673e3ef1f7f6 (where_is_cache, where_is_cache_keymaps): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32846
diff changeset
4003 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
4004
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4005 defsubr (&Skeymapp);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
4006 defsubr (&Skeymap_parent);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
4007 defsubr (&Skeymap_prompt);
15344
82615c826910 (Fkeymap_parent, Fset_keymap_parent): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 14738
diff changeset
4008 defsubr (&Sset_keymap_parent);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4009 defsubr (&Smake_keymap);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4010 defsubr (&Smake_sparse_keymap);
50798
2d72cdb7e9f8 (map_keymap_item, map_keymap_char_table_item, map_keymap)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50190
diff changeset
4011 defsubr (&Smap_keymap);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4012 defsubr (&Scopy_keymap);
49757
9fe119b14379 Renamed remap-command to command-remapping. All uses changed.
Kim F. Storm <storm@cua.dk>
parents: 49720
diff changeset
4013 defsubr (&Scommand_remapping);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4014 defsubr (&Skey_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4015 defsubr (&Slocal_key_binding);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4016 defsubr (&Sglobal_key_binding);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
4017 defsubr (&Sminor_mode_key_binding);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4018 defsubr (&Sdefine_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4019 defsubr (&Slookup_key);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4020 defsubr (&Sdefine_prefix_command);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4021 defsubr (&Suse_global_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4022 defsubr (&Suse_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4023 defsubr (&Scurrent_local_map);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4024 defsubr (&Scurrent_global_map);
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 368
diff changeset
4025 defsubr (&Scurrent_minor_mode_maps);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
4026 defsubr (&Scurrent_active_maps);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4027 defsubr (&Saccessible_keymaps);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4028 defsubr (&Skey_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4029 defsubr (&Sdescribe_vector);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4030 defsubr (&Ssingle_key_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4031 defsubr (&Stext_char_description);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4032 defsubr (&Swhere_is_internal);
39689
0572449a62be (Fkeymap_prompt, Fcurrent_active_maps): New funs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
4033 defsubr (&Sdescribe_buffer_bindings);
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4034 defsubr (&Sapropos_internal);
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4035 }
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4036
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21429
diff changeset
4037 void
250
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4038 keys_of_keymap ()
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4039 {
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4040 initial_define_key (global_map, 033, "ESC-prefix");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4041 initial_define_key (global_map, Ctl('X'), "Control-X-prefix");
7e94ea5958e0 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4042 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51034
diff changeset
4043
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51034
diff changeset
4044 /* arch-tag: 6dd15c26-7cf1-41c4-b904-f42f7ddda463
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51034
diff changeset
4045 (do not change this comment) */