more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine

1 files changed, 2 insertions, 2 deletions

diff --git a/src/emacs.c b/src/emacs.c
index 97ed060bb74..7acf3f59e4d 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1077,11 +1077,11 @@ the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]);
             }
 
           for (tail = Vbuffer_alist; CONSP (tail);
-               tail = XCONS (tail)->cdr)
+               tail = XCDR (tail))
             {
               Lisp_Object buffer;
 
-              buffer = Fcdr (XCONS (tail)->car);
+              buffer = Fcdr (XCAR (tail));
               /* Verify that all buffers are empty now, as they
                  ought to be.  */
               if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer)))