Mercurial > hg > xemacs-beta

comparison src/extents.c @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children e04119814345
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
4410 return 0; 4410 return 0;
4411 4411
4412 if (CONSP (closure->iro) && !NILP (Fmemq (prop, closure->iro))) 4412 if (CONSP (closure->iro) && !NILP (Fmemq (prop, closure->iro)))
4413 return 0; 4413 return 0;
4414 4414
4415 #if 0 /* Nobody seems to care for this any more -sb */
4415 /* Allow deletion if the extent is completely contained in 4416 /* Allow deletion if the extent is completely contained in
4416 the region being deleted. 4417 the region being deleted.
4417 This is important for supporting tokens which are internally 4418 This is important for supporting tokens which are internally
4418 write-protected, but which can be killed and yanked as a whole. 4419 write-protected, but which can be killed and yanked as a whole.
4419 Ignore open/closed distinctions at this point. 4420 Ignore open/closed distinctions at this point.
4421 */ 4422 */
4422 if (closure->start != closure->end && 4423 if (closure->start != closure->end &&
4423 extent_start (extent) >= closure->start && 4424 extent_start (extent) >= closure->start &&
4424 extent_end (extent) <= closure->end) 4425 extent_end (extent) <= closure->end)
4425 return 0; 4426 return 0;
4427 #endif
4426 4428
4427 while (1) 4429 while (1)
4428 Fsignal (Qbuffer_read_only, (list1 (closure->object))); 4430 Fsignal (Qbuffer_read_only, (list1 (closure->object)));
4429 4431
4430 RETURN_NOT_REACHED(0) 4432 RETURN_NOT_REACHED(0)