From e8a8afc67613c5fbc57b217f94aee84e97765d99 Mon Sep 17 00:00:00 2001 From: Junji Hashimoto Date: Mon, 11 Jun 2018 20:03:42 +0900 Subject: [PATCH] Fix killWord for emacs-keymap --- yi-keymap-emacs/src/Yi/Keymap/Emacs.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs b/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs index 7ec34fc8e..e24f8f872 100644 --- a/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs +++ b/yi-keymap-emacs/src/Yi/Keymap/Emacs.hs @@ -193,7 +193,7 @@ emacsKeys univArg = , metaCh 'a' ?>>! repeatingArg (moveE unitSentence Backward) , metaCh 'b' ?>>! repeatingArg prevWordB , metaCh 'c' ?>>! repeatingArg capitaliseWordB - , metaCh 'd' ?>>! repeatingArg killWordB + , metaCh 'd' ?>>! repeatingArg killWordB >> killringToClipboard , metaCh 'e' ?>>! repeatingArg (moveE unitSentence Forward) , metaCh 'f' ?>>! repeatingArg nextWordB , metaCh 'h' ?>>! repeatingArg (selectNParagraphs 1) @@ -215,7 +215,7 @@ emacsKeys univArg = , metaCh '@' ?>>! repeatingArg markWord -- Other meta key-bindings - , meta (spec KBS) ?>>! repeatingArg bkillWordB + , meta (spec KBS) ?>>! repeatingArg bkillWordB >> killringToClipboard , metaCh 'g' ?>> optMod meta (char 'g') >>! (gotoLn . fromDoc :: Int ::: LineNumber -> BufferM Int) ]