Mercurial > hg > xemacs-beta
diff src/undo.c @ 440:8de8e3f6228a r21-2-28
Import from CVS: tag r21-2-28
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:33:38 +0200 |
| parents | 3ecd8885ac67 |
| children | 183866b06e0b |
line wrap: on
line diff
--- a/src/undo.c Mon Aug 13 11:32:27 2007 +0200 +++ b/src/undo.c Mon Aug 13 11:33:38 2007 +0200 @@ -281,7 +281,7 @@ && NILP (XCAR (next))) { /* Add in the space occupied by this element and its chain link. */ - size_so_far += sizeof (struct Lisp_Cons); + size_so_far += sizeof (Lisp_Cons); /* Advance to next element. */ prev = next; @@ -294,12 +294,12 @@ elt = XCAR (next); /* Add in the space occupied by this element and its chain link. */ - size_so_far += sizeof (struct Lisp_Cons); + size_so_far += sizeof (Lisp_Cons); if (CONSP (elt)) { - size_so_far += sizeof (struct Lisp_Cons); + size_so_far += sizeof (Lisp_Cons); if (STRINGP (XCAR (elt))) - size_so_far += (sizeof (struct Lisp_String) - 1 + size_so_far += (sizeof (Lisp_String) - 1 + XSTRING_LENGTH (XCAR (elt))); } @@ -329,12 +329,12 @@ } /* Add in the space occupied by this element and its chain link. */ - size_so_far += sizeof (struct Lisp_Cons); + size_so_far += sizeof (Lisp_Cons); if (CONSP (elt)) { - size_so_far += sizeof (struct Lisp_Cons); + size_so_far += sizeof (Lisp_Cons); if (STRINGP (XCAR (elt))) - size_so_far += (sizeof (struct Lisp_String) - 1 + size_so_far += (sizeof (Lisp_String) - 1 + XSTRING_LENGTH (XCAR (elt))); }