Remove bugs following previous changes.
authorTim Vaughan <tgvaughan@gmail.com>
Sun, 19 May 2019 19:08:51 +0000 (21:08 +0200)
committerTim Vaughan <tgvaughan@gmail.com>
Sun, 19 May 2019 19:08:51 +0000 (21:08 +0200)
sixel.el

index ae7a2aa..958a456 100644 (file)
--- 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))