Commit 8a89415e authored by Richard M. Stallman's avatar Richard M. Stallman

(cons_to_long, long_to_cons): No longer static.

parent 922ac4c5
......@@ -229,32 +229,36 @@ x_atom_to_symbol (display, atom)
UNBLOCK_INPUT;
return val;
}
/* Convert between full word time values (last modification times, etc)
and their Lisp representation as a cons cell (HIGH . LOW). */
static Lisp_Object
Lisp_Object
long_to_cons (i)
unsigned long i;
{
unsigned int top = i >> 16;
unsigned int bot = i & 0xFFFF;
if (top == 0) return make_number (bot);
if (top == 0xFFFF) return Fcons (make_number (-1), make_number (bot));
if (top == 0)
return make_number (bot);
if (top == 0xFFFF)
return Fcons (make_number (-1), make_number (bot));
return Fcons (make_number (top), make_number (bot));
}
static unsigned long
unsigned long
cons_to_long (c)
Lisp_Object c;
{
int top, bot;
if (INTEGERP (c)) return XINT (c);
if (INTEGERP (c))
return XINT (c);
top = XCONS (c)->car;
bot = XCONS (c)->cdr;
if (CONSP (bot)) bot = XCONS (bot)->car;
if (CONSP (bot))
bot = XCONS (bot)->car;
return ((XINT (top) << 16) | XINT (bot));
}
/* Do protocol to assert ourself as a selection owner.
Update the Vselection_alist so that we can reply to later requests for
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment