diff options
| -rw-r--r-- | lisp/ledger.el | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lisp/ledger.el b/lisp/ledger.el index 7ff8bc7f..ed69af80 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -413,8 +413,20 @@ dropped." (defun ledger-toggle-current (&optional style) (interactive) - (if ledger-clear-whole-entries - (ledger-toggle-current-entry style) + (if (or ledger-clear-whole-entries + (eq 'entry (ledger-thing-at-point))) + (progn + (save-excursion + (forward-line) + (goto-char (line-beginning-position)) + (while (and (not (eolp)) + (save-excursion + (not (eq 'entry (ledger-thing-at-point))))) + (if (looking-at "\\s-+[*!]") + (ledger-toggle-current-transaction nil)) + (forward-line) + (goto-char (line-beginning-position)))) + (ledger-toggle-current-entry style)) (ledger-toggle-current-transaction style))) (defvar ledger-mode-abbrev-table) |