[Emacs-diffs] Changes to emacs/src/undo.c

[Ken Raeburn]

Index: emacs/src/undo.c
diff -c emacs/src/undo.c:1.56 emacs/src/undo.c:1.57
*** emacs/src/undo.c:1.56       Wed Jul 10 04:43:58 2002
--- emacs/src/undo.c    Sun Jul 14 20:00:37 2002
***************
*** 142,148 ****
    if (EQ (current_buffer->undo_list, Qt))
      return;
  
!   if (PT == beg + XSTRING (string)->size)
      {
        XSETINT (sbeg, -beg);
        record_point (PT);
--- 142,148 ----
    if (EQ (current_buffer->undo_list, Qt))
      return;
  
!   if (PT == beg + SCHARS (string))
      {
        XSETINT (sbeg, -beg);
        record_point (PT);
***************
*** 334,340 ****
          size_so_far += sizeof (struct Lisp_Cons);
          if (STRINGP (XCAR (elt)))
            size_so_far += (sizeof (struct Lisp_String) - 1
!                           + XSTRING (XCAR (elt))->size);
        }
  
        /* Advance to next element.  */
--- 334,340 ----
          size_so_far += sizeof (struct Lisp_Cons);
          if (STRINGP (XCAR (elt)))
            size_so_far += (sizeof (struct Lisp_String) - 1
!                           + SCHARS (XCAR (elt)));
        }
  
        /* Advance to next element.  */
***************
*** 369,375 ****
          size_so_far += sizeof (struct Lisp_Cons);
          if (STRINGP (XCAR (elt)))
            size_so_far += (sizeof (struct Lisp_String) - 1
!                           + XSTRING (XCAR (elt))->size);
        }
  
        /* Advance to next element.  */
--- 369,375 ----
          size_so_far += sizeof (struct Lisp_Cons);
          if (STRINGP (XCAR (elt)))
            size_so_far += (sizeof (struct Lisp_String) - 1
!                           + SCHARS (XCAR (elt)));
        }
  
        /* Advance to next element.  */