From 0b50b88907aa319d0ecf887591804cb91478d3ad Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sun, 19 May 2019 21:08:51 +0200 Subject: [PATCH] Remove bugs following previous changes. --- sixel.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.20.1