From b5cb6072291a4cd2a174eab8c6ef451758de413c Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Sat, 29 Dec 2001 21:42:22 +0000 Subject: [PATCH] * abbrev.c (Fexpand_abbrev): Use NILP instead of implicit zero comparison to test lisp value returned by Fget. --- src/ChangeLog | 5 +++++ src/abbrev.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * abbrev.c (Fexpand_abbrev): Use NILP instead of implicit zero + comparison to test lisp value returned by Fget. + 2001-12-29 Richard M. Stallman * 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 -- 2.39.5