Mercurial > hg > xemacs-beta

comparison src/undo.c @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 376386a54a3c
children 859a2309aef8
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
301 if (CONSP (elt)) 301 if (CONSP (elt))
302 { 302 {
303 size_so_far += sizeof (struct Lisp_Cons); 303 size_so_far += sizeof (struct Lisp_Cons);
304 if (STRINGP (XCAR (elt))) 304 if (STRINGP (XCAR (elt)))
305 size_so_far += (sizeof (struct Lisp_String) - 1 305 size_so_far += (sizeof (struct Lisp_String) - 1
306 + string_length (XSTRING (XCAR (elt)))); 306 + XSTRING_LENGTH (XCAR (elt)));
307 } 307 }
308 308
309 /* Advance to next element. */ 309 /* Advance to next element. */
310 prev = next; 310 prev = next;
311 next = XCDR (next); 311 next = XCDR (next);
336 if (CONSP (elt)) 336 if (CONSP (elt))
337 { 337 {
338 size_so_far += sizeof (struct Lisp_Cons); 338 size_so_far += sizeof (struct Lisp_Cons);
339 if (STRINGP (XCAR (elt))) 339 if (STRINGP (XCAR (elt)))
340 size_so_far += (sizeof (struct Lisp_String) - 1 340 size_so_far += (sizeof (struct Lisp_String) - 1
341 + string_length (XSTRING (XCAR (elt)))); 341 + XSTRING_LENGTH (XCAR (elt)));
342 } 342 }
343 343
344 /* Advance to next element. */ 344 /* Advance to next element. */
345 prev = next; 345 prev = next;
346 next = XCDR (next); 346 next = XCDR (next);