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

    ;; transaction
    (save-excursion
      (goto-char (car bounds))
      (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.")

