       (define-key map [(control ?c) (control ?u)] 'ledger-schedule-upcoming)
       (define-key map [(control ?c) (control ?y)] 'ledger-set-year)
       (define-key map [(control ?c) (control ?p)] 'ledger-display-balance-at-point)
+      (define-key map [(control ?c) (control ?l)] 'ledger-display-ledger-stats)
+
       (define-key map [tab] 'ledger-magic-tab)
       (define-key map [(control ?i)] 'ledger-magic-tab)
       (define-key map [(control ?c) tab] 'ledger-fully-complete-xact)

    (add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t)
    (add-hook 'before-revert-hook 'ledger-occur-remove-all-overlays nil t)
    (make-variable-buffer-local 'highlight-overlay)
    
    (ledger-init-load-init-file)

    (set (make-local-variable 'indent-region-function) 'ledger-post-align-postings)

      (define-key map [(control ?c) (control ?o) (control ?k)] 'ledger-report-kill)
      (define-key map [(control ?c) (control ?o) (control ?r)] 'ledger-report)
      (define-key map [(control ?c) (control ?o) (control ?s)] 'ledger-report-save)

      (define-key map [(meta ?p)] 'ledger-post-prev-xact)
      (define-key map [(meta ?n)] 'ledger-post-next-xact)

