Mercurial > emacs
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. */ |