diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-07-15 20:44:32 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-07-15 20:44:32 -0700 |
| commit | 03de326eff10a9a35196531e50ff2386dc1ad4d7 (patch) | |
| tree | 7d89b02c5d0abc4f1fd5ad2db89d088a97619a96 /lisp | |
| parent | 3f9fc276d3a802ebdd3c694029d56b948fecb841 (diff) | |
| download | fork-ledger-03de326eff10a9a35196531e50ff2386dc1ad4d7.tar.gz fork-ledger-03de326eff10a9a35196531e50ff2386dc1ad4d7.tar.bz2 fork-ledger-03de326eff10a9a35196531e50ff2386dc1ad4d7.zip | |
For ledger-post-align-postings to run on xacts added with ledger-add
Diffstat (limited to 'lisp')
| -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") |