Mercurial > emacs

diff src/callint.c @ 39973:579177964efa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting with lisp system changes.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Oct 2001 09:09:51 +0000
parents c4d061857bb0
children 6b389fb978bc
line wrap: on
line diff
--- a/src/callint.c	Mon Oct 15 20:52:59 2001 +0000
+++ b/src/callint.c	Tue Oct 16 09:09:51 2001 +0000
@@ -156,7 +156,7 @@
   for (tail = exp; CONSP (tail); tail = next)
     {
       next = XCDR (tail);
-      XCAR (tail) = quotify_arg (XCAR (tail));
+      XSETCAR (tail, quotify_arg (XCAR (tail)));
     }
   return exp;
 }
@@ -358,7 +358,7 @@
 	    {
 	      teml = Fnthcdr (Vhistory_length, Vcommand_history);
 	      if (CONSP (teml))
-		XCDR (teml) = Qnil;
+		XSETCDR (teml, Qnil);
 	    }
 	}
       single_kboard_state ();
@@ -776,7 +776,7 @@
 	{
 	  teml = Fnthcdr (Vhistory_length, Vcommand_history);
 	  if (CONSP (teml))
-	    XCDR (teml) = Qnil;
+	    XSETCDR (teml, Qnil);
 	}
     }