# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781291937 0
# Node ID 925795f1a59400f681d76d46994dc21b0da53951
# Parent  1ff5359ac9322cfff0e23ebcd94a537a9847f129
(Fmodify_syntax_entry): Don't use XFASTINT as an lvalue.

diff -r 1ff5359ac932 -r 925795f1a594 src/syntax.c
--- a/src/syntax.c	Tue Oct 04 17:22:08 1994 +0000
+++ b/src/syntax.c	Tue Oct 04 17:32:17 1994 +0000
@@ -291,7 +291,7 @@
 {
   register unsigned char *p, match;
   register enum syntaxcode code;
-  Lisp_Object val;
+  int val;
 
   CHECK_NUMBER (c, 0);
   CHECK_STRING (newentry, 1);
@@ -309,36 +309,36 @@
   if (match) p++;
   if (match == ' ') match = 0;
 
-  XSETFASTINT (val, (match << 8) + (int) code);
+  val = (match << 8) + (int) code;
   while (*p)
     switch (*p++)
       {
       case '1':
-	XFASTINT (val) |= 1 << 16;
+	val |= 1 << 16;
 	break;
 
       case '2':
-	XFASTINT (val) |= 1 << 17;
+	val |= 1 << 17;
 	break;
 
       case '3':
-	XFASTINT (val) |= 1 << 18;
+	val |= 1 << 18;
 	break;
 
       case '4':
-	XFASTINT (val) |= 1 << 19;
+	val |= 1 << 19;
 	break;
 
       case 'p':
-	XFASTINT (val) |= 1 << 20;
+	val |= 1 << 20;
 	break;
 
       case 'b':
-	XFASTINT (val) |= 1 << 21;
+	val |= 1 << 21;
 	break;
       }
 	
-  XVECTOR (syntax_table)->contents[0xFF & XINT (c)] = val;
+  XSETFASTINT (XVECTOR (syntax_table)->contents[0xFF & XINT (c)], val);
 
   return Qnil;
 }