branch: externals/company
commit 5564a15e5bfc48de53db85d406eac5a3f7646f8e
Author: Nikita Bloshchanevich <nikb...@outlook.com>
Commit: Nikita Bloshchanevich <nikb...@outlook.com>
Refactor: `company-call-frontends': return a list
`company-call-frontends' now returns a list of frontend return values and
`company-set-selection' checks its return value for a truthy value using
`cl-position' `identity'.
---
company.el | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/company.el b/company.el
index ac38996..6b00fec 100644
--- a/company.el
+++ b/company.el
@@ -1188,14 +1188,11 @@ can retrieve meta-data for them."
(string-match-p "\\`company-" (symbol-name this-command)))))))
(defun company-call-frontends (command)
- (let (success)
- (dolist (frontend company-frontends)
- (condition-case-unless-debug err
- (when (funcall frontend command)
- (setq success t))
- (error (error "Company: frontend %s error \"%s\" on command %s"
- frontend (error-message-string err) command))))
- success))
+ (cl-loop for frontend in company-frontends collect
+ (condition-case-unless-debug err
+ (funcall frontend command)
+ (error (error "Company: frontend %s error \"%s\" on command %s"
+ frontend (error-message-string err) command)))))
(defun company-set-selection (selection &optional force-update)
"Set SELECTION for company candidates.
@@ -2162,7 +2159,7 @@ For use in the `select-mouse' frontend action.
`let'-bound.")
"Select the candidate picked by the mouse."
(interactive "e")
(or (let ((company-mouse-event event))
- (company-call-frontends 'select-mouse))
+ (cl-position-if #'identity (company-call-frontends 'select-mouse)))
(progn
(company-abort)
(company--unread-this-command-keys)
