- (while (re-search-forward -num3-number-re lim t)
- (-num3-int (match-beginning 1) (match-end 1) 4)
- (-num3-int (match-beginning 2) (match-end 2) num3-group-size)
- (-num3-frac (match-beginning 3) (match-end 3) num3-group-size)))
+ (while (re-search-forward num3--number-re lim t)
+ (num3--int (match-beginning 1) (match-end 1) 4)
+ (num3--int (match-beginning 2) (match-end 2) num3-group-size)
+ (num3--frac (match-beginning 3) (match-end 3) num3-group-size)))