From 5b3e4b6d153867b8e2457b6c91c504199468b183 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Fri, 24 Jul 2015 21:15:04 +0300
Subject: [PATCH] Fix some origin issues

---
 config.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/config.ml b/config.ml
index 3ce8711..eb66173 100644
--- a/config.ml
+++ b/config.ml
@@ -1504,7 +1504,7 @@ let load openlast =
       try
         let absname = abspath state.path in
         Hashtbl.find h absname
-      with Not_found -> dc, [], 0, emptyanchor, E.s
+      with Not_found -> dc, [], 0, emptyanchor, state.origin
     in
     setconf defconf dc;
     setconf conf pc;
@@ -1779,7 +1779,7 @@ let save1 bb leavebirdseye x h dc =
 
       if nonemptystr origin
       then
-        Printf.bprintf bb "origin='%s'"
+        Printf.bprintf bb "\n    origin='%s'"
           (enent origin 0 (String.length origin));
 
       if anchor <> emptyanchor
-- 
2.11.4.GIT