From f4bc3fd01378a9b7882fd1709b5c26f37943eb46 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Thu, 17 Jul 2014 04:10:31 +0400
Subject: [PATCH] Will it ever end

---
 main.ml | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/main.ml b/main.ml
index 54e7176..479897a 100644
--- a/main.ml
+++ b/main.ml
@@ -3420,9 +3420,16 @@ let genhistoutlines =
   let order ty (p1, c1, _, _, _) (p2, c2, _, _, _) =
     match ty with
     | `lastvisit -> compare c1.lastvisit c2.lastvisit
-    | `path -> compare p1 p2
-    | `file -> compare (Filename.basename p1) (Filename.basename p2)
-    | `title -> compare c1.title c2.title
+    | `path -> compare p2 p1
+    | `file -> compare (Filename.basename p2) (Filename.basename p1)
+    | `title ->
+        let e1 = emptystr c1.title
+        and e2 = emptystr c2.title in
+        (**) if e1 && e2
+        then compare (Filename.basename p2) (Filename.basename p1)
+        else if e1 then -1
+        else if e2 then 1
+        else compare c1.title c2.title
   in
   let showfullpath = ref false in
   fun orderty ->
-- 
2.11.4.GIT