From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 May 1997 18:39:33 +0000 (+0000)
Subject: (Fcopy_sequence): Correctly copy the char-table contents.
X-Git-Tag: emacs-20.1~2126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69b3a14b48dc9b30c6f1a7e44f0ea906e0e93278;p=emacs.git

(Fcopy_sequence): Correctly copy the char-table contents.
---

diff --git a/src/fns.c b/src/fns.c
index 96ce2dafa05..75ece5bf81d 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -330,7 +330,7 @@ with the original.")
 
       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)));