From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 22 Feb 1997 19:26:15 +0000 (+0000)
Subject: Change FETCH_CHAR references to FETCH_BYTE.
X-Git-Tag: emacs-20.1~2886
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc44dfab721d5da386e24b02e794da31754fd568;p=emacs.git

Change FETCH_CHAR references to FETCH_BYTE.
---

diff --git a/src/abbrev.c b/src/abbrev.c
index 098d2863ef8..8c28e1c3ff0 100644
--- a/src/abbrev.c
+++ b/src/abbrev.c
@@ -243,7 +243,7 @@ Returns the abbrev symbol, if expansion took place.")
       Vabbrev_start_location = Qnil;
       if (wordstart < BEGV || wordstart > ZV)
 	wordstart = 0;
-      if (wordstart && wordstart != ZV && FETCH_CHAR (wordstart) == '-')
+      if (wordstart && wordstart != ZV && FETCH_BYTE (wordstart) == '-')
 	del_range (wordstart, wordstart + 1);
     }
   if (!wordstart)
@@ -266,7 +266,7 @@ Returns the abbrev symbol, if expansion took place.")
 
   for (idx = wordstart; idx < wordend; idx++)
     {
-      register int c = FETCH_CHAR (idx);
+      register int c = FETCH_BYTE (idx);
       if (UPPERCASEP (c))
 	c = DOWNCASE (c), uccount++;
       else if (! NOCASEP (c))
diff --git a/src/casefiddle.c b/src/casefiddle.c
index f4400814778..b0cc0b94991 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -149,13 +149,13 @@ casify_region (flag, b, e)
 
   for (i = start; i < end; i++)
     {
-      c = FETCH_CHAR (i);
+      c = FETCH_BYTE (i);
       if (inword && flag != CASE_CAPITALIZE_UP)
 	c = DOWNCASE (c);
       else if (!UPPERCASEP (c)
 	       && (!inword || flag != CASE_CAPITALIZE_UP))
 	c = UPCASE1 (c);
-      FETCH_CHAR (i) = c;
+      FETCH_BYTE (i) = c;
       if ((int) flag >= (int) CASE_CAPITALIZE)
 	inword = SYNTAX (c) == Sword;
     }