fix create-drawing-object: avoid creating an empty string surface

lem-project · Aug 2, 2023 · 4d69f74 · 4d69f74
1 parent 01423a5
commit 4d69f74
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/frontends/sdl2/text-buffer.lisp b/frontends/sdl2/text-buffer.lisp
@@ -430,6 +430,7 @@
          (let ((string (line-end-item-text item))
                (attribute (line-end-item-attribute item)))
            (loop :for (type . string) :in (split-string-by-character-type string)
+                 :unless (alexandria:emptyp string)
                  :collect (multiple-value-bind (surface attribute)
                               (make-text-surface-with-attribute string attribute :type type)
                             (make-instance 'line-end-object
@@ -448,6 +449,7 @@
                                        :attribute attribute)))
                  (t
                   (loop :for (type . string) :in (split-string-by-character-type string)
+                        :unless (alexandria:emptyp string)
                         :collect (multiple-value-bind (surface attribute)
                                      (make-text-surface-with-attribute string attribute :type type)
                                    (make-instance 'text-object