Mercurial > emacs

comparison src/abbrev.c @ 42410:cd63104dd575

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* abbrev.c (Fexpand_abbrev): Use NILP instead of implicit zero comparison to test lisp value returned by Fget.
author Ken Raeburn <raeburn@raeburn.org>
date Sat, 29 Dec 2001 21:42:22 +0000
parents b46d482b6ed2
children b6abb8a7ea89 aac41b50c875
comparison
equal deleted inserted replaced
42409:e4bc19536f88 42410:cd63104dd575
329 329
330 /* Increment use count. */ 330 /* Increment use count. */
331 if (INTEGERP (XSYMBOL (sym)->plist)) 331 if (INTEGERP (XSYMBOL (sym)->plist))
332 XSETINT (XSYMBOL (sym)->plist, 332 XSETINT (XSYMBOL (sym)->plist,
333 XINT (XSYMBOL (sym)->plist) + 1); 333 XINT (XSYMBOL (sym)->plist) + 1);
334 else if (tem = Fget (sym, Qcount)) 334 else if (!NILP (tem = Fget (sym, Qcount)))
335 Fput (sym, Qcount, make_number (XINT (tem) + 1)); 335 Fput (sym, Qcount, make_number (XINT (tem) + 1));
336 336
337 /* If this abbrev has an expansion, delete the abbrev 337 /* If this abbrev has an expansion, delete the abbrev
338 and insert the expansion. */ 338 and insert the expansion. */
339 expansion = SYMBOL_VALUE (sym); 339 expansion = SYMBOL_VALUE (sym);