diff options
| -rw-r--r-- | lisp/ldg-commodities.el | 3 | ||||
| -rw-r--r-- | lisp/ldg-complete.el | 2 | ||||
| -rw-r--r-- | lisp/ldg-reconcile.el | 3 |
3 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ldg-commodities.el b/lisp/ldg-commodities.el index 0eb435b5..3485d93f 100644 --- a/lisp/ldg-commodities.el +++ b/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]*" diff --git a/lisp/ldg-complete.el b/lisp/ldg-complete.el index a8e73b88..7e37163b 100644 --- a/lisp/ldg-complete.el +++ b/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)) diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index 3d3b7c92..a05a61c0 100644 --- a/lisp/ldg-reconcile.el +++ b/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. |