# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 863721573 0
# Node ID 6fd66459ec9abc48ccb12f9ff23e8f9970d699f2
# Parent  76c6740bd736cebb59ba8b3a752ed0c9aa7c7a10
(Fcopy_sequence): Correctly copy the char-table contents.

diff -r 76c6740bd736 -r 6fd66459ec9a src/fns.c
--- a/src/fns.c	Thu May 15 18:26:28 1997 +0000
+++ b/src/fns.c	Thu May 15 18:39:33 1997 +0000
@@ -330,7 +330,7 @@
 
       copy = Fmake_char_table (XCHAR_TABLE (arg)->purpose, Qnil);
       /* Copy all the slots, including the extra ones.  */
-      bcopy (XCHAR_TABLE (arg)->contents, XCHAR_TABLE (copy)->contents,
+      bcopy (XVECTOR (arg)->contents, XVECTOR (copy)->contents,
 	     ((XCHAR_TABLE (arg)->size & PSEUDOVECTOR_SIZE_MASK)
 	      * sizeof (Lisp_Object)));