mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-08 00:33:13 -08:00
Code Issues Projects Releases Wiki Activity

(cons_to_long, long_to_cons): No longer static.

Browse source
This commit is contained in:
Richard M. Stallman 1993-03-19 05:19:23 +00:00
parent 922ac4c59c
commit 8a89415ece
1 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/xselect.c
View file

@ -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