Mercurial > emacs

comparison src/data.c @ 3675:f42eaf84478f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cons_to_long): Declare top, bot as Lisp_Object.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jun 1993 07:20:30 +0000
parents 507f64624555
children fbbd3e138284
comparison
equal deleted inserted replaced
3674:cfa45731460e 3675:f42eaf84478f
1478 1478
1479 unsigned long 1479 unsigned long
1480 cons_to_long (c) 1480 cons_to_long (c)
1481 Lisp_Object c; 1481 Lisp_Object c;
1482 { 1482 {
1483 int top, bot; 1483 Lisp_Object top, bot;
1484 if (INTEGERP (c)) 1484 if (INTEGERP (c))
1485 return XINT (c); 1485 return XINT (c);
1486 top = XCONS (c)->car; 1486 top = XCONS (c)->car;
1487 bot = XCONS (c)->cdr; 1487 bot = XCONS (c)->cdr;
1488 if (CONSP (bot)) 1488 if (CONSP (bot))