   "Match the transaction code.")
 
 (ledger-define-regexp long-space
-    (rx (and (*? space)
+    (rx (and (*? blank)
 	     (or (and ?  (or ?  ?\t)) ?\t)))
   "Match a \"long space\".")
 


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


    (macroexpand
     `(rx (group
	   (or (and (regexp ,ledger-commodity-regexp)
		    (*? blank)
		    (regexp ,ledger-amount-regexp))
	       (and (regexp ,ledger-amount-regexp)
		    (*? blank)
		    (regexp ,ledger-commodity-regexp))))))
  "")

(ledger-define-regexp commodity-annotations
    (macroexpand
     `(rx (* (+ blank)
	     (or (and ?\{ (regexp ,ledger-commoditized-amount-regexp) ?\})
		 (and ?\[ (regexp ,ledger-date-regexp) ?\])
		 (and ?\( (not (any ?\))) ?\))))))
