Mercurial > emacs

changeset 18745:192b3ebd108e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcurrent_time_zone): Convert Fmake_list argument to Lisp_Integer. (Ftranspose_regions): Convert Fset_text_properties arguments to Lisp_Integer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jul 1997 06:43:44 +0000
parents 1718bdf566fd
children c7ada1684ebb
files src/editfns.c
diffstat 1 files changed, 11 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/editfns.c	Sat Jul 12 06:43:08 1997 +0000
+++ b/src/editfns.c	Sat Jul 12 06:43:44 1997 +0000
@@ -1127,7 +1127,7 @@
       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 @@
 #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 @@
 #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 @@
           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 @@
           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 */