# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896379020 0
# Node ID e50e9ea937000a6fc1956a1625171203de76c458
# Parent  7a9f75f6e065992211283a8049269ca667e1c98d
(command_loop_1): In shortcuts for forward-char etc,,
use FETCH_CHAR not FETCH_BYTE.

diff -r 7a9f75f6e065 -r e50e9ea93700 src/keyboard.c
--- a/src/keyboard.c	Thu May 28 05:14:17 1998 +0000
+++ b/src/keyboard.c	Thu May 28 18:10:20 1998 +0000
@@ -1306,7 +1306,7 @@
 		{
                   struct Lisp_Char_Table *dp
 		    = window_display_table (XWINDOW (selected_window));
-		  lose = FETCH_BYTE (PT_BYTE);
+		  lose = FETCH_CHAR (PT_BYTE);
 		  SET_PT (PT + 1);
 		  if ((dp
 		       ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
@@ -1336,7 +1336,7 @@
                   struct Lisp_Char_Table *dp
 		    = window_display_table (XWINDOW (selected_window));
 		  SET_PT (PT - 1);
-		  lose = FETCH_BYTE (PT_BYTE);
+		  lose = FETCH_CHAR (PT_BYTE);
 		  if ((dp
 		       ? (VECTORP (DISP_CHAR_VECTOR (dp, lose))
 			  ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1