# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868908961 0
# Node ID 7626e0d30719b9ad289b215fc95bb80530749133
# Parent  c5e0b32380c1742b0002f304c428fbca3860d18e
(make_lispy_event): Distinguish S-SPC from SPC.

diff -r c5e0b32380c1 -r 7626e0d30719 src/keyboard.c
--- a/src/keyboard.c	Mon Jul 14 19:26:48 1997 +0000
+++ b/src/keyboard.c	Mon Jul 14 19:36:01 1997 +0000
@@ -3699,6 +3699,10 @@
 	c |= (event->modifiers
 	      & (meta_modifier | alt_modifier
 		 | hyper_modifier | super_modifier));
+	/* Distinguish Shift-SPC from SPC.  */
+	if ((event->code & 0377) == 040
+	    && event->modifiers & shift_modifier)
+	  c |= shift_modifier;
 	button_down_time = 0;
 	XSETFASTINT (lispy_c, c);
 	return lispy_c;