fix: make code compatible with emacs-28

Author: kassick

clients/lsp-copilot.el

@@ -104,6 +104,26 @@ The input are the file name and the major mode of the buffer."
 (defvar-local lsp-copilot-panel-completion-items nil
   "A list of completion items returned by the Panel Completion call")
 
+(if (version< emacs-version "29.0")
+    ;; Backport from emacs 29
+    (defun lsp-copilot-panel--delete-all-space (&optional backward-only)
+      "Delete all spaces, tabs, and newlines around point.
+If BACKWARD-ONLY is non-nil, delete them only before point."
+      (interactive "*P")
+      (let ((chars " \t\r\n")
+            (orig-pos (point)))
+        (delete-region
+         (if backward-only
+             orig-pos
+           (progn
+             (skip-chars-forward chars)
+             (constrain-to-field nil orig-pos t)))
+         (progn
+           (skip-chars-backward chars)
+           (constrain-to-field nil orig-pos)))))
+  (defalias 'lsp-copilot-panel--delete-all-space 'delete-all-space))
+
+
 (defvar-local lsp-copilot-panel-completion-token nil
   "The per-request token")
 
@@ -175,7 +195,7 @@ The input are the file name and the major mode of the buffer."
                       ("C-<return>" . lsp-copilot--panel-accept-suggestion-at-point)
                       ("q" . quit-window))))
   (dolist (binding key-bindings)
-    (bind-key (kbd (car binding)) (cdr binding) 'lsp-copilot-panel-buffer-mode-map)))
+    (define-key lsp-copilot-panel-buffer-mode-map (kbd (car binding)) (cdr binding))))
 
 
 (defcustom lsp-copilot-panel-display-fn #'pop-to-buffer
@@ -234,7 +254,7 @@ The input are the file name and the major mode of the buffer."
                  (put-text-property start-point (point) 'lsp-panel-item item)
                  (put-text-property start-point (point) 'lsp-panel-completing-buffer-name completing-buffer-name)))
 
-      (delete-all-space t)
+      (lsp-copilot-panel--delete-all-space t)
       (lsp-copilot-panel-buffer-mode)
       (read-only-mode +1)
 
@@ -258,7 +278,7 @@ The input are the file name and the major mode of the buffer."
 
 (defun lsp-copilot--panel-completions-progress-handler (_ params)
   (-let* (((&ProgressParams :token :value) params)
-          ((action completing-buffer-name panel-completion-token) (string-split token " /// " )))
+          ((action completing-buffer-name panel-completion-token) (s-split " /// " token)))
     (pcase action
       ;; copilot sends results in the report
       ("PANEL-PARTIAL-RESULT"