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

Merge pull request #418 from egh/fix/remove-set-mark

Browse source 
Do not use set-mark in ledger-post-align-postings
This commit is contained in:
Craig Earls 2015-06-04 07:22:12 -07:00
commit 46b0cad75a
1 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ledger-post.el
View file

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