From: Tim Vaughan <tgvaughan@gmail.com>
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?p=sixel.git;a=commitdiff_plain;h=0b50b88907aa319d0ecf887591804cb91478d3ad

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))