diff src/rangetab.c @ 173:8eaf7971accc r20-3b13

Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 859a2309aef8
children 3d6bfa290dbd
line wrap: on
line diff
--- a/src/rangetab.c	Mon Aug 13 09:47:55 2007 +0200
+++ b/src/rangetab.c	Mon Aug 13 09:49:09 2007 +0200
@@ -99,9 +99,9 @@
       if (i > 0)
 	write_c_string (" ", printcharfun);
       if (rte->first == rte->last)
-	sprintf (buf, "%d ", rte->first);
+	sprintf (buf, "%ld ", (long) (rte->first));
       else
-	sprintf (buf, "(%d %d) ", rte->first, rte->last);
+	sprintf (buf, "(%ld %ld) ", (long) (rte->first), (long) (rte->last));
       write_c_string (buf, printcharfun);
       print_internal (rte->val, printcharfun, 1);
     }
@@ -199,7 +199,7 @@
 
 static Lisp_Object
 get_range_table (EMACS_INT pos, int nentries, struct range_table_entry *tab,
-		 Lisp_Object defalt)
+		 Lisp_Object default_)
 {
   int left = 0, right = nentries;
   
@@ -219,7 +219,7 @@
 	return entry->val;
     }
 
-  return defalt;
+  return default_;
 }
 
 DEFUN ("range-table-p", Frange_table_p, 1, 1, 0, /*
@@ -227,7 +227,7 @@
 */
        (object))
 {
-  return (RANGE_TABLEP (object) ? Qt : Qnil);
+  return RANGE_TABLEP (object) ? Qt : Qnil;
 }
 
 DEFUN ("make-range-table", Fmake_range_table, 0, 0, 0, /*
@@ -272,7 +272,7 @@
 Find value for position POS in TABLE.
 If there is no corresponding value, return DEFAULT (defaults to nil).
 */
-       (pos, table, defalt))
+       (pos, table, default_))
 {
   struct Lisp_Range_Table *rt;
   EMACS_INT po;
@@ -284,7 +284,7 @@
   po = XINT (pos);
 
   return get_range_table (po, Dynarr_length (rt->entries),
-			  Dynarr_atp (rt->entries, 0), defalt);
+			  Dynarr_atp (rt->entries, 0), default_);
 }
 
 void
@@ -658,7 +658,7 @@
 
 Lisp_Object
 unified_range_table_lookup (void *unrangetab, EMACS_INT pos,
-			    Lisp_Object defalt)
+			    Lisp_Object default_)
 {
   void *new_dest;
   struct unified_range_table *un;
@@ -667,7 +667,7 @@
   new_dest = (char *) unrangetab + * (char *) unrangetab;
   un = (struct unified_range_table *) new_dest;
 
-  return get_range_table (pos, un->nentries, &un->first, defalt);
+  return get_range_table (pos, un->nentries, &un->first, default_);
 }
 
 /* Return number of entries in a unified range table. */