The Lambda Lab
/
projects
/
sixel.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
58fcef8
)
Remove bugs following previous changes.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 19 May 2019 19:08:51 +0000
(21:08 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 19 May 2019 19:08:51 +0000
(21:08 +0200)
sixel.el
patch
|
blob
|
history
diff --git
a/sixel.el
b/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]+\\)")
(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 "$")
(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)))
((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 "^\\([?-~]\\)")
(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))
(sixel-tag-sixel-in-row 'result idx-out char current-colour)))
((= (point) (point-max))