fix

lem-project · Sep 29, 2023 · f98db64 · f98db64
1 parent 0618dbb
commit f98db64
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git a/src/display-2.lisp b/src/display-2.lisp
@@ -66,7 +66,8 @@
   (lem-core:overlay-get overlay :cursor))
 
 (defun cursor-attribute-p (attribute)
-  (lem-core:attribute-value attribute :cursor))
+  (and (lem-core:attribute-p attribute)
+       (lem-core:attribute-value attribute :cursor)))
 
 (defun set-cursor-attribute (attribute)
   (setf (lem-core:attribute-value attribute :cursor) t))
@@ -219,9 +220,7 @@
                 :for (start end attribute) :in attributes
                 :do (unless (= last-pos start)
                       (add (make-string-with-attribute-item :string (subseq string last-pos start))))
-                    (add (if (and attribute
-                                  (lem-core:attribute-p attribute)
-                                  (cursor-attribute-p attribute))
+                    (add (if (cursor-attribute-p attribute)
                              (make-cursor-item :string (subseq string start end) :attribute attribute)
                              (make-string-with-attribute-item
                               :string (subseq string start end)

diff --git a/src/display-3.lisp b/src/display-3.lisp
@@ -199,15 +199,15 @@
         :finally (return (nreverse items))))
 
 (defun make-line-end-object (string attribute type offset)
-  (let ((attribute (and attribute (lem-core:ensure-attribute attribute))))
+  (let ((attribute (and attribute (lem-core:ensure-attribute attribute nil))))
     (make-instance 'line-end-object
                    :offset offset
                    :string string
                    :attribute attribute
                    :type type)))
 
 (defun make-object-with-type (string attribute type)
-  (let ((attribute (and attribute (lem-core:ensure-attribute attribute))))
+  (let ((attribute (and attribute (lem-core:ensure-attribute attribute nil))))
     (make-instance (case type
                      (:folder 'folder-object)
                      (:icon 'icon-object)