diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-01 10:41:35 -0800 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-01 10:41:35 -0800 |
| commit | fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb (patch) | |
| tree | 7e94613175616bcbea264f55b84b0a6af10ea9f7 /lisp/ldg-mode.el | |
| parent | 6718b689991250fc97b0c43ec96328ca2e72e4f3 (diff) | |
| parent | edd82b2639e8a4d1f865dfae898caf678a9e7cbd (diff) | |
| download | fork-ledger-fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb.tar.gz fork-ledger-fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb.tar.bz2 fork-ledger-fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb.zip | |
Merge pull request #144 from enderw88/next
Add regional sort facility to ledger mode
Diffstat (limited to 'lisp/ldg-mode.el')
| -rw-r--r-- | lisp/ldg-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el index 10497749..001ec8eb 100644 --- a/lisp/ldg-mode.el +++ b/lisp/ldg-mode.el @@ -69,7 +69,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-region) (define-key map [(control ?c) (control ?t)] 'ledger-test-run) (define-key map [tab] 'pcomplete) (define-key map [(control ?i)] 'pcomplete) @@ -96,7 +96,8 @@ 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 so1] '("Sort Buffer" . ledger-sort-buffer)) + (define-key map [menu-bar ldg-menu so2] '("Sort Region" . ledger-sort-region)) (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)) |