gnu: emacs-lsp-mode: Update to 8.0.1-0.4aafe25.

* gnu/packages/emacs-xyz.scm (emacs-lsp-mode): Update to 8.0.1-0.4aafe25.
[arguments]: Add a 'fix-patch-el-files' phase.

gnu/packages/emacs-xyz.scm

@@ -24930,45 +24930,53 @@ the standard @code{Dockerfile} file format.")
     (license license:asl2.0)))
 
 (define-public emacs-lsp-mode
-  (package
+  (let ((commit "4aafe25e03ab7470b8d3c1cb326affa3c5e9930e")
-    (name "emacs-lsp-mode")
+        (revision "0"))
-    (version "8.0.0")
+    (package
-    (source
+      (name "emacs-lsp-mode")
-     (origin
+      (version (git-version "8.0.1" revision commit))
-       (method git-fetch)
+      (source
-       (uri (git-reference
+       (origin
-             (url "https://github.com/emacs-lsp/lsp-mode")
+         (method git-fetch)
-             (commit version)))
+         (uri (git-reference
-       (file-name (git-file-name name version))
+               (url "https://github.com/emacs-lsp/lsp-mode")
-       (sha256
+               (commit commit)))
-        (base32 "1a6jc9sxf9b8fj9h8xlv5k546bkzsy8j5nj19cfama389z0bzcsl"))))
+         (file-name (git-file-name name version))
-    (build-system emacs-build-system)
+         (sha256
-    (arguments
+          (base32 "01csz4vr3fg1q2py45mxj5j8bkvckn3daam1jafb2gg9gjc9bp7z"))))
-     `(#:emacs ,emacs  ;need libxml support
+      (build-system emacs-build-system)
-       #:phases
+      (arguments
-       (modify-phases %standard-phases
+       `(#:emacs ,emacs                 ;need libxml support
-         (add-after 'unpack 'move-clients-libraries
+         #:phases
-           ;; Move all clients libraries at top-level, as is done, e.g., in
+         (modify-phases %standard-phases
-           ;; MELPA.
+           (add-after 'unpack 'move-clients-libraries
-           (lambda _
+             ;; Move all clients libraries at top-level, as is done, e.g., in
-             (for-each (lambda (f)
+             ;; MELPA.
-                         (install-file f "."))
+             (lambda _
-                       (find-files "clients/" "\\.el$")))))))
+               (for-each (lambda (f)
-    (propagated-inputs
+                           (install-file f "."))
-     (list emacs-dash
+                         (find-files "clients/" "\\.el$"))))
-           emacs-f
+           (add-before 'move-clients-libraries 'fix-patch-el-files
-           emacs-ht
+             ;; /bin/ksh is only used on macOS, which we don't support, so we
-           emacs-hydra
+             ;; don't want to add it as input.
-           emacs-markdown-mode
+             (lambda _
-           emacs-spinner))
+               (substitute* '("clients/lsp-csharp.el" "clients/lsp-fsharp.el")
-    (home-page "https://emacs-lsp.github.io/lsp-mode/")
+                 (("/bin/ksh") "ksh")))))))
-    (synopsis "Emacs client and library for the Language Server Protocol")
+      (propagated-inputs
-    (description
+       (list emacs-dash
-     "LSP mode is a client and library implementation for the Language Server
+             emacs-f
-Protocol.  This mode creates an IDE-like experience by providing optional
+             emacs-ht
-integration with other popular Emacs packages like Company, Flycheck, and
+             emacs-hydra
-Projectile.")
+             emacs-markdown-mode
-    (license license:gpl3+)))
+             emacs-spinner))
+      (home-page "https://emacs-lsp.github.io/lsp-mode/")
+      (synopsis "Emacs client and library for the Language Server Protocol")
+      (description
+       "LSP mode is a client and library implementation for the Language
+Server Protocol.  This mode creates an IDE-like experience by providing
+optional integration with other popular Emacs packages like Company, Flycheck,
+and Projectile.")
+      (license license:gpl3+))))
 
 (define-public emacs-lsp-treemacs
   (package