Fix killWord for emacs-keymap

yi-editor · Jun 9, 2018 · 760efe9 · 760efe9
1 parent 2fa57e3
commit 760efe9
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
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'           ?>>! killWord
          , metaCh 'e'           ?>>! repeatingArg (moveE unitSentence Forward)
          , metaCh 'f'           ?>>! repeatingArg nextWordB
          , metaCh 'h'           ?>>! repeatingArg (selectNParagraphs 1)

diff --git a/yi-keymap-emacs/src/Yi/Keymap/Emacs/KillRing.hs b/yi-keymap-emacs/src/Yi/Keymap/Emacs/KillRing.hs
@@ -65,6 +65,11 @@ killLineB mbr = replicateM_ (fromMaybe 1 mbr) $ do
 killLine :: Maybe Int -> YiM ()
 killLine mbr = withCurrentBuffer (killLineB mbr) >> killringToClipboard
 
+-- | M-d
+-- | Like `killWordB`, but with system clipboard synchronization
+killWord :: YiM ()
+killWord = withCurrentBuffer (killWordB) >> killringToClipboard
+
 killringGet :: EditorM R.YiString
 killringGet = do
   text :| _ <- uses killringA _krContents