(RE_TRANSLATE_TYPE): Define as Lisp_Object.

(RE_TRANSLATE): Use Faref to examine translate table.

diff --git a/src/config.in b/src/config.in
index 007f24ead5ba6d80e541033ba1aef617e88da082..e986344ec244a29b35aa3f55e491b2bfd4f913cd 100644 (file)
--- a/src/config.in
+++ b/src/config.in
@@ -347,8 +347,8 @@ Boston, MA 02111-1307, USA.  */
 
 #ifdef emacs /* Don't do this for lib-src.  */
 /* Tell regex.c to use a type compatible with Emacs.  */
-#define RE_TRANSLATE_TYPE Lisp_Object *
-#define RE_TRANSLATE(TBL, C) XINT ((TBL)[C])
+#define RE_TRANSLATE_TYPE Lisp_Object
+#define RE_TRANSLATE(TBL, C) XINT (Faref (TBL, make_number (C)))
 #endif
 
 /* Avoid link-time collision with system mktime if we will use our own.  */