Function: completion-preview--make-overlay

completion-preview--make-overlay is a byte-compiled function defined in completion-preview.el.gz.

Signature

(completion-preview--make-overlay POS STRING)

Documentation

Make preview overlay showing STRING at POS, or move existing preview there.

Source Code

;; Defined in /usr/src/emacs/lisp/completion-preview.el.gz
(defun completion-preview--make-overlay (pos string)
  "Make preview overlay showing STRING at POS, or move existing preview there."
  (if completion-preview--overlay
      (move-overlay completion-preview--overlay pos pos)
    (setq completion-preview--overlay (make-overlay pos pos))
    (overlay-put completion-preview--overlay 'priority
                 completion-preview-overlay-priority)
    (overlay-put completion-preview--overlay 'window (selected-window)))
  (add-text-properties 0 1 '(cursor 1) string)
  (overlay-put completion-preview--overlay 'after-string string)
  (mapc #'face-remap-remove-relative completion-preview--face-remap-cookie-jar)
  (setq completion-preview--face-remap-cookie-jar
        (when (and completion-preview-adapt-background-color (< (point-min) pos))
          (mapcar (lambda (face)
                    (face-remap-add-relative
                     face `(:background ,(completion-preview--bg-color (1- pos)))))
                  (ensure-list completion-preview-adapt-background-color))))
  completion-preview--overlay)