Mercurial > emacs
diff src/abbrev.c @ 43671:b6abb8a7ea89
(Fexpand_abbrev): Increment plist as use count only if it is an integer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Mar 2002 20:08:56 +0000 |
| parents | cd63104dd575 |
| children | f92c4d87863a |
line wrap: on
line diff
--- a/src/abbrev.c Sun Mar 03 20:07:42 2002 +0000 +++ b/src/abbrev.c Sun Mar 03 20:08:56 2002 +0000 @@ -331,7 +331,7 @@ if (INTEGERP (XSYMBOL (sym)->plist)) XSETINT (XSYMBOL (sym)->plist, XINT (XSYMBOL (sym)->plist) + 1); - else if (!NILP (tem = Fget (sym, Qcount))) + else if (INTEGERP (tem = Fget (sym, Qcount))) Fput (sym, Qcount, make_number (XINT (tem) + 1)); /* If this abbrev has an expansion, delete the abbrev
