diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-12-09 12:55:50 -0800 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-12-09 12:55:50 -0800 |
| commit | 2b94b264beaa705896f96c6e23dd9ba122b791a3 (patch) | |
| tree | 3c8f9ada25425d2ff437800842bcd0681f2534dd /lisp/ledger-reconcile.el | |
| parent | 123ada2f377c6bf20afebfcb65345b2c107723af (diff) | |
| parent | c85643b04e2274c35744142656c642e30b1d3708 (diff) | |
| download | fork-ledger-2b94b264beaa705896f96c6e23dd9ba122b791a3.tar.gz fork-ledger-2b94b264beaa705896f96c6e23dd9ba122b791a3.tar.bz2 fork-ledger-2b94b264beaa705896f96c6e23dd9ba122b791a3.zip | |
Merge pull request #221 from purcell/top-level-keymaps
ledger-mode: declare keymaps at the top level
Diffstat (limited to 'lisp/ledger-reconcile.el')
| -rw-r--r-- | lisp/ledger-reconcile.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index 4821a982..e15d0a67 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -431,8 +431,7 @@ moved and recentered. If they aren't strange things happen." (setq ledger-reconcile-sort-key ,sort-by) (ledger-reconcile-refresh))) -(define-derived-mode ledger-reconcile-mode text-mode "Reconcile" - "A mode for reconciling ledger entries." +(defvar ledger-reconcile-mode-map (let ((map (make-sparse-keymap))) (define-key map [(control ?m)] 'ledger-reconcile-visit) (define-key map [return] 'ledger-reconcile-visit) @@ -482,8 +481,11 @@ moved and recentered. If they aren't strange things happen." (define-key map [menu-bar ledger-recon-menu fin] '("Finish" . ledger-reconcile-finish)) (define-key map [menu-bar ledger-recon-menu ref] '("Refresh" . ledger-reconcile-refresh)) (define-key map [menu-bar ledger-recon-menu sav] '("Save" . ledger-reconcile-save)) + map) + "Keymap for `ledger-reconcile-mode'.") - (use-local-map map))) +(define-derived-mode ledger-reconcile-mode text-mode "Reconcile" + "A mode for reconciling ledger entries.") (provide 'ledger-reconcile) |