Mercurial > emacs

comparison src/callint.c @ 819:5bbabfcef929

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Sun, 19 Jul 1992 01:07:07 +0000
parents a8d94735277e
children 427299469901
comparison
equal deleted inserted replaced
818:a1a57d5a94bb 819:5bbabfcef929
519 may use XSETINT. */ 519 may use XSETINT. */
520 XFASTINT (val) = 0; 520 XFASTINT (val) = 0;
521 521
522 if (NILP (raw)) 522 if (NILP (raw))
523 XFASTINT (val) = 1; 523 XFASTINT (val) = 1;
524 else if (EQ (val, Qminus)) 524 else if (EQ (raw, Qminus))
525 XSETINT (val, -1); 525 XSETINT (val, -1);
526 else if (CONSP (raw)) 526 else if (CONSP (raw))
527 XSETINT (val, XINT (XCONS (raw)->car)); 527 XSETINT (val, XINT (XCONS (raw)->car));
528 else if (XTYPE (raw) == Lisp_Int) 528 else if (XTYPE (raw) == Lisp_Int)
529 val = raw; 529 val = raw;