# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731375773 0
# Node ID 02792f3b73365eb4d991d7be468240aee3c881a4
# Parent  4fe063d2aecfde0f88040f34b5ba3f1fe8c606b3
(XTread_socket): Set bufp->modifiers for all kinds of keys.

diff -r 4fe063d2aecf -r 02792f3b7336 src/xterm.c
--- a/src/xterm.c	Fri Mar 05 23:55:44 1993 +0000
+++ b/src/xterm.c	Fri Mar 05 23:56:13 1993 +0000
@@ -2741,11 +2741,10 @@
 
 		      if (nbytes == 1)
 			{
-			  if (modifiers & x_meta_mod_mask)
-			    *copy_buffer |= METABIT;
 			  bufp->kind = ascii_keystroke;
 			  XSET (bufp->code, Lisp_Int, *copy_buffer);
 			  XSET (bufp->frame_or_window, Lisp_Frame, f);
+			  bufp->modifiers = x_convert_modifiers (modifiers);
 			  bufp->timestamp = event.xkey.time;
 			  bufp++;
 			}
@@ -2755,6 +2754,7 @@
 			    bufp->kind = ascii_keystroke;
 			    XSET (bufp->code, Lisp_Int, copy_buffer[i]);
 			    XSET (bufp->frame_or_window, Lisp_Frame, f);
+			    bufp->modifiers = x_convert_modifiers (modifiers);
 			    bufp->timestamp = event.xkey.time;
 			    bufp++;
 			  }