sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improved how transactions are cleared in Emacs

Browse source 
If C-c C-c is used on a transaction, it now clears or unclears it,
clearing all marks on individual postings when doing so.

Fixes 863C0EE8-C193-46EE-9BAA-3A37DE73E4DB
This commit is contained in:
John Wiegley 2009-06-16 18:10:39 +01:00
parent 94467e5b7f
commit a6325388f4
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ledger.el
View file

@ -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)