 	(save-excursion
 		(ledger-fontify-xact-start (car extents))
 		(while (< (point) (cadr extents))
-			(ledger-fontify-posting (point))
+			(if (looking-at "[ \t]+;")
+					(ledger-fontify-set-face (list (point) (progn
+																									 (end-of-line)
+																									 (point))) 'ledger-font-comment-face)
+				(ledger-fontify-posting (point)))
 			(forward-line))))
 
 (defun ledger-fontify-xact-start (pos)
-	"POS shoul dbe at the beginning of a line starting an xact"
+	"POS should be at the beginning of a line starting an xact.
+Fontify the first line of an xact"
 	(goto-char pos)
 	(beginning-of-line)
 	(let ((state nil))

		(goto-char position)
		(let ((extents (ledger-navigate-find-xact-extents position))
					(state (ledger-transaction-state)))
			;; (message (concat "ledger-fontify-xact-at: "
			;; 								 (int-to-string position)
			;; 								 " ("
			;; 								 (int-to-string (car extents)) ", "
			;; 								 (int-to-string (cadr extents))
			;; 								 ")"))
			(if (and ledger-fontify-xact-state-overrides state)
					(cond ((eq state 'cleared)
								 (ledger-fontify-set-face extents 'ledger-font-xact-cleared-face))

		(ledger-fontify-set-face (list (match-beginning 4) (match-end 4))
														 (cond ((eq state 'cleared)
																		'ledger-font-posting-amount-cleared-face)
																	 ((eq state 'pending)
																		'ledger-font-posting-amount-pending-face)
																	 (t
																		'ledger-font-posting-amount-face)))
