Pull request: don't delete right side of minibuffer after TAB

[Anoncheg1]

Fucking github don't allow me to create a fork! What the hell wrong with that world! Github is a stupid shit.

Case: in Dired when you want to copy file you enter path and you don't want filename at right side to be deleted duiring composing new path.
Another case when you rename or move file you need completion and preserve pointer.

(defun vertico-exit (&optional arg)
  "Exit minibuffer with current candidate or input if prefix ARG is given."
  (interactive "P")
  (when (and (not arg) (>= vertico--index 0))
    (vertico-insert t))
  (when (vertico--match-p (minibuffer-contents-no-properties))
    (exit-minibuffer)))

(defun vertico-insert (&optional exit-flag)
  "Insert current candidate in minibuffer."
  (interactive)
  (when (> vertico--total 0)
    (let ((vertico--index (max 0 vertico--index)))
      (if exit-flag ; - RET
          (insert (prog1
                      (vertico--candidate) ; return value
                    (delete-minibuffer-contents)))
        ;; else - TAB - completion
        ;; concat vartiant and fix // double + reset pointer position after
          (let ((efn (expand-file-name (concat (vertico--candidate) (buffer-substring (point) (point-max)))))
                (pd (- (point-max) (point)))) ; text lenght after pointer
            ;; (print pd)
            (delete-minibuffer-contents)
            (insert efn)
            (if (> pd 0) ; if we renaming preserve pointer after variant
                (goto-char (- (+ (minibuffer-prompt-end) (length (vertico--candidate))) 1 ))))))))

[minad]

Please watch your language. The notification of this issue did not even reach me since my spam filter must have rejected the mail right away.