diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-reconcile.el | 1 | ||||
| -rw-r--r-- | lisp/ledger-state.el | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index c09a5b60..b3a79a05 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -448,6 +448,7 @@ moved and recentered. If they aren't strange things happen." (let ((map (make-sparse-keymap))) (define-key map [(control ?m)] 'ledger-reconcile-visit) (define-key map [return] 'ledger-reconcile-visit) + (define-key map [(control ?x) (control ?s)] 'ledger-reconcile-save) (define-key map [(control ?l)] 'ledger-reconcile-refresh) (define-key map [(control ?c) (control ?c)] 'ledger-reconcile-finish) (define-key map [? ] 'ledger-reconcile-toggle) diff --git a/lisp/ledger-state.el b/lisp/ledger-state.el index 2080363e..53e08e22 100644 --- a/lisp/ledger-state.el +++ b/lisp/ledger-state.el @@ -104,7 +104,8 @@ dropped." (when (not (eq (ledger-state-from-char (char-after)) 'comment)) (insert (ledger-char-from-state cur-status) " ") (if (search-forward " " (line-end-position) t) - (delete-char 2))) + (if (looking-at " ") + (delete-char 2)))) (forward-line)) (setq new-status nil))) |