Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a1d3a188
Commit
a1d3a188
authored
Sep 09, 2005
by
Kim F. Storm
Browse files
(Fsubstitute_command_keys): Lookup key binding for
commands that are remapped from some other command.
parent
39cac6b3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
0 deletions
+13
-0
src/doc.c
src/doc.c
+13
-0
No files found.
src/doc.c
View file @
a1d3a188
...
...
@@ -57,6 +57,8 @@ static Lisp_Object Vbuild_files;
extern
Lisp_Object
Voverriding_local_map
;
extern
Lisp_Object
Qremap
;
/* For VMS versions with limited file name syntax,
convert the name to something VMS will allow. */
static
void
...
...
@@ -812,6 +814,7 @@ thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ int
else
if
(
strp
[
0
]
==
'\\'
&&
strp
[
1
]
==
'['
)
{
int
start_idx
;
int
follow_remap
=
1
;
changed
=
1
;
strp
+=
2
;
/* skip \[ */
...
...
@@ -830,11 +833,21 @@ thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ int
idx
=
strp
-
SDATA
(
string
);
name
=
Fintern
(
make_string
(
start
,
length_byte
),
Qnil
);
do_remap:
/* Ignore remappings unless there are no ordinary bindings. */
tem
=
Fwhere_is_internal
(
name
,
keymap
,
Qt
,
Qnil
,
Qt
);
if
(
NILP
(
tem
))
tem
=
Fwhere_is_internal
(
name
,
keymap
,
Qt
,
Qnil
,
Qnil
);
if
(
VECTORP
(
tem
)
&&
XVECTOR
(
tem
)
->
size
>
1
&&
EQ
(
AREF
(
tem
,
0
),
Qremap
)
&&
SYMBOLP
(
AREF
(
tem
,
1
))
&&
follow_remap
)
{
name
=
AREF
(
tem
,
1
);
follow_remap
=
0
;
goto
do_remap
;
}
/* Note the Fwhere_is_internal can GC, so we have to take
relocation of string contents into account. */
strp
=
SDATA
(
string
)
+
idx
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment