Make 'u' go down, not up, like in emacs (dired)

yi-editor · Oct 13, 2014 · 54e8ca1 · 54e8ca1
1 parent 04b5e97
commit 54e8ca1
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/yi/src/library/Yi/Dired.hs b/yi/src/library/Yi/Dired.hs
@@ -737,12 +737,13 @@ diredRefreshMark = do
 
 diredUnmark :: BufferM ()
 diredUnmark = bypassReadOnly $ do
-                maybefile <- fileFromPoint
-                case maybefile of
-                  Just (fn, _de) -> do diredUnmarkPath fn
-                                       filenameColOf lineUp
-                                       diredRefreshMark
-                  Nothing        -> filenameColOf lineUp
+  maybefile <- fileFromPoint
+  case maybefile of
+    Just (fn, _de) -> do
+      diredUnmarkPath fn
+      filenameColOf lineDown
+      diredRefreshMark
+    Nothing        -> filenameColOf lineDown
 
 
 diredUnmarkPath :: FilePath -> BufferM()