From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 29 Dec 2001 21:42:22 +0000 (+0000)
Subject: * abbrev.c (Fexpand_abbrev): Use NILP instead of implicit zero
X-Git-Tag: ttn-vms-21-2-B4~17419
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5cb6072291a4cd2a174eab8c6ef451758de413c;p=emacs.git

* 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 b3fcea180ac..b8a82a2375e 100644
--- 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 217de1c5a6e..3edbe245831 100644
--- 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