]> code.delx.au - gnu-emacs/blobdiff - src/abbrev.c
(LIBS_MACHINE): Add -lelf.
[gnu-emacs] / src / abbrev.c
index 098d2863ef8e1ac1805343e132ec174e5bdad5a6..8c28e1c3ff01a027f5cb2af6fb004cddb647fb61 100644 (file)
@@ -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))