       (message balance))))
 
 (defun ledger-magic-tab (&optional interactively)
-  "Decide what to with with <TAB>.
+  "Decide what to with with <TAB>, INTERACTIVELY.
 Can indent, complete or align depending on context."
   (interactive "p")
   (if (= (point) (line-beginning-position))

             (ledger-mode-dump-variable (car member)))))))

(defun ledger-mode-dump-configuration ()
  "Dump all customizations"
	(interactive)
  (find-file "ledger-mode-dump")
  (ledger-mode-dump-group 'ledger))

  "Start a ledger session with the current month, but make it customizable to ease retro-entry.")

(defun ledger-read-account-with-prompt (prompt)
  "Read an account from the minibuffer with PROMPT."
	(let ((context (ledger-context-at-point)))
    (ledger-read-string-with-default prompt
																		 (if (eq (ledger-context-line-type context) 'acct-transaction)
																				 (regexp-quote (ledger-context-field-value context 'account))
																			 nil))))

(defun ledger-read-date (prompt)
  "Return user-supplied date after `PROMPT', defaults to today."
  (let* ((default (ledger-year-and-month))
         (date (read-string prompt default
                            'ledger-minibuffer-history)))
