comparison src/emacs.c @ 26164:d39ec0a27081

more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 25 Oct 1999 04:58:18 +0000
parents d82f40019d74
children 45f2d2b5f0d7
comparison
equal deleted inserted replaced
26163:99c35bcce8c0 26164:d39ec0a27081
1075 message_dolog ("", 0, 1, 0); 1075 message_dolog ("", 0, 1, 0);
1076 Vmessage_log_max = old_log_max; 1076 Vmessage_log_max = old_log_max;
1077 } 1077 }
1078 1078
1079 for (tail = Vbuffer_alist; CONSP (tail); 1079 for (tail = Vbuffer_alist; CONSP (tail);
1080 tail = XCONS (tail)->cdr) 1080 tail = XCDR (tail))
1081 { 1081 {
1082 Lisp_Object buffer; 1082 Lisp_Object buffer;
1083 1083
1084 buffer = Fcdr (XCONS (tail)->car); 1084 buffer = Fcdr (XCAR (tail));
1085 /* Verify that all buffers are empty now, as they 1085 /* Verify that all buffers are empty now, as they
1086 ought to be. */ 1086 ought to be. */
1087 if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer))) 1087 if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer)))
1088 abort (); 1088 abort ();
1089 /* It is safe to do this crudely in an empty buffer. */ 1089 /* It is safe to do this crudely in an empty buffer. */