Mercurial > emacs
changeset 2255:ff870650d188
(cons_to_long, long_to_cons): No longer static.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 19 Mar 1993 05:19:23 +0000 |
| parents | 9f90d3406b46 |
| children | 9de581d9bb83 |
| files | src/xselect.c |
| diffstat | 1 files changed, 13 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xselect.c Thu Mar 18 23:12:47 1993 +0000 +++ b/src/xselect.c Fri Mar 19 05:19:23 1993 +0000 @@ -229,32 +229,36 @@ 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