comparison src/abbrev.c @ 5438:8d29f1c4bb98

Merge with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 26 Nov 2010 06:43:36 +0100
parents 308d34e9f07d c096d8051f89
children 6506fcb40fcf
comparison
equal deleted inserted replaced
5437:002cb5224e4f 5438:8d29f1c4bb98
339 count = symbol_plist (abbrev_symbol); /* Gag */ 339 count = symbol_plist (abbrev_symbol); /* Gag */
340 if (NILP (count)) 340 if (NILP (count))
341 count = Qzero; 341 count = Qzero;
342 else 342 else
343 CHECK_NATNUM (count); 343 CHECK_NATNUM (count);
344 symbol_plist (abbrev_symbol) = make_int (1 + XINT (count)); 344 symbol_plist (abbrev_symbol) = Fadd1 (count);
345 345
346 /* Count the case in the original text. */ 346 /* Count the case in the original text. */
347 abbrev_count_case (buf, abbrev_start, abbrev_length, &lccount, &uccount); 347 abbrev_count_case (buf, abbrev_start, abbrev_length, &lccount, &uccount);
348 348
349 /* Remember the last abbrev text, location, etc. */ 349 /* Remember the last abbrev text, location, etc. */