(Fcurrent_time_zone): Convert Fmake_list argument to Lisp_Integer.

(Ftranspose_regions): Convert Fset_text_properties arguments to Lisp_Integer.

diff --git a/src/editfns.c b/src/editfns.c
index 9d9593b182fbd85bf19b4d4c63fd51ef41f12a21..c3d3eedccc0fc11f76420f7c11081d7fd32fd6d8 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1127,7 +1127,7 @@ the data it can't find.")
       return Fcons (make_number (offset), Fcons (build_string (s), Qnil));
     }
   else
-    return Fmake_list (2, Qnil);
+    return Fmake_list (make_number (2), Qnil);
 }
 
 /* This holds the value of `environ' produced by the previous
@@ -2500,7 +2500,8 @@ Transposing beyond buffer boundaries is an error.")
 #ifdef USE_TEXT_PROPERTIES
       tmp_interval1 = copy_intervals (cur_intv, start1, len1);
       tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-      Fset_text_properties (start1, end2, Qnil, Qnil);
+      Fset_text_properties (make_number (start1), make_number (end2),
+                           Qnil, Qnil);
 #endif /* USE_TEXT_PROPERTIES */
 
       /* First region smaller than second.  */
@@ -2560,8 +2561,10 @@ Transposing beyond buffer boundaries is an error.")
 #ifdef USE_TEXT_PROPERTIES
           tmp_interval1 = copy_intervals (cur_intv, start1, len1);
           tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-          Fset_text_properties (start1, end1, Qnil, Qnil);
-          Fset_text_properties (start2, end2, Qnil, Qnil);
+          Fset_text_properties (make_number (start1), make_number (end1),
+                               Qnil, Qnil);
+          Fset_text_properties (make_number (start2), make_number (end2),
+                               Qnil, Qnil);
 #endif /* USE_TEXT_PROPERTIES */
 
          if (len1 > 20000)
@@ -2593,7 +2596,8 @@ Transposing beyond buffer boundaries is an error.")
           tmp_interval1 = copy_intervals (cur_intv, start1, len1);
           tmp_interval_mid = copy_intervals (cur_intv, end1, len_mid);
           tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-          Fset_text_properties (start1, end2, Qnil, Qnil);
+          Fset_text_properties (make_number (start1), make_number (end2),
+                               Qnil, Qnil);
 #endif /* USE_TEXT_PROPERTIES */
 
          /* holds region 2 */
@@ -2629,7 +2633,8 @@ Transposing beyond buffer boundaries is an error.")
           tmp_interval1 = copy_intervals (cur_intv, start1, len1);
           tmp_interval_mid = copy_intervals (cur_intv, end1, len_mid);
           tmp_interval2 = copy_intervals (cur_intv, start2, len2);
-          Fset_text_properties (start1, end2, Qnil, Qnil);
+          Fset_text_properties (make_number (start1), make_number (end2),
+                               Qnil, Qnil);
 #endif /* USE_TEXT_PROPERTIES */
 
          /* holds region 1 */