cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed return type of 'apply-coloring' when the complex-string is empty.

This commit is contained in:
cage 2022-06-03 11:03:39 +02:00
parent ed13d0b14c
commit 9ef6c0200d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/tui-utils.lisp
View File

@ -391,7 +391,7 @@ latter has a length equals to `total-size'"))
(defmethod apply-coloring ((from complex-string) (to string))
(with-accessors ((complex-char-array-from complex-char-array)) from
(if (misc:sequence-empty-p complex-char-array-from)
""
(make-tui-string "")
(let* ((res (make-tui-string to))
(length-diff (- (length to)
(text-length from)))