From 92c1fc0c18d1e02910aa368dd0a16ab99afda2e8 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 23 May 2024 08:13:49 +0200 Subject: [PATCH] completion-preview.el: adapt to new '(set-)window-cursor-type' --- lisp/completion-preview.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el index 41004803a2b..0178847215e 100644 --- a/lisp/completion-preview.el +++ b/lisp/completion-preview.el @@ -257,15 +257,15 @@ set to the value of this option while the completion preview is visible." (defsubst completion-preview--restore-cursor () (when (completion-preview--cursor-modified-p) (when (window-live-p completion-preview--window) - (set-window-parameter completion-preview--window 'cursor-type - completion-preview--original-cursor-type)) + (set-window-cursor-type completion-preview--window + completion-preview--original-cursor-type)) (setq completion-preview--original-cursor-type 'unset))) (defsubst completion-preview--modify-cursor () (setq completion-preview--original-cursor-type - (window-parameter completion-preview--window 'cursor-type)) - (set-window-parameter completion-preview--window - 'cursor-type completion-preview-cursor-type)) + (window-cursor-type completion-preview--window)) + (set-window-cursor-type completion-preview--window + completion-preview-cursor-type)) (define-minor-mode completion-preview-active-mode "Mode for when the completion preview is shown." -- 2.39.5