Fix killWord for emacs-keymap

yi-editor · Jun 11, 2018 · e8a8afc · e8a8afc
1 parent 2fa57e3
commit e8a8afc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)
          ]