From 2371fad4d8f4e56af9517b9f3be32b3f8b53514c Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 6 Jun 1995 01:43:42 +0000
Subject: [PATCH] (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.

---
 src/casefiddle.c | 42 +++++++++++++++---------------------------
 1 file changed, 15 insertions(+), 27 deletions(-)

diff --git a/src/casefiddle.c b/src/casefiddle.c
index f4f2e2a9b52..7340a5093eb 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -103,6 +103,8 @@ The argument object is not altered--the value is a copy.")
   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 @@ The argument object is not altered--the value is a copy.")
 {
   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 @@ casify_region (flag, b, e)
   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 @@ casify_region (flag, b, e)
 	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 @@ character positions to operate on.")
   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 @@ character positions to operate on.")
   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 @@ operate_on_word (arg, newpoint)
 {
   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);
-- 
2.39.2