1 files changed, 3 insertions, 6 deletions
diff --git a/src/Internal/Lib.hs b/src/Internal/Lib.hs
index e608bb0..c29ca31 100644
--- a/src/Internal/Lib.hs
+++ b/src/Internal/Lib.hs
@@ -77,8 +77,7 @@ gotoAccompaningWorkspace = do
     else gotoWorkspace (toUpper cur)
 
 gotoWorkspace :: WorkspaceName -> X ()
-gotoWorkspace ch = do
-  saveLastMark
+gotoWorkspace ch = pushHistory $ do
   addHiddenWorkspace [ch]
   windows $ greedyView $ return ch
 
@@ -149,7 +148,7 @@ withScreen fn n = do
       Just screen -> fn (tag $ workspace screen) windowSet
 
 windowJump :: X ()
-windowJump = do
+windowJump = pushHistory $ do
   windowTitlesToWinId <- withWindowSet $ \ss ->
     Map.fromList <$> mapM (\wid -> (,) <$> getString wid <*> return wid) (allWindows ss)
 
@@ -157,6 +156,4 @@ windowJump = do
 
   case windowId of
     Nothing -> return ()
-    Just wid -> do
-      saveLastMark
-      focus wid
+    Just wid -> focus wid