From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 12 Sep 2016 15:18:15 +0000 (-0700)
Subject: * src/casefiddle.c (casify_word): Simplify.
X-Git-Tag: emacs-26.0.90~1614
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d6d9cd607601f41501b8f64230150ae26b8d500;p=emacs.git

* src/casefiddle.c (casify_word): Simplify.
---

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 59b5bbcf43e..2d32f498d0c 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -378,24 +378,12 @@ character positions to operate on.  */)
 static Lisp_Object
 casify_word (enum case_action flag, Lisp_Object arg)
 {
-  Lisp_Object beg, end;
-  ptrdiff_t newpoint;
-  EMACS_INT iarg;
-
   CHECK_NUMBER (arg);
-  iarg = XINT (arg);
-
-  newpoint = scan_words (PT, iarg);
-  if (!newpoint)
-    newpoint = iarg > 0 ? ZV : BEGV;
-
-  XSETFASTINT (beg, PT);
-  XSETFASTINT (end, newpoint);
-  if (PT > newpoint)
-    newpoint = PT;
-
-  casify_region (flag, beg, end);
-
+  ptrdiff_t farend = scan_words (PT, XINT (arg));
+  if (!farend)
+    farend = XINT (arg) <= 0 ? BEGV : ZV;
+  ptrdiff_t newpoint = max (PT, farend);
+  casify_region (flag, make_number (PT), make_number (farend));
   SET_PT (newpoint);
   return Qnil;
 }