update packages

lisp/company/company.el

@@ -5,7 +5,8 @@
 ;; Author: Nikolaj Schumacher
 ;; Maintainer: Dmitry Gutov <dmitry@gutov.dev>
 ;; URL: http://company-mode.github.io/
-;; Version: 1.0.2
+;; Package-Version: 20250426.1319
+;; Package-Revision: 41f07c7d401c
 ;; Keywords: abbrev, convenience, matching
 ;; Package-Requires: ((emacs "26.1"))
 
@@ -1408,11 +1409,13 @@ be recomputed when this value changes."
                                (car backends)))
                   (entity (company--force-sync backend '(prefix) backend))
                   (prefix (company--prefix-str entity))
-                  (suffix (company--suffix-str entity)))
-             (setq args (list arg prefix suffix))
+                  (suffix (company--suffix-str entity))
+                  (company-backend backend))
              (or
-              (apply backend command args)
-              (cons prefix suffix))))))
+              (company-call-backend 'adjust-boundaries arg prefix suffix)
+              (if (company--proper-suffix-p arg prefix suffix)
+                  (cons prefix suffix)
+                (cons prefix "")))))))
       (`expand-common
        (apply #'company--multi-expand-common
               backends
@@ -2616,12 +2619,12 @@ For more details see `company-insertion-on-trigger' and
 (defsubst company-keep (command)
   (and (symbolp command) (get command 'company-keep)))
 
-(defun company--proper-suffix-p (candidate)
+(defun company--proper-suffix-p (candidate prefix suffix)
   (and
    (>= (length candidate)
-       (+ (length company-prefix)
-          (length company-suffix)))
-   (string-suffix-p company-suffix candidate
+       (+ (length prefix)
+          (length suffix)))
+   (string-suffix-p suffix candidate
                     (company-call-backend 'ignore-case))))
 
 (defun company--boundaries (&optional candidate)
@@ -2633,7 +2636,7 @@ For more details see `company-insertion-on-trigger' and
                          company-prefix company-suffix)
    (and
     ;; Default to replacing the suffix only if the completion ends with it.
-    (company--proper-suffix-p candidate)
+    (company--proper-suffix-p candidate company-prefix company-suffix)
     (cons company-prefix company-suffix))
    (cons company-prefix "")))