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)
  (if completion-preview-active-mode
      (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 (substring-no-properties aft))
        (when (functionp efn) (funcall efn str 'finished)))
    (user-error "No current completion preview")))