diff options
| author | Erik Hetzner <egh@e6h.org> | 2015-05-30 10:27:43 -0700 |
|---|---|---|
| committer | Erik Hetzner <egh@e6h.org> | 2015-05-31 10:38:47 -0700 |
| commit | 41c8b3ad3e984c11feacb5bd6032f1fef69b41c3 (patch) | |
| tree | d1b792bb3dbeb92c2104f7d570ae39a7e9ac6b25 /lisp | |
| parent | a78e7358ecda264175e7bc00bb5e87b9348600a8 (diff) | |
| download | fork-ledger-41c8b3ad3e984c11feacb5bd6032f1fef69b41c3.tar.gz fork-ledger-41c8b3ad3e984c11feacb5bd6032f1fef69b41c3.tar.bz2 fork-ledger-41c8b3ad3e984c11feacb5bd6032f1fef69b41c3.zip | |
Use (interactive "r") in ledger-post-align-postings
Use standard method (interactive "r") to get the current active region
for use in ledger-post-align-postings.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-post.el | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/lisp/ledger-post.el b/lisp/ledger-post.el index 527a2044..21e856db 100644 --- a/lisp/ledger-post.el +++ b/lisp/ledger-post.el @@ -100,23 +100,15 @@ at beginning of account" (let ((bounds (ledger-navigate-find-xact-extents pos))) (ledger-post-align-postings (car bounds) (cadr bounds)))) -(defun ledger-post-align-postings (&optional beg end) - "Align all accounts and amounts between BEG and END, or the current line." - (interactive) +(defun ledger-post-align-postings (beg end) + "Align all accounts and amounts between BEG and END, or the current region, or, if no region, the current line." + (interactive "r") (save-excursion - (if (or (not (mark)) - (not (use-region-p))) - (set-mark (point))) - (let ((inhibit-modification-hooks t) - (mark-first (< (mark) (point))) acct-start-column acct-end-column acct-adjust amt-width amt-adjust (lines-left 1)) - (unless beg (setq beg (if mark-first (mark) (point)))) - (unless end (setq end (if mark-first (mark) (point)))) - ;; Extend region to whole lines (let ((start-marker (set-marker (make-marker) (save-excursion (goto-char beg) |