lsp-bridge -- 速度最快的语法补全插件

XYZ_C · 2022 年12 月 17 日 03:37

这好像有个小bug，调用了 cl-return 所以这是不是需要改成 cl-dolist? 现在调用这个函数会报错

manateelazycat/lsp-bridge/blob/0674bec0d01f02bf8ba406e530a6fa0e16a04642/lsp-bridge-diagnostic.el#L244


      
            (if-let ((diagnostic-overlay (cl-find-if
                                          (lambda (overlay)
                                            (or (> (point) (overlay-end overlay))
                                                ;; Show diagnostic information around cursor if diagnostic frame is not visiable.
                                                (lsp-bridge-in-diagnostic-overlay-area-p overlay)))
                                          (reverse lsp-bridge-diagnostic-overlays))))
                (lsp-bridge-diagnostic-show-tooltip diagnostic-overlay t)
              (message "[LSP-Bridge] Reach first diagnostic.")))
          
          
(defun lsp-bridge-diagnostic-overlay-at-point ()
            (dolist (overlay lsp-bridge-diagnostic-overlays)
              (when (and (>= (point) (overlay-start overlay))
                         (< (point) (overlay-end overlay)))
                (cl-return overlay)
                )))
          
          
(defun lsp-bridge-diagnostic-copy ()
            (interactive)
            (if (zerop (length lsp-bridge-diagnostic-overlays))
                (message "[LSP-Bridge] No diagnostics.")
              (when-let ((overlay (lsp-bridge-diagnostic-overlay-at-point)))