/[emacs]/emacs/src/undo.c
ViewVC logotype

Diff of /emacs/src/undo.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56 by lektu, Wed Jul 10 08:43:58 2002 UTC revision 1.57 by raeburn, Mon Jul 15 00:00:37 2002 UTC
# Line 142  record_delete (beg, string) Line 142  record_delete (beg, string)
142    if (EQ (current_buffer->undo_list, Qt))    if (EQ (current_buffer->undo_list, Qt))
143      return;      return;
144    
145    if (PT == beg + XSTRING (string)->size)    if (PT == beg + SCHARS (string))
146      {      {
147        XSETINT (sbeg, -beg);        XSETINT (sbeg, -beg);
148        record_point (PT);        record_point (PT);
# Line 334  truncate_undo_list (list, minsize, maxsi Line 334  truncate_undo_list (list, minsize, maxsi
334            size_so_far += sizeof (struct Lisp_Cons);            size_so_far += sizeof (struct Lisp_Cons);
335            if (STRINGP (XCAR (elt)))            if (STRINGP (XCAR (elt)))
336              size_so_far += (sizeof (struct Lisp_String) - 1              size_so_far += (sizeof (struct Lisp_String) - 1
337                              + XSTRING (XCAR (elt))->size);                              + SCHARS (XCAR (elt)));
338          }          }
339    
340        /* Advance to next element.  */        /* Advance to next element.  */
# Line 369  truncate_undo_list (list, minsize, maxsi Line 369  truncate_undo_list (list, minsize, maxsi
369            size_so_far += sizeof (struct Lisp_Cons);            size_so_far += sizeof (struct Lisp_Cons);
370            if (STRINGP (XCAR (elt)))            if (STRINGP (XCAR (elt)))
371              size_so_far += (sizeof (struct Lisp_String) - 1              size_so_far += (sizeof (struct Lisp_String) - 1
372                              + XSTRING (XCAR (elt))->size);                              + SCHARS (XCAR (elt)));
373          }          }
374    
375        /* Advance to next element.  */        /* Advance to next element.  */

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26