- ((string-match "^#\\([0-9]+\\);\\([0-9]+\\);\\([0-9]+\\);\\([0-9]+\\);\\([0-9]+\\)"
- trunc-string)
- (let ((tag (intern (string-to (match-string 1 trunc-string))))
- (mode (match-string 2 trunc-string))
- (r (string-to-number (match-string 3 trunc-string)))
- (g (string-to-number (match-string 4 trunc-string)))
- (b (string-to-number (match-string 5 trunc-string))))
- (add-to-list 'sixel-colour-map (list (tag r g b)))
- (setq idx-in (match-end 0))))
- ((string-match "^#\\([0-9]+\\)" trunc-string)
+ ((looking-at "#\\([0-9]+\\);\\([0-9]+\\);\\([0-9]+\\);\\([0-9]+\\);\\([0-9]+\\)")
+ (let ((tag (intern (match-string 1)))
+ (mode (match-string 2))
+ (r (string-to-number (match-string 3)))
+ (g (string-to-number (match-string 4)))
+ (b (string-to-number (match-string 5))))
+ (push (list tag r g b) colour-map)))
+
+ ((looking-at "#\\([0-9]+\\)")