Mercurial > hg > xemacs-beta

comparison src/undo.c @ 217:d44af0c54775 r20-4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 3d6bfa290dbd
children 2c611d1463a6
comparison
equal deleted inserted replaced
216:43306a74e31c 217:d44af0c54775
142 } 142 }
143 143
144 /* Record that a deletion is about to take place, 144 /* Record that a deletion is about to take place,
145 for LENGTH characters at location BEG. */ 145 for LENGTH characters at location BEG. */
146 146
147 #ifdef ENERGIZE
148 extern int inside_parse_buffer; /* total kludge */
149 #endif
150
151 void 147 void
152 record_delete (struct buffer *b, Bufpos beg, Charcount length) 148 record_delete (struct buffer *b, Bufpos beg, Charcount length)
153 { 149 {
154 /* This function can GC */ 150 /* This function can GC */
155 Lisp_Object sbeg; 151 Lisp_Object sbeg;
156 int at_boundary; 152 int at_boundary;
157
158 #ifdef ENERGIZE
159 /* #### why is this necessary? */
160 if (inside_parse_buffer)
161 return;
162 #endif
163 153
164 if (!undo_prelude (b, 1)) 154 if (!undo_prelude (b, 1))
165 return; 155 return;
166 156
167 at_boundary = (CONSP (b->undo_list) 157 at_boundary = (CONSP (b->undo_list)