diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
| commit | 5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922 (patch) | |
| tree | 13e3f575b0fa40ce19912b135ef98c823e42980e /lisp/ldg-sort.el | |
| parent | 28659c58c3b0531e0f5fb01b298fcb8a8f63991e (diff) | |
| download | ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.gz ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.bz2 ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.zip | |
Comment and code cleanup
Diffstat (limited to 'lisp/ldg-sort.el')
| -rw-r--r-- | lisp/ldg-sort.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ldg-sort.el b/lisp/ldg-sort.el index 86e3fa0a..8a1d9573 100644 --- a/lisp/ldg-sort.el +++ b/lisp/ldg-sort.el @@ -33,16 +33,19 @@ (forward-paragraph)) (defun ledger-sort-region (beg end) - (interactive "r") ;load beg and end from point and mark automagically + (interactive "r") ;; load beg and end from point and mark + ;; automagically (let ((new-beg beg) (new-end end)) (save-excursion (save-restriction - (ledger-next-record-function) ;make sure point is at the beginning of a xact + (ledger-next-record-function) ;; make sure point is at the + ;; beginning of a xact (setq new-beg (point)) (goto-char end) - (ledger-next-record-function) ;make sure end of region is at the beginning of - ;next record after the region + (ledger-next-record-function) ;; make sure end of region is at + ;; the beginning of next record + ;; after the region (setq new-end (point)) (narrow-to-region beg end) (goto-char (point-min)) |