@@ -407,16 +407,23 @@ lsp-inline-completion-mode is active."
407
407
(defvar-local lsp-inline-completion--idle-timer nil
408
408
" The idle timer used by lsp-inline-completion-mode." )
409
409
410
+ ;;;### autoload
411
+ (defun lsp-inline-completion-cancel-timer ()
412
+ " Cancels the completion idle timer, if set"
413
+ (when lsp-inline-completion--idle-timer
414
+ (cancel-timer lsp-inline-completion--idle-timer)
415
+ (setq lsp-inline-completion--idle-timer nil )))
416
+
410
417
;;;### autoload
411
418
(define-minor-mode lsp-inline-completion-mode
412
419
" Mode automatically displaying inline completions."
413
420
:lighter nil
414
421
(cond
415
422
((and lsp-inline-completion-mode lsp--buffer-workspaces)
416
423
(add-hook 'lsp-on-change-hook #'lsp-inline-completion--after-change nil t ))
424
+
417
425
(t
418
- (when lsp-inline-completion--idle-timer
419
- (cancel-timer lsp-inline-completion--idle-timer))
426
+ (lsp-inline-completion-cancel-timer)
420
427
421
428
(lsp-inline-completion-cancel)
422
429
@@ -439,8 +446,7 @@ lsp-inline-completion-mode is active."
439
446
; ; modified in the meantime! Use the values in lsp--after-change-vals to
440
447
; ; ensure this.
441
448
442
- (when lsp-inline-completion--idle-timer
443
- (cancel-timer lsp-inline-completion--idle-timer))
449
+ (lsp-inline-completion-cancel-timer)
444
450
445
451
(when (and lsp-inline-completion-mode lsp--buffer-workspaces)
446
452
(let ((original-buffer (plist-get lsp--after-change-vals :buffer ))
0 commit comments