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))) (let ((bounds (ledger-navigate-find-xact-extents pos)))
(ledger-post-align-postings (car bounds) (cadr bounds)))) (ledger-post-align-postings (car bounds) (cadr bounds))))
(defun ledger-post-align-postings (&optional beg end) (defun ledger-post-align-postings (beg end)
"Align all accounts and amounts between BEG and END, or the current line." "Align all accounts and amounts between BEG and END, or the current region, or, if no region, the current line."
(interactive) (interactive "r")
(save-excursion (save-excursion
(if (or (not (mark))
(not (use-region-p)))
(set-mark (point)))
(let ((inhibit-modification-hooks t) (let ((inhibit-modification-hooks t)
(mark-first (< (mark) (point)))
acct-start-column acct-end-column acct-adjust amt-width amt-adjust acct-start-column acct-end-column acct-adjust amt-width amt-adjust
(lines-left 1)) (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 ;; Extend region to whole lines
(let ((start-marker (set-marker (make-marker) (save-excursion (let ((start-marker (set-marker (make-marker) (save-excursion
(goto-char beg) (goto-char beg)