 
 (ledger-define-regexp full-note
     (macroexpand
-     `(rx (and line-start (+ space)
+     `(rx (and line-start (+ blank)
 	       ?\; (regexp ,ledger-note-regexp))))
   "")
 

  "Match the transaction code.")

(ledger-define-regexp long-space
    (rx (and (*? space)
	     (or (and ?  (or ?  ?\t)) ?\t)))
  "Match a \"long space\".")



(ledger-define-regexp post-line
    (macroexpand
     `(rx (and line-start (+ blank)
	       (? (and (regexp ,ledger-state-regexp) (* blank)))
	       (regexp ,ledger-full-account-regexp)
	       (? (and (regexp ,ledger-long-space-regexp)
		       (regexp ,ledger-full-amount-regexp)))
	       (? (regexp ,ledger-end-note-regexp))
	       line-end)))
  ""
  state
  (account-kind full-account kind)
  (account full-account name)
  (amount full-amount)
  (note end-note))

