]> code.delx.au - gnu-emacs/commitdiff
(Fsubstitute_command_keys): Ignore remappings unless there
authorKim F. Storm <storm@cua.dk>
Mon, 11 Oct 2004 22:36:35 +0000 (22:36 +0000)
committerKim F. Storm <storm@cua.dk>
Mon, 11 Oct 2004 22:36:35 +0000 (22:36 +0000)
are no ordinary bindings.

src/doc.c

index 120d35767b2c0edb16739e76eddabca505deef06..e6914d2403881cc5a9213fe204789cd24e3a8898 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -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;