Skip to content

Commit e379ae5

Browse files
authored
lsp-completion-at-point: looking back a few more chars for trigger-char (#4428)
1 parent e67008b commit e379ae5

File tree

1 file changed

+9
-1
lines changed

1 file changed

+9
-1
lines changed

lsp-completion.el

Lines changed: 9 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -525,7 +525,15 @@ The MARKERS and PREFIX value will be attached to each candidate."
525525
:company-require-match 'never
526526
:company-prefix-length
527527
(save-excursion
528-
(and (lsp-completion--looking-back-trigger-characterp trigger-chars) t))
528+
(defvar company-minimum-prefix-length)
529+
(let ((bounds-left (max (line-beginning-position) (- (point) company-minimum-prefix-length)))
530+
triggered-by-char?)
531+
(while (and (> (point) bounds-left)
532+
(not (equal (char-after) ?\s))
533+
(not triggered-by-char?))
534+
(setq triggered-by-char? (lsp-completion--looking-back-trigger-characterp trigger-chars))
535+
(goto-char (1- (point))))
536+
(and triggered-by-char? t)))
529537
:company-match #'lsp-completion--company-match
530538
:company-doc-buffer (-compose #'lsp-doc-buffer
531539
#'lsp-completion--get-documentation)

0 commit comments

Comments
 (0)