 (define-derived-mode ledger-reconcile-mode text-mode "Reconcile"
   "A mode for reconciling ledger entries."
   (let ((map (make-sparse-keymap)))
-    (define-key map [space] 'ledger-reconcile-toggle)
+    (define-key map [? ] 'ledger-reconcile-toggle)
     (use-local-map map)))
 
 (defvar ledger-buf nil)

  (let ((map (current-local-map)))
    (define-key map [(control ?c) (control ?n)] 'ledger-add-entry)
    (define-key map [(control ?c) (control ?c)]
  'ledger-clear-current)))

(defun ledger-parse-entries (account)
  (let* ((now (current-time))


(defun ledger-reconcile-toggle ()
  (interactive)
  (let ((where (get-text-property (point) 'where))
	cleared)
    (with-current-buffer ledger-buf
      (goto-char where)
      (setq cleared (ledger-toggle-current)))
    (if cleared
	(add-text-properties (line-beginning-position)
			     (line-end-position)
			     (list 'face 'bold))
      (remove-text-properties (line-beginning-position)
			      (line-end-position)
			      (list 'face)))))

(defun ledger-reconcile (account)
  (interactive "sAccount to reconcile: ")
