Improve complete-all and reconcile saving

lisp/ldg-commodities.el

@@ -32,7 +32,8 @@
   :group 'ledger-reconcile)
 
 (defun ledger-split-commodity-string (str)
-  "Split a commoditized amount into two parts"
+  "Split a commoditized string, STR, into two parts.
+Returns a list with (value commodity)."
   (if (> (length str) 0) 
       (let ((number-regex (if (assoc "decimal-comma" ledger-environment-alist)
 			      "-?[1-9][0-9.]*[,]?[0-9]*"

lisp/ldg-complete.el

@@ -155,7 +155,7 @@ Does not use ledger xact"
 	  (setq rest-of-name (match-string 3))
           ;; Start copying the postings
 	  (forward-line)
-          (while (looking-at "^\\s-+")
+          (while (looking-at ledger-post-account-regex)
             (setq xacts (cons (buffer-substring-no-properties
                                (line-beginning-position)
                                (line-end-position))

lisp/ldg-reconcile.el

@@ -217,7 +217,8 @@ Return the number of uncleared xacts found."
       (set-buffer-modified-p nil)
       (ledger-display-balance)
       (goto-char curpoint)
-      (ledger-reconcile-visit t))))
+      ;; (ledger-reconcile-visit t)
+      )))
 
 (defun ledger-reconcile-finish ()
   "Mark all pending posting or transactions as cleared.