diff options
| -rw-r--r-- | lisp/ledger-post.el | 1 | ||||
| -rw-r--r-- | lisp/ledger-xact.el | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ledger-post.el b/lisp/ledger-post.el index 8775c530..ac040bb2 100644 --- a/lisp/ledger-post.el +++ b/lisp/ledger-post.el @@ -104,7 +104,6 @@ at beginning of account" "Align all accounts and amounts within region, if there is no region align the posting on the current line." (interactive) - (assert (eq major-mode 'ledger-mode)) (save-excursion (if (or (not (mark)) diff --git a/lisp/ledger-xact.el b/lisp/ledger-xact.el index 0444581e..e747b6b2 100644 --- a/lisp/ledger-xact.el +++ b/lisp/ledger-xact.el @@ -200,7 +200,8 @@ correct chronological place in the buffer." (goto-char (point-min)) (if (looking-at "Error: ") (error (concat "Error in ledger-add-transaction: " (buffer-string))) - (buffer-string))) + (ledger-post-align-postings (point-min) (point-max)) + (buffer-string))) "\n")) (progn (insert (car args) " \n\n") |