From 65470b5257ab64fe936fabd545446e4306c0a3ef Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 30 Apr 2003 21:04:13 +0000
Subject: [PATCH] (parse_modifiers_uncached): Parse `down', `drag', `double',
 and `triple' modifiers as well.

---
 src/keyboard.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/src/keyboard.c b/src/keyboard.c
index e2e61d25798..70c9d90530d 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -5844,6 +5844,26 @@ parse_modifiers_uncached (symbol, modifier_end)
 	  break;
 
 #undef SINGLE_LETTER_MOD
+
+#define MULTI_LETTER_MOD(BIT, NAME, LEN)			\
+	  if (i + LEN + 1 <= SBYTES (name)			\
+	      && ! strncmp (SDATA (name) + i, NAME, LEN))	\
+	    {							\
+	      this_mod_end = i + LEN;				\
+	      this_mod = BIT;					\
+	    }
+
+	case 'd':
+	  MULTI_LETTER_MOD (drag_modifier, "drag", 4);
+	  MULTI_LETTER_MOD (down_modifier, "down", 4);
+	  MULTI_LETTER_MOD (double_modifier, "double", 6);
+	  break;
+
+	case 't':
+	  MULTI_LETTER_MOD (triple_modifier, "triple", 6);
+	  break;
+#undef MULTI_LETTER_MOD
+
 	}
 
       /* If we found no modifier, stop looking for them.  */
-- 
2.39.2