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