(push (list tag r g b) colour-map)))
((looking-at "#\\([0-9]+\\)")
- (let ((tag (intern (match-string 1 trunc-string))))
+ (let ((tag (intern (match-string 1))))
(setq current-colour tag)))
((looking-at "$")
((looking-at "^!\\([0-9]+\\)\\([?-~]\\)")
(let ((repeat-count (string-to-number (match-string 1)))
- (char (elt (match-string 2 trunc-string) 0)))
+ (char (elt (match-string 2) 0)))
(dotimes (i repeat-count)
(sixel-tag-sixel-in-row 'result idx-out char current-colour))))
((looking-at "^\\([?-~]\\)")
- (let ((char (elt (match-string 1 trunc-string) 0)))
+ (let ((char (elt (match-string 1) 0)))
(sixel-tag-sixel-in-row 'result idx-out char current-colour)))
((= (point) (point-max))