/[emacs]/emacs/src/textprop.c
ViewVC logotype

Diff of /emacs/src/textprop.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.129 by lektu, Thu Jul 11 14:15:24 2002 UTC revision 1.130 by raeburn, Mon Jul 15 00:00:37 2002 UTC
# Line 776  past position LIMIT; return LIMIT if not Line 776  past position LIMIT; return LIMIT if not
776        if (NILP (position))        if (NILP (position))
777          {          {
778            if (NILP (limit))            if (NILP (limit))
779              position = make_number (XSTRING (object)->size);              position = make_number (SCHARS (object));
780            else            else
781              position = limit;              position = limit;
782          }          }
# Line 842  back past position LIMIT; return LIMIT i Line 842  back past position LIMIT; return LIMIT i
842        if (NILP (position))        if (NILP (position))
843          {          {
844            if (NILP (limit))            if (NILP (limit))
845              position = make_number (XSTRING (object)->size);              position = make_number (SCHARS (object));
846            else            else
847              position = limit;              position = limit;
848          }          }
# Line 935  past position LIMIT; return LIMIT if not Line 935  past position LIMIT; return LIMIT if not
935                    
936        if (NULL_INTERVAL_P (next))        if (NULL_INTERVAL_P (next))
937          XSETFASTINT (position, (STRINGP (object)          XSETFASTINT (position, (STRINGP (object)
938                                  ? XSTRING (object)->size                                  ? SCHARS (object)
939                                  : BUF_ZV (XBUFFER (object))));                                  : BUF_ZV (XBUFFER (object))));
940        else        else
941          XSETFASTINT (position, next->position);          XSETFASTINT (position, next->position);
# Line 955  past position LIMIT; return LIMIT if not Line 955  past position LIMIT; return LIMIT if not
955      return limit;      return limit;
956    if (NILP (limit))    if (NILP (limit))
957      XSETFASTINT (limit, (STRINGP (object)      XSETFASTINT (limit, (STRINGP (object)
958                           ? XSTRING (object)->size                           ? SCHARS (object)
959                           : BUF_ZV (XBUFFER (object))));                           : BUF_ZV (XBUFFER (object))));
960    if (!(next->position < XFASTINT (limit)))    if (!(next->position < XFASTINT (limit)))
961      return limit;      return limit;
# Line 1035  past position LIMIT; return LIMIT if not Line 1035  past position LIMIT; return LIMIT if not
1035      return limit;      return limit;
1036    if (NILP (limit))    if (NILP (limit))
1037      XSETFASTINT (limit, (STRINGP (object)      XSETFASTINT (limit, (STRINGP (object)
1038                           ? XSTRING (object)->size                           ? SCHARS (object)
1039                           : BUF_ZV (XBUFFER (object))));                           : BUF_ZV (XBUFFER (object))));
1040    if (!(next->position < XFASTINT (limit)))    if (!(next->position < XFASTINT (limit)))
1041      return limit;      return limit;
# Line 1306  set_text_properties (start, end, propert Line 1306  set_text_properties (start, end, propert
1306       get rid of its intervals.  */       get rid of its intervals.  */
1307    if (NILP (properties) && STRINGP (object)    if (NILP (properties) && STRINGP (object)
1308        && XFASTINT (start) == 0        && XFASTINT (start) == 0
1309        && XFASTINT (end) == XSTRING (object)->size)        && XFASTINT (end) == SCHARS (object))
1310      {      {
1311        if (! XSTRING (object)->intervals)        if (! STRING_INTERVALS (object))
1312          return Qt;          return Qt;
1313    
1314        XSTRING (object)->intervals = 0;        STRING_INTERVALS (object) = 0;
1315        return Qt;        return Qt;
1316      }      }
1317    

Legend:
Removed from v.1.129  
changed lines
  Added in v.1.130

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26