* abbrev.c (Fexpand_abbrev): Use NILP instead of implicit zero

comparison to test lisp value returned by Fget.

diff --git a/src/ChangeLog b/src/ChangeLog
index b3fcea180ac25ba8214c0e0c2e670fbab2148164..b8a82a2375ef85d4deb24519f59a7f4e7ed7d379 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-29  Ken Raeburn  <raeburn@gnu.org>
+
+       * abbrev.c (Fexpand_abbrev): Use NILP instead of implicit zero
+       comparison to test lisp value returned by Fget.
+
 2001-12-29  Richard M. Stallman  <rms@gnu.org>
 
        * fileio.c (Fdo_auto_save): If NO_MESSAGE, don't call push_message.

diff --git a/src/abbrev.c b/src/abbrev.c
index 217de1c5a6e424d1d2b475ca43ec1b7e5b2013eb..3edbe2458311ce462b723adb10c2261407ec42bf 100644 (file)
--- a/src/abbrev.c
+++ b/src/abbrev.c
@@ -331,7 +331,7 @@ Returns the abbrev symbol, if expansion took place.  */)
   if (INTEGERP (XSYMBOL (sym)->plist))
     XSETINT (XSYMBOL (sym)->plist,
             XINT (XSYMBOL (sym)->plist) + 1);
-  else if (tem = Fget (sym, Qcount))
+  else if (!NILP (tem = Fget (sym, Qcount)))
     Fput (sym, Qcount, make_number (XINT (tem) + 1));
 
   /* If this abbrev has an expansion, delete the abbrev