Fix bug 1052 ledger-mode mangles transactions with tabs.

lisp/ledger-mode.el

@@ -222,6 +222,7 @@ With a prefix argument, remove the effective date. "
 (defun ledger-mode-clean-buffer ()
   "indent, remove multiple linfe feeds and sort the buffer"
   (interactive)
+	(untabify (point-min) (point-max))
   (ledger-sort-buffer)
   (ledger-post-align-postings (point-min) (point-max))
   (ledger-mode-remove-extra-lines))

lisp/ledger-post.el

@@ -163,7 +163,16 @@ region align the posting on the current line."
                          (if mark-first (point) (mark))))
            acct-start-column acct-end-column acct-adjust amt-width
            (lines-left 1))
-      ;; Condition point and mark to the beginning and end of lines
+		  ;; Condition point and mark to the beginning and end of lines
+      (goto-char end-region)
+      (setq end-region (line-end-position))
+      (goto-char begin-region)
+      (goto-char
+       (setq begin-region
+             (line-beginning-position)))
+
+			(untabify begin-region end-region)
+
       (goto-char end-region)
       (setq end-region (line-end-position))
       (goto-char begin-region)

lisp/ledger-state.el

@@ -103,9 +103,9 @@ dropped."
           (skip-chars-forward " \t")
           (when (not (eq (ledger-state-from-char (char-after)) 'comment))
             (insert (ledger-char-from-state cur-status) " ")
-            (if (search-forward "  " (line-end-position) t)
+            (if (and (search-forward "  " (line-end-position) t)
-								(if (looking-at "  ")
+										 (looking-at "  "))
-										(delete-char 2))))
+								(delete-char 2)))
           (forward-line))
         (setq new-status nil)))