From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Jun 1997 21:21:53 +0000 (+0000)
Subject: (Fcopy_keymap): After copying a sub-char-table, do store the copy.
X-Git-Tag: emacs-20.1~1804
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7cc0629653cc9a5d9d0feeb513807b90d4239f35;p=emacs.git

(Fcopy_keymap): After copying a sub-char-table, do store the copy.
---

diff --git a/src/keymap.c b/src/keymap.c
index 32c4afb322d..ef7e90df53a 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -712,6 +712,8 @@ is not copied.")
 	    = (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))