 		      (insert (make-string width ? ))))))
 	    (forward-line))
 	  (goto-char (car bounds))
-	  (skip-chars-forward "0-9./ \t")
+	  (skip-chars-forward "0-9./= \t")
 	  (insert state " ")
 	  (if (search-forward "  " (line-end-position) t)
 	      (delete-char 2)))))

    (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

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