From f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Oct 2001 09:09:51 +0000
Subject: Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in
 experimenting with lisp system changes.

---
 src/coding.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/coding.c')

diff --git a/src/coding.c b/src/coding.c
index 43f1867d9f8..08da1ae3dbb 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6212,7 +6212,7 @@ detect_coding_system (src, src_bytes, highest, multibytep)
 	  Lisp_Object eol;
 	  eol = Fget (XCAR (tmp), Qeol_type);
 	  if (VECTORP (eol))
-	    XCAR (tmp) = XVECTOR (eol)->contents[eol_type];
+	    XSETCAR (tmp, XVECTOR (eol)->contents[eol_type]);
 	}
     }
   return (highest ? XCAR (val) : val);
-- 
cgit v1.2.3