diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-01-31 15:13:00 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-01-31 15:13:00 -0700 |
| commit | 5c91124955b2c570b071dc81ac971f9c75b406cf (patch) | |
| tree | c9105e5ead79abfbbf109ceeefe8db9a689544ca /lisp/ldg-mode.el | |
| parent | f853510f0370641015eef6cf6da6cd13569e4ef7 (diff) | |
| download | ledger-5c91124955b2c570b071dc81ac971f9c75b406cf.tar.gz ledger-5c91124955b2c570b071dc81ac971f9c75b406cf.tar.bz2 ledger-5c91124955b2c570b071dc81ac971f9c75b406cf.zip | |
WIP. ledger-sort-region still drops the first transaction in the region.
Diffstat (limited to 'lisp/ldg-mode.el')
| -rw-r--r-- | lisp/ldg-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el index 128dfeac..9efe7618 100644 --- a/lisp/ldg-mode.el +++ b/lisp/ldg-mode.el @@ -82,7 +82,7 @@ customizable to ease retro-entry.") (define-key map [(control ?c) (control ?c)] 'ledger-toggle-current) (define-key map [(control ?c) (control ?e)] 'ledger-toggle-current-entry) (define-key map [(control ?c) (control ?r)] 'ledger-reconcile) - (define-key map [(control ?c) (control ?s)] 'ledger-sort) + (define-key map [(control ?c) (control ?s)] 'ledger-sort-buffer) (define-key map [(control ?c) (control ?t)] 'ledger-test-run) (define-key map [tab] 'pcomplete) (define-key map [(control ?i)] 'pcomplete) @@ -109,7 +109,7 @@ customizable to ease retro-entry.") (define-key map [menu-bar ldg-menu sm] '("Set Month" . ledger-set-month)) (define-key map [menu-bar ldg-menu sy] '("Set Year" . ledger-set-year)) (define-key map [menu-bar ldg-menu s1] '("--")) - (define-key map [menu-bar ldg-menu so] '("Sort Buffer" . ledger-sort)) + (define-key map [menu-bar ldg-menu so] '("Sort Buffer or Region" . ledger-sort-buffer)) (define-key map [menu-bar ldg-menu s2] '("--")) (define-key map [menu-bar ldg-menu te] '("Toggle Current Posting" . ledger-toggle-current)) (define-key map [menu-bar ldg-menu tt] '("Toggle Current Transaction" . ledger-toggle-current-entry)) |