projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create branch 'utf-2000'.
[chise/xemacs-chise.git-]
/
src
/
undo.c
diff --git
a/src/undo.c
b/src/undo.c
index
41af38e
..
f8d844e
100644
(file)
--- a/
src/undo.c
+++ b/
src/undo.c
@@
-281,7
+281,7
@@
truncate_undo_list (Lisp_Object list, int minsize, int maxsize)
&& NILP (XCAR (next)))
{
/* Add in the space occupied by this element and its chain link. */
&& 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;
/* Advance to next element. */
prev = next;
@@
-294,12
+294,12
@@
truncate_undo_list (Lisp_Object list, int minsize, int maxsize)
elt = XCAR (next);
/* Add in the space occupied by this element and its chain link. */
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))
{
if (CONSP (elt))
{
- size_so_far += sizeof (struct Lisp_Cons);
+ size_so_far += sizeof (Lisp_Cons);
if (STRINGP (XCAR (elt)))
if (STRINGP (XCAR (elt)))
- size_so_far += (sizeof (struct Lisp_String) - 1
+ size_so_far += (sizeof (Lisp_String) - 1
+ XSTRING_LENGTH (XCAR (elt)));
}
+ XSTRING_LENGTH (XCAR (elt)));
}
@@
-329,12
+329,12
@@
truncate_undo_list (Lisp_Object list, int minsize, int maxsize)
}
/* Add in the space occupied by this element and its chain link. */
}
/* 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))
{
if (CONSP (elt))
{
- size_so_far += sizeof (struct Lisp_Cons);
+ size_so_far += sizeof (Lisp_Cons);
if (STRINGP (XCAR (elt)))
if (STRINGP (XCAR (elt)))
- size_so_far += (sizeof (struct Lisp_String) - 1
+ size_so_far += (sizeof (Lisp_String) - 1
+ XSTRING_LENGTH (XCAR (elt)));
}
+ XSTRING_LENGTH (XCAR (elt)));
}