       (define-key map [(control ?c) (control ?m)] 'ledger-set-month)
       (define-key map [(control ?c) (control ?r)] 'ledger-reconcile)
       (define-key map [(control ?c) (control ?s)] 'ledger-sort-region)
-      (define-key map [(control ?c) (control ?t)] 'ledger-test-run)
+      (define-key map [(control ?c) (control ?t)] 'ledger-insert-effective-date)
       (define-key map [(control ?c) (control ?y)] 'ledger-set-year)
       (define-key map [tab] 'ledger-magic-tab)
       (define-key map [(control ?i)] 'ledger-magic-tab)


(defvar ledger-mode-abbrev-table)

;;;###autoload
(define-derived-mode ledger-mode text-mode "Ledger"
    "A mode for editing ledger data files."

      (define-key map [toggle-post] '(menu-item "Toggle Current Posting" ledger-toggle-current))
      (define-key map [toggle-xact] '(menu-item "Toggle Current Transaction" ledger-toggle-current-transaction))
      (define-key map [sep4] '(menu-item "--"))
      (define-key map [recon-account] '(menu-item "Reconcile Account" ledger-reconcile))
      (define-key map [sep6] '(menu-item "--"))
      (define-key map [edit-amount] '(menu-item "Calc on Amount" ledger-post-edit-amount))
      (define-key map [sep] '(menu-item "--"))
