diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-26 23:50:14 -0400 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-26 23:50:14 -0400 |
| commit | 5418e77c638ac34a340ab3ed368f800cb6f02353 (patch) | |
| tree | 8eb0666987201142bd3d5008637bf769b8012426 /lisp | |
| parent | 5b1778b3ca8202677aeb7096c17452e8445a25c9 (diff) | |
| download | fork-ledger-5418e77c638ac34a340ab3ed368f800cb6f02353.tar.gz fork-ledger-5418e77c638ac34a340ab3ed368f800cb6f02353.tar.bz2 fork-ledger-5418e77c638ac34a340ab3ed368f800cb6f02353.zip | |
Better end testing for align-postings
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ldg-post.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ldg-post.el b/lisp/ldg-post.el index e0b5f8fa..d5646702 100644 --- a/lisp/ldg-post.el +++ b/lisp/ldg-post.el @@ -181,9 +181,9 @@ region align the posting on the current line." (line-beginning-position))) ;; This is the guts of the alignment loop - (while (or (setq acc-col (ledger-next-account (line-end-position))) - (and (< (point) end-region) - lines-left)) + (while (and (or (setq acc-col (ledger-next-account (line-end-position))) + lines-left) + (< (point) end-region)) (when acc-col (if (/= (setq acc-adjust (- ledger-post-account-alignment-column acc-col)) 0) (ledger-post-adjust acc-adjust)) |