From: Tim Vaughan Date: Sun, 19 May 2019 19:08:51 +0000 (+0200) Subject: Remove bugs following previous changes. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=0b50b88907aa319d0ecf887591804cb91478d3ad;p=sixel.git Remove bugs following previous changes. --- diff --git a/sixel.el b/sixel.el index ae7a2aa..958a456 100644 --- a/sixel.el +++ b/sixel.el @@ -60,7 +60,7 @@ with TAG." (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 "$") @@ -73,12 +73,12 @@ with TAG." ((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))