Mercurial > emacs

comparison src/textprop.c @ 7092:b6b93953cc83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(F*_property_change): Typecheck limit argument.
author Karl Heuer <kwzh@gnu.org>
date Mon, 25 Apr 1994 20:30:56 +0000
parents a2bccbc870e6
children cd81dba38a49
comparison
equal deleted inserted replaced
7091:cb7cc8672ea9 7092:b6b93953cc83
599 register INTERVAL i, next; 599 register INTERVAL i, next;
600 600
601 if (NILP (object)) 601 if (NILP (object))
602 XSET (object, Lisp_Buffer, current_buffer); 602 XSET (object, Lisp_Buffer, current_buffer);
603 603
604 if (!NILP (limit))
605 CHECK_NUMBER_COERCE_MARKER (limit, 0);
606
604 i = validate_interval_range (object, &pos, &pos, soft); 607 i = validate_interval_range (object, &pos, &pos, soft);
605 if (NULL_INTERVAL_P (i)) 608 if (NULL_INTERVAL_P (i))
606 return limit; 609 return limit;
607 610
608 next = next_interval (i); 611 next = next_interval (i);
668 register Lisp_Object here_val; 671 register Lisp_Object here_val;
669 672
670 if (NILP (object)) 673 if (NILP (object))
671 XSET (object, Lisp_Buffer, current_buffer); 674 XSET (object, Lisp_Buffer, current_buffer);
672 675
676 if (!NILP (limit))
677 CHECK_NUMBER_COERCE_MARKER (limit, 0);
678
673 i = validate_interval_range (object, &pos, &pos, soft); 679 i = validate_interval_range (object, &pos, &pos, soft);
674 if (NULL_INTERVAL_P (i)) 680 if (NULL_INTERVAL_P (i))
675 return limit; 681 return limit;
676 682
677 here_val = textget (i->plist, prop); 683 here_val = textget (i->plist, prop);
704 { 710 {
705 register INTERVAL i, previous; 711 register INTERVAL i, previous;
706 712
707 if (NILP (object)) 713 if (NILP (object))
708 XSET (object, Lisp_Buffer, current_buffer); 714 XSET (object, Lisp_Buffer, current_buffer);
715
716 if (!NILP (limit))
717 CHECK_NUMBER_COERCE_MARKER (limit, 0);
709 718
710 i = validate_interval_range (object, &pos, &pos, soft); 719 i = validate_interval_range (object, &pos, &pos, soft);
711 if (NULL_INTERVAL_P (i)) 720 if (NULL_INTERVAL_P (i))
712 return limit; 721 return limit;
713 722
747 register INTERVAL i, previous; 756 register INTERVAL i, previous;
748 register Lisp_Object here_val; 757 register Lisp_Object here_val;
749 758
750 if (NILP (object)) 759 if (NILP (object))
751 XSET (object, Lisp_Buffer, current_buffer); 760 XSET (object, Lisp_Buffer, current_buffer);
761
762 if (!NILP (limit))
763 CHECK_NUMBER_COERCE_MARKER (limit, 0);
752 764
753 i = validate_interval_range (object, &pos, &pos, soft); 765 i = validate_interval_range (object, &pos, &pos, soft);
754 if (NULL_INTERVAL_P (i)) 766 if (NULL_INTERVAL_P (i))
755 return limit; 767 return limit;
756 768