mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-10 09:12:15 +00:00
Code Issues Releases Activity

(Fsubstitute_command_keys): Ignore remappings unless there

Browse Source 
are no ordinary bindings.
This commit is contained in:
Kim F. Storm 2004-10-11 22:36:35 +00:00
parent b583964c15
commit 332e51c15c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/doc.c
View File

@ -776,9 +776,13 @@ thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ int
idx = strp - SDATA (string);
tem = Fintern (make_string (start, length_byte), Qnil);
/* Ignore remappings unless there are no ordinary bindings. */
tem = Fwhere_is_internal (tem, keymap, Qt, Qnil, Qt);
if (NILP (tem))
tem = Fwhere_is_internal (tem, keymap, Qt, Qnil, Qnil);
/* Note the Fwhere_is_internal can GC, so we have to take
relocation of string contents into account. */
tem = Fwhere_is_internal (tem, keymap, Qt, Qnil, Qnil);
strp = SDATA (string) + idx;
start = SDATA (string) + start_idx;