[elpa] externals/cape fe1afc1b74 3/5: Revert "cape-company-to-capf: Use company-init symbol property"

[ELPA Syncer]

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

    Revert "cape-company-to-capf: Use company-init symbol property"
    
    This reverts commit e057b02ea671b8667eb8101534740ad56f4494ee.
---
 cape.el | 89 ++++++++++++++++++++++++++++++++---------------------------------
 1 file changed, 44 insertions(+), 45 deletions(-)

diff --git a/cape.el b/cape.el
index 05791057d5..3e705c1303 100644
--- a/cape.el
+++ b/cape.el
@@ -683,51 +683,50 @@ This feature is experimental."
   "Convert Company BACKEND function to Capf.
 VALID is the input comparator, see `cape--input-valid-p'.
 This feature is experimental."
-  (lambda ()
-    ;; Load backend with symbol name
-    (when (and (symbolp backend) (not (fboundp backend)))
-      (ignore-errors (require backend nil t)))
-    ;; Initialize backend with symbol name (lambdas are not initialized)
-    (when (and (symbolp backend) (not (get backend 'company-init)))
-      (funcall backend 'init)
-      (put backend 'company-init t))
-    (when-let ((prefix (cape--company-call backend 'prefix))
-               (initial-input (if (stringp prefix) prefix (car-safe prefix))))
-      (let* ((end (point)) (beg (- end (length initial-input)))
-             (dups (cape--company-call backend 'duplicates))
-             candidates)
-        (list beg end
-              (funcall
-               (if (cape--company-call backend 'ignore-case)
-                   #'completion-table-case-fold
-                 #'identity)
-               (cape--table-with-properties
-                (cape--cached-table
-                 beg end
-                 (lambda (input)
-                   (setq candidates (cape--company-call backend 'candidates 
input))
-                   (when dups (setq candidates (delete-dups candidates)))
-                   candidates)
-                 (if (cape--company-call backend 'no-cache initial-input)
-                     'never valid))
-                :category backend
-                :sort (not (cape--company-call backend 'sorted))))
-              :exclusive 'no
-              :company-prefix-length (cdr-safe prefix)
-              :company-doc-buffer (lambda (x) (cape--company-call backend 
'doc-buffer x))
-              :company-location (lambda (x) (cape--company-call backend 
'location x))
-              :company-docsig (lambda (x) (cape--company-call backend 'meta x))
-              :company-deprecated (lambda (x) (cape--company-call backend 
'deprecated x))
-              :company-kind (lambda (x) (cape--company-call backend 'kind x))
-              :annotation-function (lambda (x)
-                                     (when-let (ann (cape--company-call 
backend 'annotation x))
-                                       (if (string-match-p "^[ \t]" ann)
-                                           ann
-                                         (concat " " ann))))
-              :exit-function
-              (lambda (x _status)
-                (cape--company-call backend 'post-completion
-                                    (or (car (member x candidates)) x))))))))
+  (let ((init (make-variable-buffer-local (make-symbol "cape--company-init"))))
+    (lambda ()
+      (when (and (symbolp backend) (not (fboundp backend)))
+        (ignore-errors (require backend nil t)))
+      (unless (symbol-value init)
+        (cape--company-call backend 'init)
+        (set init t))
+      (when-let ((prefix (cape--company-call backend 'prefix))
+                 (initial-input (if (stringp prefix) prefix (car-safe 
prefix))))
+        (let* ((end (point)) (beg (- end (length initial-input)))
+               (dups (cape--company-call backend 'duplicates))
+               candidates)
+          (list beg end
+                (funcall
+                 (if (cape--company-call backend 'ignore-case)
+                     #'completion-table-case-fold
+                   #'identity)
+                 (cape--table-with-properties
+                  (cape--cached-table
+                   beg end
+                   (lambda (input)
+                     (setq candidates (cape--company-call backend 'candidates 
input))
+                     (when dups (setq candidates (delete-dups candidates)))
+                     candidates)
+                   (if (cape--company-call backend 'no-cache initial-input)
+                       'never valid))
+                  :category backend
+                  :sort (not (cape--company-call backend 'sorted))))
+                :exclusive 'no
+                :company-prefix-length (cdr-safe prefix)
+                :company-doc-buffer (lambda (x) (cape--company-call backend 
'doc-buffer x))
+                :company-location (lambda (x) (cape--company-call backend 
'location x))
+                :company-docsig (lambda (x) (cape--company-call backend 'meta 
x))
+                :company-deprecated (lambda (x) (cape--company-call backend 
'deprecated x))
+                :company-kind (lambda (x) (cape--company-call backend 'kind x))
+                :annotation-function (lambda (x)
+                                       (when-let (ann (cape--company-call 
backend 'annotation x))
+                                         (if (string-match-p "^[ \t]" ann)
+                                             ann
+                                           (concat " " ann))))
+                :exit-function
+                (lambda (x _status)
+                  (cape--company-call backend 'post-completion
+                                      (or (car (member x candidates)) 
x)))))))))
 
 ;;;###autoload
 (defun cape-interactive (&rest capfs)