From e379ae512787aee67cf383ee7639fc341104cd27 Mon Sep 17 00:00:00 2001 From: kiennq Date: Tue, 16 Apr 2024 23:11:31 -0700 Subject: [PATCH] lsp-completion-at-point: looking back a few more chars for trigger-char (#4428) --- lsp-completion.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lsp-completion.el b/lsp-completion.el index 6dfba6c8e6..2bba1c4fc9 100644 --- a/lsp-completion.el +++ b/lsp-completion.el @@ -525,7 +525,15 @@ The MARKERS and PREFIX value will be attached to each candidate." :company-require-match 'never :company-prefix-length (save-excursion - (and (lsp-completion--looking-back-trigger-characterp trigger-chars) t)) + (defvar company-minimum-prefix-length) + (let ((bounds-left (max (line-beginning-position) (- (point) company-minimum-prefix-length))) + triggered-by-char?) + (while (and (> (point) bounds-left) + (not (equal (char-after) ?\s)) + (not triggered-by-char?)) + (setq triggered-by-char? (lsp-completion--looking-back-trigger-characterp trigger-chars)) + (goto-char (1- (point)))) + (and triggered-by-char? t))) :company-match #'lsp-completion--company-match :company-doc-buffer (-compose #'lsp-doc-buffer #'lsp-completion--get-documentation)