From: Stefan Kangas <stefankangas@gmail.com>
Date: Sat, 13 Jan 2024 09:18:03 +0000 (+0100)
Subject: Prefer AREF in GET_TRANSLATION_TABLE
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bfc7fd33d78ff29ee62f5a6b7d7769c1f8099c8;p=emacs.git

Prefer AREF in GET_TRANSLATION_TABLE

* src/ccl.c (GET_TRANSLATION_TABLE): Prefer using AREF to depending on
vector internals.
---

diff --git a/src/ccl.c b/src/ccl.c
index 1d3ad010382..b4dda404b95 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -873,7 +873,7 @@ static struct ccl_prog_stack ccl_prog_stack_struct[256];
 static inline Lisp_Object
 GET_TRANSLATION_TABLE (int id)
 {
-  return XCDR (XVECTOR (Vtranslation_table_vector)->contents[id]);
+  return XCDR (AREF (Vtranslation_table_vector, id));
 }
 
 void