gnu: emacs-exwm: Remove broken defun in emacs 31.

This function errors in ‘make-autoloads’.

* gnu/packages/emacs-xyz.scm (emacs-exwm)[arguments]
<#:phases>: Add ‘delete-exwm-floating-toggle-floating’.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>

1 files changed, 12 insertions, 0 deletions

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index a5f391a566e..992598fb5f8 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -25920,6 +25920,18 @@ It should enable you to implement low-level X11 applications.")
       #:tests? #f                       ;No test suite.
       #:phases
       #~(modify-phases %standard-phases
+          (add-after 'unpack 'delete-exwm-floating-toggle-floating
+            (lambda _
+              (emacs-batch-edit-file "exwm-floating.el"
+                `(progn (goto-char (point-min))
+                        (re-search-forward
+                         "exwm-floating-toggle-floating")
+                        (beginning-of-line)
+                        (kill-sexp)
+                        (next-line -1)
+                        (beginning-of-line)
+                        (kill-line)
+                        (basic-save-buffer)))))
           (add-after 'build 'install-xsession
             (lambda* (#:key inputs #:allow-other-keys)
               (let* ((xsessions (string-append #$output "/share/xsessions"))