listp -> sequencep

emacs-lsp · Sep 10, 2018 · 4e062b9 · 4e062b9
1 parent 564840a
commit 4e062b9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lsp-ui-doc.el b/lsp-ui-doc.el
@@ -262,7 +262,7 @@ We don't extract the string that `lps-line' is already displaying."
   (when contents
     (cond
      ((stringp contents) contents)
-     ((listp contents) ;; MarkedString[]
+     ((sequencep contents) ;; MarkedString[]
       (mapconcat 'lsp-ui-doc--extract-marked-string
                  (lsp-ui-doc--filter-marked-string contents)
                  "\n\n"

diff --git a/lsp-ui-sideline.el b/lsp-ui-sideline.el
@@ -200,7 +200,7 @@ function signature)."
   (when contents
     (cond
      ((stringp contents) contents)
-     ((listp contents) ;; MarkedString[]
+     ((sequencep contents) ;; MarkedString[]
       (--first (and (hash-table-p it)
                     (lsp-ui-sideline--get-renderer (gethash "language" it)))
                contents))
@@ -350,7 +350,7 @@ CURRENT is non-nil when the point is on the symbol."
 (defun lsp-ui-sideline--code-actions (actions)
   "Show code ACTIONS."
   (setq lsp-ui-sideline--code-actions actions)
-  (dolist (action actions)
+  (seq-doseq (action actions)
     (-let* ((title (->> (gethash "title" action)
                         (replace-regexp-in-string "[\n\t ]+" " ")
                         (concat lsp-ui-sideline-code-actions-prefix)))