# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865459313 0
# Node ID c9bd973ca168987c718223cd9f7e5d292eab3e4b
# Parent  2628fada589ed735144fafe7ee6aca2a3a0d4ebf
(Fcopy_keymap): After copying a sub-char-table, do store the copy.

diff -r 2628fada589e -r c9bd973ca168 src/keymap.c
--- a/src/keymap.c	Wed Jun 04 19:45:17 1997 +0000
+++ b/src/keymap.c	Wed Jun 04 21:21:53 1997 +0000
@@ -712,6 +712,8 @@
 	    = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
 
 	  elt = Fcopy_sequence (elt);
+	  XCONS (tail)->car = elt;
+
 	  map_char_table (copy_keymap_1, Qnil, elt, elt, 0, indices);
 	}
       else if (VECTORP (elt))