undry

Author: wyuenho

lsp-completion.el

@@ -587,7 +587,10 @@ of the PREFIX string."
                            same-session?
                            (cl-second lsp-completion--cache))
                       (setf result (pcase-let* ((`(,_ ,items ,markers ,prefix) (cdr lsp-completion--cache)))
-                                     (lsp-completion--make-items items markers prefix))))
+                                     (-map
+                                      (lambda (item)
+                                        (lsp-completion--make-item item :markers markers :prefix prefix))
+                                      (lsp-completion--filter-candidates items)))))
                      (t
                       (-let* ((resp (lsp-request-while-no-input
                                      "textDocument/completion"
@@ -632,7 +635,10 @@ of the PREFIX string."
                                                  (or (and done? (cl-second lsp-completion--cache))
                                                      (and lsp-completion-filter-on-incomplete
                                                           (lsp-completion--to-internal items)))))
-                                       (lsp-completion--make-items items markers prefix)))))))
+                                       (-map
+                                        (lambda (item)
+                                          (lsp-completion--make-item item :markers markers :prefix prefix))
+                                        (lsp-completion--filter-candidates items))))))))
                 (:interrupted lsp-completion--last-result)
                 (`,res (setq lsp-completion--last-result res))))))
       (list