[elpa] externals/cape 1743bf259c 4/5: cape-company-to-capf: Only symbol backends are initialized

[ELPA Syncer]

branch: externals/cape
commit 1743bf259c578d44447e7af437da024eef7d0bb7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    cape-company-to-capf: Only symbol backends are initialized
---
 cape.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/cape.el b/cape.el
index 3e705c1303..b4f141f456 100644
--- a/cape.el
+++ b/cape.el
@@ -683,12 +683,15 @@ This feature is experimental."
   "Convert Company BACKEND function to Capf.
 VALID is the input comparator, see `cape--input-valid-p'.
 This feature is experimental."
-  (let ((init (make-variable-buffer-local (make-symbol "cape--company-init"))))
+  (let ((init (and (symbolp backend)
+                   (make-variable-buffer-local
+                    (intern (format "cape--company-init-%s" backend))))))
     (lambda ()
       (when (and (symbolp backend) (not (fboundp backend)))
         (ignore-errors (require backend nil t)))
-      (unless (symbol-value init)
+      (when (and init (not (symbol-value init)))
         (cape--company-call backend 'init)
+        (put backend 'company-init t)
         (set init t))
       (when-let ((prefix (cape--company-call backend 'prefix))
                  (initial-input (if (stringp prefix) prefix (car-safe 
prefix))))