mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-04-19 12:30:47 -07:00
Change FETCH_CHAR references to FETCH_BYTE.
This commit is contained in:
parent
f8bce5df30
commit
fc44dfab72
2 changed files with 4 additions and 4 deletions
|
|
@ -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))
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue