fix fail ci

emacs-lsp · Apr 1, 2024 · c72b3d4 · c72b3d4
1 parent ee9a055
commit c72b3d4
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lsp-completion.el b/lsp-completion.el
@@ -347,8 +347,9 @@ The MARKERS and PREFIX value will be attached to each candidate."
 (defun lsp-completion--company-match (candidate)
   "Return highlight of typed prefix inside CANDIDATE."
   (if-let ((md (cddr (plist-get (text-properties-at 0 candidate) 'match-data))))
-      (let (matches)
-        (while-let ((start (pop md)) (end (pop md)))
+      (let (matches start end)
+        (while (progn (setq start (pop md) end (pop md))
+                      (and start end))
           (setq matches (nconc matches `((,start . ,end)))))
         matches)
     (let* ((prefix (downcase