From 2d850989a2f3b6f5a8b16c64179ab394c9f0c332 Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Sun, 23 Jan 2011 23:01:02 -0500
Subject: Send key modifiers to command_entry_keypress event.

---
 src/textadept.c | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/textadept.c b/src/textadept.c
index 4bb1eb13..ef8516d3 100644
--- a/src/textadept.c
+++ b/src/textadept.c
@@ -36,6 +36,11 @@
   lua_pushcfunction(l, f); \
   lua_setfield(l, -2, k); \
 }
+#define l_emit_event_key(name, event) \
+  l_emit_event(name, LUA_TNUMBER, event->keyval, LUA_TBOOLEAN, \
+               event->state & GDK_SHIFT_MASK, LUA_TBOOLEAN, \
+               event->state & GDK_CONTROL_MASK, LUA_TBOOLEAN, \
+               event->state & GDK_MOD1_MASK, -1)
 #define l_mt(l, k, i, ni) { \
   if (luaL_newmetatable(l, k)) { \
     l_cfunc(l, i, "__index"); \
@@ -509,12 +514,7 @@ static void s_command(GtkWidget *editor, gint wParam, gpointer lParam,
  * Collects the modifier states as flags and calls Lua to handle the keypress.
  */
 static gbool s_keypress(GtkWidget *editor, GdkEventKey *event, gpointer udata) {
-  return l_emit_event("keypress",
-                      LUA_TNUMBER, event->keyval,
-                      LUA_TBOOLEAN, event->state & GDK_SHIFT_MASK,
-                      LUA_TBOOLEAN, event->state & GDK_CONTROL_MASK,
-                      LUA_TBOOLEAN, event->state & GDK_MOD1_MASK,
-                      -1) ? TRUE : FALSE;
+  return l_emit_event_key("keypress", event) ? TRUE : FALSE;
 }
 
 /**
@@ -817,7 +817,7 @@ static void c_activated(GtkWidget *entry, gpointer udata) {
  * Signal for a keypress inside the Command Entry.
  */
 static gbool c_keypress(GtkWidget *entry, GdkEventKey *event, gpointer udata) {
-  return l_emit_event("command_entry_keypress", LUA_TNUMBER, event->keyval, -1);
+  return l_emit_event_key("command_entry_keypress", event);
 }
 
 /******************************************************************************/
-- 
cgit v1.2.3