     ;; transaction
     (save-excursion
       (goto-char (car bounds))
-      (skip-chars-forward "0-9./ \t")
+      (skip-chars-forward "0-9./= \t")
       (setq cleared (and (member (char-after) '(?\* ?\!))
 			 (char-after)))
       (when cleared


(defvar bold 'bold)
(defvar ledger-font-lock-keywords
  '(("^[0-9./]+\\s-+\\(?:([^)]+)\\s-+\\)?\\([^*].+\\)" 1 bold)
    ("^\\s-+.+?\\(  \\|\t\\|\\s-+$\\)" . font-lock-keyword-face))
  "Default expressions to highlight in Ledger mode.")


    (save-excursion
      (when (or (looking-at "^[0-9]")
		(re-search-backward "^[0-9]" nil t))
	(skip-chars-forward "0-9./=")
	(delete-horizontal-space)
	(if (member (char-after) '(?\* ?\!))
	    (progn
