complete with junk

[scinart]

using emacs -Q, I seem to detect a bug of helm-company.

(defun helm-company ()
  "Select `company-complete' candidates by `helm'.
It is useful to narrow candidates."
  (interactive)
  (unless company-candidates
    (company-complete))
  (when company-point
    (let ((begin (- company-point (length company-prefix))))
      (with-helm-show-completion begin company--point-max
        (helm :sources 'helm-source-company
              :buffer  "*helm company*"
              :candidate-number-limit helm-company-candidate-number-limit)))))

suppose you use C-: to complete "(poi" and (company-complete) is called. After (company-complete) the buffer will become "(point" because it is the sole prefix. Finally if "point-max" is chosen, the buffer becomes "(popoint-max". It seems that however many company-complete completes, the same amount of junk will leave ahead.

Temporarily I managed to fix this by replacing the unless with

(unless company-candidates
  (company--begin-new)
  (setq company-point (point)
        company--point-max (point-max)))

Can you reproduce this problem or figure out why that happens?

[scinart]

Temporarily it should be fixed by the following code (my previous code still has bugs)

(unless company-candidates
  (company-manual-begin)
  (setq company-point (point)
        company--point-max (point-max)))

[yasuyk]

@scinart Sorry for the delay in replying. Trying to reproduce this issue, I cannot reproduce it.

[scinart]

Oh, I found this bug from "version 00f5e95 1 parent 7a11589 Yasuyuki Oka yasuyk authored on Jan 17" and soon later I updated my package and the bug has gone.
only that I forgot to close this issue.

[yasuyk]

I'm glad that your issue is solved. :-)