From a40731aa3d5f229f8d05ddd4fa7cac431bcabcc3 Mon Sep 17 00:00:00 2001 From: Hugo Thunnissen Date: Thu, 31 Aug 2023 11:44:27 +0200 Subject: [PATCH] Catch `phpinspect-parse-interrupted' in function `phpinspect-complete-at-point' --- phpinspect-completion.el | 66 ++++++++++++++++++++-------------------- 1 file changed, 33 insertions(+), 33 deletions(-) diff --git a/phpinspect-completion.el b/phpinspect-completion.el index b32bfea..b2ef197 100644 --- a/phpinspect-completion.el +++ b/phpinspect-completion.el @@ -275,38 +275,38 @@ Returns list of `phpinspect--completion'." (defun phpinspect-complete-at-point () - (let ((comp-list (phpinspect-completion-query-execute (phpinspect--get-completion-query))) - strings) - (obarray-map (lambda (sym) (push (symbol-name sym) strings)) (phpinspect--completion-list-completions comp-list)) - (and (phpinspect--completion-list-has-candidates comp-list) - (list (phpinspect--completion-list-completion-start comp-list) - (phpinspect--completion-list-completion-end comp-list) - strings - :affixation-function - (lambda (completions) - (let (affixated completion) - (dolist (comp completions) - (setq completion (phpinspect--completion-list-get-metadata comp-list comp)) - (push (list comp (phpinspect--prefix-for-completion completion) - (phpinspect--completion-meta completion)) - affixated)) - (nreverse affixated))) - :exit-function - (lambda (comp-name state) - (let ((comp (phpinspect--completion-list-get-metadata - phpinspect--last-completion-list - comp-name))) - (when (and (eq 'finished state) - (eq 'function (phpinspect--completion-kind comp))) - (insert "(") - (when (= 0 (length (phpinspect--function-arguments - (phpinspect--completion-target comp)))) - (insert ")"))))) - :company-kind (lambda (comp-name) - (phpinspect--completion-kind - (phpinspect--completion-list-get-metadata - phpinspect--last-completion-list - comp-name))))))) - + (catch 'phpinspect-parse-interrupted + (let ((comp-list (phpinspect-completion-query-execute (phpinspect--get-completion-query))) + strings) + (obarray-map (lambda (sym) (push (symbol-name sym) strings)) (phpinspect--completion-list-completions comp-list)) + (and (phpinspect--completion-list-has-candidates comp-list) + (list (phpinspect--completion-list-completion-start comp-list) + (phpinspect--completion-list-completion-end comp-list) + strings + :affixation-function + (lambda (completions) + (let (affixated completion) + (dolist (comp completions) + (setq completion (phpinspect--completion-list-get-metadata comp-list comp)) + (push (list comp (phpinspect--prefix-for-completion completion) + (phpinspect--completion-meta completion)) + affixated)) + (nreverse affixated))) + :exit-function + (lambda (comp-name state) + (let ((comp (phpinspect--completion-list-get-metadata + phpinspect--last-completion-list + comp-name))) + (when (and (eq 'finished state) + (eq 'function (phpinspect--completion-kind comp))) + (insert "(") + (when (= 0 (length (phpinspect--function-arguments + (phpinspect--completion-target comp)))) + (insert ")"))))) + :company-kind (lambda (comp-name) + (phpinspect--completion-kind + (phpinspect--completion-list-get-metadata + phpinspect--last-completion-list + comp-name)))))))) (provide 'phpinspect-completion)