+ (let* (;; Use a leading comma to simplify the below loop's
+ ;; delimiter-checking.
+ (chars (vconcat (concat "," braceless)))
+ (index (length chars))
+ (number 0)
+ (multiplier 1)
+ numbers)
+ (while (> index 0)
+ (setq index (1- index))
+ (cond
+ ((= (elt chars index) context-coloring-COMMA-CHAR)
+ (setq numbers (cons number numbers))
+ (setq number 0)
+ (setq multiplier 1))
+ (t
+ (setq number (+ number (* (- (elt chars index) 48) multiplier)))
+ (setq multiplier (* multiplier 10)))))
+ numbers))