Mercurial > emacs

comparison src/undo.c @ 28725:12d806a22931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(record_delete): If we hit the end of the undo list, stop picking elements apart.
author Ken Raeburn <raeburn@raeburn.org>
date Wed, 26 Apr 2000 18:39:30 +0000
parents 4b675266db04
children 5583737fcf85
comparison
equal deleted inserted replaced
28724:48df558593f9 28725:12d806a22931
113 113
114 Lisp_Object tail = current_buffer->undo_list, elt; 114 Lisp_Object tail = current_buffer->undo_list, elt;
115 115
116 while (1) 116 while (1)
117 { 117 {
118 elt = XCAR (tail); 118 if (NILP (tail))
119 elt = Qnil;
120 else
121 elt = XCAR (tail);
119 if (NILP (elt) || ! (CONSP (elt) && MARKERP (XCAR (elt)))) 122 if (NILP (elt) || ! (CONSP (elt) && MARKERP (XCAR (elt))))
120 break; 123 break;
121 tail = XCDR (tail); 124 tail = XCDR (tail);
122 } 125 }
123 at_boundary = NILP (elt); 126 at_boundary = NILP (elt);