changeset 12089:f7cb17ca1815

(casify_region): Use explicit local vars for start and end, so that the type will be correct. (operate_on_word): Likewise for iarg in this function. (upcase_initials, upcase_initials_region): Deleted; these were redundant copies of Fupcase_initials and Fupcase_initials_region.

--- a/src/casefiddle.c	Tue Jun 06 01:40:34 1995 +0000
+++ b/src/casefiddle.c	Tue Jun 06 01:43:42 1995 +0000
@@ -103,6 +103,8 @@
   return casify_object (CASE_CAPITALIZE, obj);
 }
 
+/* Like Fcapitalize but change only the initials.  */
+
 DEFUN ("upcase-initials", Fupcase_initials, Supcase_initials, 1, 1, 0,
   "Convert the initial of each word in the argument to upper case.\n\
 Do not change the other letters of each word.\n\
@@ -113,15 +115,6 @@
 {
   return casify_object (CASE_CAPITALIZE_UP, obj);
 }
-
-/* Like Fcapitalize but change only the initials.  */
-
-Lisp_Object
-upcase_initials (obj)
-     Lisp_Object obj;
-{
-  return casify_object (CASE_CAPITALIZE_UP, obj);
-}
 
 /* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP.
    b and e specify range of buffer to operate on. */
@@ -133,16 +126,19 @@
   register int i;
   register int c;
   register int inword = flag == CASE_DOWN;
+  int start, end;
 
   if (EQ (b, e))
     /* Not modifying because nothing marked */
     return;
 
   validate_region (&b, &e);
-  modify_region (current_buffer, XFASTINT (b), XFASTINT (e));
-  record_change (XFASTINT (b), XFASTINT (e) - XFASTINT (b));
+  start = XFASTINT (b);
+  end = XFASTINT (e);
+  modify_region (current_buffer, start, end);
+  record_change (start, end - start);
 
-  for (i = XFASTINT (b); i < XFASTINT (e); i++)
+  for (i = start; i < end; i++)
     {
       c = FETCH_CHAR (i);
       if (inword && flag != CASE_CAPITALIZE_UP)
@@ -155,9 +151,7 @@
 	inword = SYNTAX (c) == Sword;
     }
 
-  signal_after_change (XFASTINT (b),
-		       XFASTINT (e) - XFASTINT (b), 
-		       XFASTINT (e) - XFASTINT (b));
+  signal_after_change (start, end - start, end - start);
 }
 
 DEFUN ("upcase-region", Fupcase_region, Supcase_region, 2, 2, "r",
@@ -198,6 +192,8 @@
   return Qnil;
 }
 
+/* Like Fcapitalize_region but change only the initials.  */
+
 DEFUN ("upcase-initials-region", Fupcase_initials_region,
        Supcase_initials_region, 2, 2, "r",
   "Upcase the initial of each word in the region.\n\
@@ -210,16 +206,6 @@
   casify_region (CASE_CAPITALIZE_UP, b, e);
   return Qnil;
 }
-
-/* Like Fcapitalize_region but change only the initials.  */
-
-Lisp_Object
-upcase_initials_region (b, e)
-     Lisp_Object b, e;
-{
-  casify_region (CASE_CAPITALIZE_UP, b, e);
-  return Qnil;
-}
 
 Lisp_Object
 operate_on_word (arg, newpoint)
@@ -228,11 +214,13 @@
 {
   Lisp_Object val;
   int farend;
+  int iarg;
 
   CHECK_NUMBER (arg, 0);
-  farend = scan_words (point, XINT (arg));
+  iarg = XINT (arg);
+  farend = scan_words (point, iarg);
   if (!farend)
-    farend = XINT (arg) > 0 ? ZV : BEGV;
+    farend = iarg > 0 ? ZV : BEGV;
 
   *newpoint = point > farend ? point : farend;
   XSETFASTINT (val, farend);