Mercurial > hg > xemacs-beta

comparison src/extents.c @ 100:4be1180a9e89 r20-1b2

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