From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 11 Sep 1999 18:35:57 +0000 (+0000)
Subject: (GET_TRANSLATION_TABLE): Use XCDR.
X-Git-Tag: emacs-pretest-21.0.90~6805
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e35efe896b9ade614817a29cae4a1aeae84e66a1;p=emacs.git

(GET_TRANSLATION_TABLE): Use XCDR.
---

diff --git a/src/charset.h b/src/charset.h
index fe97b417cff..ed5b3a7d2cf 100644
--- a/src/charset.h
+++ b/src/charset.h
@@ -884,7 +884,7 @@ extern Lisp_Object Vtranslation_table_vector;
 
 /* Return a translation table of id number ID.  */
 #define GET_TRANSLATION_TABLE(id) \
-  (XCONS(XVECTOR(Vtranslation_table_vector)->contents[(id)])->cdr)
+  (XCDR(XVECTOR(Vtranslation_table_vector)->contents[(id)]))
 
 /* A char-table for characters which may invoke auto-filling.  */
 extern Lisp_Object Vauto_fill_chars;