(print_error_message): Print data of `end-of-file'

[gnu-emacs] / src / callint.c

diff --git a/src/callint.c b/src/callint.c
index 644f9bc55c08cb6955f171e596b066f562cede30..8efab94673b0eb42c872269eb584406ba7d3db25 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -148,11 +148,11 @@ quotify_args (exp)
      Lisp_Object exp;
 {
   register Lisp_Object tail;
-  register struct Lisp_Cons *ptr;
-  for (tail = exp; CONSP (tail); tail = ptr->cdr)
+  Lisp_Object next;
+  for (tail = exp; CONSP (tail); tail = next)
     {
-      ptr = XCONS (tail);
-      ptr->car = quotify_arg (ptr->car);
+      next = XCDR (tail);
+      XCAR (tail) = quotify_arg (XCAR (tail));
     }
   return exp;
 }