From 8559e1742ace686dec6fb2dad8a940e514af4708 Mon Sep 17 00:00:00 2001
From: Junji Hashimoto <junji.hashimoto@gree.net>
Date: Tue, 19 Jun 2018 18:10:00 +0900
Subject: [PATCH] Fix space-keybind for emacs

---
 yi-keymap-emacs/src/Yi/Keymap/Emacs.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs b/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs
index 7ec34fc8e..b6f8ca8a2 100644
--- a/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs
+++ b/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs
@@ -162,6 +162,7 @@ emacsKeys univArg =
 
          -- All the keybindings of the form "C-M-c" where 'c' is some character
          , ctrl (metaCh 'w')    ?>>! appendNextKillE
+         , ctrl (metaCh '@')    ?>>! layoutManagersNextE
          , ctrl (metaCh ' ')    ?>>! layoutManagersNextE
          , ctrl (metaCh ',')    ?>>! layoutManagerNextVariantE
          , ctrl (metaCh '.')    ?>>! layoutManagerPreviousVariantE
@@ -174,6 +175,7 @@ emacsKeys univArg =
          , shift (ctrl $ metaCh 'j') ?>>! moveWinNextE
          , shift (ctrl $ metaCh 'k') ?>>! moveWinPrevE
          , shift (ctrl $ meta $ spec KEnter) ?>>! pushWinToFirstE
+         , Event (KASCII '@') [MShift,MCtrl,MMeta] ?>>! layoutManagersPreviousE
          , Event (KASCII ' ') [MShift,MCtrl,MMeta] ?>>! layoutManagersPreviousE
 
          -- All the key-bindings which are preceded by a 'C-x'
@@ -182,6 +184,7 @@ emacsKeys univArg =
          , ctrlCh 'c' ?>>      ctrlC
 
          -- All The key-bindings of the form M-c where 'c' is some character.
+         , metaCh '@'           ?>>! justOneSep univArg
          , metaCh ' '           ?>>! justOneSep univArg
          , metaCh 'v'           ?>>! scrollUpE univArg
          , metaCh '!'           ?>>! shellCommandE