[elpa] externals/capf-autosuggest 2b241a4 43/63: Avoid recomputing string length

[ELPA Syncer]

branch: externals/capf-autosuggest
commit 2b241a413730d6cd8db6413353a0876e4512b132
Author: jakanakaevangeli <jakanakaevangeli@chiru.no>
Commit: jakanakaevangeli <jakanakaevangeli@chiru.no>

    Avoid recomputing string length
---
 capf-autosuggest.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/capf-autosuggest.el b/capf-autosuggest.el
index 9512181..bbc3e7e 100644
--- a/capf-autosuggest.el
+++ b/capf-autosuggest.el
@@ -191,7 +191,8 @@ Otherwise, return nil."
               ;; match on our prefix.  Ignore them.
               ((string-prefix-p (substring string base) (car completions)))
               (str (substring (car completions) (- end beg base)))
-              ((/= 0 (length str))))
+              (len (length str))
+              ((/= 0 len)))
            (setq capf-autosuggest--region (cons beg end)
                  capf-autosuggest--str (copy-sequence str)
                  capf-autosuggest--tick (buffer-modified-tick))
@@ -199,11 +200,13 @@ Otherwise, return nil."
            ;; Make sure the overlay after-string doesn't start or end with a
            ;; newline, otherwise it can behave badly with cursor placement
            (when (eq ?\n (aref str 0))
-             (setq str (concat " " str)))
-           (when (eq ?\n (aref str (1- (length str))))
-             (setq str (concat str (propertize " " 'display ""))))
-           (add-text-properties 0 1 (list 'cursor (length str)) str)
-           (put-text-property 0 (length str) 'face 'capf-autosuggest-face str)
+             (setq str (concat " " str))
+             (setq len (1+ len)))
+           (when (eq ?\n (aref str (1- len)))
+             (setq str (concat str (propertize " " 'display "")))
+             (setq len (1+ len)))
+           (put-text-property 0 1 'cursor len str)
+           (put-text-property 0 len 'face 'capf-autosuggest-face str)
            (overlay-put capf-autosuggest--overlay 'after-string str)
            (capf-autosuggest-active-mode)))))))