diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2021-11-27 11:52:25 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2021-11-27 11:52:25 +0100 |
| commit | 08877dbf75d5ee9c6ed71ac8ad3817b47823e499 (patch) | |
| tree | 3102b6b49705957b8ecfbf9b2f5e8c48637b763a /cape.el | |
| parent | 3c44bff1f6afb9b16e4e5e6c16affe0ca97c0d6b (diff) | |
Improve comments
Diffstat (limited to 'cape.el')
| -rw-r--r-- | cape.el | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -732,14 +732,14 @@ If INTERACTIVE is nil the function acts like a capf." (defun cape--company-call (backend &rest args) "Call Company BACKEND with ARGS." - ;; Company backends are non-interruptible! + ;; Company backends are non-interruptible. (pcase (let (throw-on-input) (apply backend args)) (`(:async . ,fetcher) (let ((res 'trash) (start (time-to-seconds))) - ;; Company backends are non-interruptible! + ;; Company backends are non-interruptible. (let (throw-on-input) (funcall fetcher (lambda (arg) (setq res arg)))) - ;; Force synchronization + ;; Force synchronization. The synchronization is interruptible! (while (eq res 'trash) (sleep-for company-async-wait) (when (> (- (time-to-seconds) start) company-async-timeout) |
