diff options
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)) |