completion-preview.el: adapt to new '(set-)window-cursor-type'

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index 41004803a2b6bd68e0f86152cbd3044ce769d55a..0178847215edb9f7f31e5bee0296941d908b15d8 100644 (file)
--- 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."