mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

New variable 'completion-preview-overlay-priority'

Browse Source 
* lisp/completion-preview.el: Update commentary.
(completion-preview-overlay-priority): New variable.
(completion-preview--make-overlay): Use it.  (Bug#72762)
This commit is contained in:
Eshel Yaron 2024-09-04 18:21:13 +02:00
parent 2847106f3b
commit a13eef1fae
No known key found for this signature in database
GPG Key ID: EF3EE9CA35D78618
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/completion-preview.el
View File

@ -88,6 +88,26 @@
;; `completion-preview-idle-delay' to have the preview appear only
;; when you pause typing for a short duration rather than after every
;; key. Try setting it to 0.2 seconds and see how that works for you.
;;
;; Sometimes you may want to use Completion Preview mode alongside other
;; Emacs features that place an overlay after point, in a way that could
;; "compete" with the preview overlay. In such cases, you should give
;; the completion preview overlay a higher priority, so it properly
;; appears immediately after point, before other overlays. To do that,
;; set the variable `completion-preview-overlay-priority'. You can set
;; it buffer-locally if you only use competing overlays in some buffers.
;; In particular, an important use case for this variable is enabling
;; Completion Preview mode for `M-:' and other minibuffers that support
;; `completion-at-point'. In the minibuffer, some message are displayed
;; using an overlay that may, by default, conflict with the completion
;; preview overlay. Use `completion-preview-overlay-priority' to
;; resolve this conflict by giving the completion preview overlay a
;; higher priority:
;;
;; (add-hook 'eval-expression-minibuffer-setup-hook
;; (lambda ()
;; (setq-local completion-preview-overlay-priority 1200)
;; (completion-preview-mode)))
;;; Code:
@ -252,11 +272,16 @@ Completion Preview mode avoids updating the preview after these commands.")
(setq completion-preview--overlay nil
completion-preview--inhibit-update-p nil)))
(defvar completion-preview-overlay-priority nil
"Value of the `priority' property for the completion preview overlay.")
(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)