     (define-key map [(control ?c) (control ?r)] 'ledger-auto-reconcile)
     (define-key map [(control ?x) (control ?s)] 'ledger-reconcile-save)
     (define-key map [? ] 'ledger-reconcile-toggle)
+    (define-key map [?r] 'ledger-auto-reconcile)
+    (define-key map [?s] 'ledger-reconcile-save)
     (define-key map [?q]
       (function
        (lambda ()

  (set-buffer-modified-p nil)
  (ledger-display-balance))

(defun ledger-reconcile (account)
  (interactive "sAccount to reconcile: ")
  (let* ((buf (current-buffer))
	 (items
	  (with-temp-buffer

				   (list 'where (nth 0 item)))))))
      (goto-char (point-min))
      (set-buffer-modified-p nil)
      (toggle-read-only t)
      (when arg
	(sit-for 0 0)
	(call-interactively #'ledger-auto-reconcile)))))

(defvar ledger-reconcile-mode-abbrev-table)

