diff options
| author | Craig Earls <enderw88@gmail.com> | 2015-02-25 22:01:33 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2015-02-25 22:01:33 -0700 |
| commit | 1f803d629491991afb8aa9cd1d159313b2af78c7 (patch) | |
| tree | 4eb6f0f90162f4808d0687a06ad1a698eb3ed035 /lisp/ledger-sort.el | |
| parent | fe48f607be7b9da8d2c4ac1fb30078dea55b8240 (diff) | |
| parent | af0da737fc4ef8f9ccebd3d43519610b8a8fcaa1 (diff) | |
| download | fork-ledger-1f803d629491991afb8aa9cd1d159313b2af78c7.tar.gz fork-ledger-1f803d629491991afb8aa9cd1d159313b2af78c7.tar.bz2 fork-ledger-1f803d629491991afb8aa9cd1d159313b2af78c7.zip | |
Merge commit 'af0da737fc4ef8f9ccebd3d43519610b8a8fcaa1' into next
Conflicts:
lisp/ledger-reconcile.el
Diffstat (limited to 'lisp/ledger-sort.el')
| -rw-r--r-- | lisp/ledger-sort.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/ledger-sort.el b/lisp/ledger-sort.el index 870e298c..23e93dc9 100644 --- a/lisp/ledger-sort.el +++ b/lisp/ledger-sort.el @@ -28,17 +28,17 @@ (defun ledger-sort-find-start () - "Find the beginning of a sort region" + "Find the beginning of a sort region" (if (re-search-forward ";.*Ledger-mode:.*Start sort" nil t) (match-end 0))) (defun ledger-sort-find-end () - "Find the end of a sort region" + "Find the end of a sort region" (if (re-search-forward ";.*Ledger-mode:.*End sort" nil t) (match-end 0))) (defun ledger-sort-insert-start-mark () - "Insert a marker to start a sort region" + "Insert a marker to start a sort region" (interactive) (save-excursion (goto-char (point-min)) @@ -48,7 +48,7 @@ (insert "\n; Ledger-mode: Start sort\n\n")) (defun ledger-sort-insert-end-mark () - "Insert a marker to end a sort region" + "Insert a marker to end a sort region" (interactive) (save-excursion (goto-char (point-min)) @@ -64,7 +64,7 @@ (defun ledger-sort-region (beg end) "Sort the region from BEG to END in chronological order." (interactive "r") ;; load beg and end from point and mark - ;; automagically + ;; automagically (let ((new-beg beg) (new-end end) point-delta @@ -77,14 +77,14 @@ (save-excursion (save-restriction (goto-char beg) - ;; make sure point is at the beginning of a xact + ;; make sure point is at the beginning of a xact (ledger-navigate-next-xact) (unless (looking-at ledger-payee-any-status-regex) (ledger-navigate-next-xact)) (setq new-beg (point)) (goto-char end) (ledger-navigate-next-xact) - ;; make sure end of region is at the beginning of next record + ;; make sure end of region is at the beginning of next record ;; after the region (setq new-end (point)) (narrow-to-region new-beg new-end) |