Function: completion-preview-insert

completion-preview-insert is an interactive and byte-compiled function defined in completion-preview.el.gz.

Signature

(completion-preview-insert)

Documentation

Insert the completion candidate that the preview is showing.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/completion-preview.el.gz
(defun completion-preview-insert ()
  "Insert the completion candidate that the preview is showing."
  (interactive nil completion-preview-active-mode)
  (completion-preview--barf-if-no-preview)
  (let* ((pre (completion-preview--get 'completion-preview-base))
         (end (completion-preview--get 'completion-preview-end))
         (ind (completion-preview--get 'completion-preview-index))
         (all (completion-preview--get 'completion-preview-suffixes))
         (com (completion-preview--get 'completion-preview-common))
         (efn (plist-get (completion-preview--get 'completion-preview-props)
                         :exit-function))
         (aft (completion-preview--get 'after-string))
         (str (concat pre com (nth ind all))))
    (completion-preview-active-mode -1)
    (goto-char end)
    (insert-and-inherit (substring-no-properties aft))
    (when (functionp efn) (funcall efn str 'finished))))