fixed two memory corruption bugs

1 files changed, 7 insertions, 4 deletions

diff --git a/ledger.el b/ledger.el
index 9ae2637c..416026b0 100644
--- a/ledger.el
+++ b/ledger.el
@@ -119,11 +119,14 @@
        (with-temp-buffer
 	 (setq exit-code (apply 'ledger-run-ledger "entry" args))
 	 (if (= 0 exit-code)
-	     (if insert-year
-		 (buffer-string)
-	       (buffer-substring 5 (point-max)))
+	     (progn
+	       (goto-char (point-min))
+	       (delete-char 1)
+	       (if insert-year
+		   (buffer-string)
+		 (buffer-substring 5 (point-max))))
 	   (concat (if insert-year entry
-		     (substring entry 5)) "\n\n")))))))
+		     (substring entry 5)) "\n"))) "\n"))))
 
 (defun ledger-expand-entry ()
   (interactive)