   (read-string (concat prompt
 		       (if default
 			   (concat " (" default "): ")
-			   ": ")) 
+			   ": "))
 	       nil 'ledger-minibuffer-history default))
 
 (defun ledger-display-balance-at-point ()

      (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)


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

(defun ledger-read-account-with-prompt (prompt)
  (let* ((context (ledger-context-at-point))
	 (default (if (and (eq (ledger-context-line-type context) 'acct-transaction)
			   (eq (ledger-context-current-field context) 'account))
