# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 813431931 0
# Node ID 104d1e97803cdd96db63be24f1ec7328ab621536
# Parent  dc0909e788bdddd8705b5573904a0fba1698eea1
(command_loop_1): Access display tables as char-tables.

diff -r dc0909e788bd -r 104d1e97803c src/keyboard.c
--- a/src/keyboard.c	Wed Oct 11 17:17:32 1995 +0000
+++ b/src/keyboard.c	Wed Oct 11 17:18:51 1995 +0000
@@ -1256,7 +1256,7 @@
 		 do them directly.  */
 	      if (EQ (this_command, Qforward_char) && PT < ZV)
 		{
-                  struct Lisp_Vector *dp
+                  struct Lisp_Char_Table *dp
 		    = window_display_table (XWINDOW (selected_window));
 		  lose = FETCH_CHAR (PT);
 		  SET_PT (PT + 1);
@@ -1279,7 +1279,7 @@
 		}
 	      else if (EQ (this_command, Qbackward_char) && PT > BEGV)
 		{
-                  struct Lisp_Vector *dp
+                  struct Lisp_Char_Table *dp
 		    = window_display_table (XWINDOW (selected_window));
 		  SET_PT (PT - 1);
 		  lose = FETCH_CHAR (PT);
@@ -1335,7 +1335,7 @@
 		  if (!lose
 		      && (PT == ZV || FETCH_CHAR (PT) == '\n'))
 		    {
-		      struct Lisp_Vector *dp
+		      struct Lisp_Char_Table *dp
 			= window_display_table (XWINDOW (selected_window));
 		      int lose = c;