From bf921084b4a03aa53a806f792ea3b77ca8005114 Mon Sep 17 00:00:00 2001
From: Daniel Mendler <mail@daniel-mendler.de>
Date: Sat, 16 Mar 2024 17:39:35 +0100
Subject: [PATCH] ; Make more lambdas visible to the byte compiler

* exwm-core.el (exwm-mode-menu), exwm-floating.el (exwm-floating-border-width):
  Make lambdas visible to the byte compiler.
---
 exwm-core.el     | 18 +++++++++---------
 exwm-floating.el | 10 +++++-----
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/exwm-core.el b/exwm-core.el
index e65c5c6..a7fdfce 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -95,6 +95,8 @@ Here are some predefined candidates:
 (declare-function exwm-manage--kill-buffer-query-function "exwm-manage.el")
 (declare-function exwm-workspace-move-window "exwm-workspace.el"
                   (frame-or-index &optional id))
+(declare-function exwm-workspace-switch "exwm-workspace.el"
+                  (frame-or-index &optional force))
 
 (define-minor-mode exwm-debug
   "Debug-logging enabled if non-nil."
@@ -351,13 +353,11 @@ One of `line-mode' or `char-mode'.")
            (lambda (key value)
              (when (sequencep key)
                (setq result (append result
-                                    `([
-                                       ,(format "Send '%s'"
+                                    `([,(format "Send '%s'"
                                                 (key-description value))
-                                       (lambda ()
-                                         (interactive)
-                                         (dolist (i ',value)
-                                           (exwm-input--fake-key i)))
+                                       ,(lambda ()
+                                          (interactive)
+                                          (mapc #'exwm-input--fake-key value))
                                        :keys ,(key-description key)])))))
            exwm-input--simulation-keys)
           result)))
@@ -380,9 +380,9 @@ One of `line-mode' or `char-mode'.")
      ,(lambda (&rest _args)
         (mapcar (lambda (i)
                   `[,(format "Workspace %d" i)
-                    (lambda ()
-                      (interactive)
-                      (exwm-workspace-switch ,i))
+                    ,(lambda ()
+                       (interactive)
+                       (exwm-workspace-switch i))
                     (/= ,i exwm-workspace-current-index)])
                 (number-sequence 0 (1- (length exwm-workspace--list))))))))
 
diff --git a/exwm-floating.el b/exwm-floating.el
index 34d06a3..574a78f 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -67,11 +67,11 @@ This hook runs in the context of the corresponding buffer."
 
 (defcustom exwm-floating-border-width 1
   "Border width of floating windows."
-  :type '(integer
-          :validate (lambda (widget)
-                      (when (< (widget-value widget) 0)
-                        (widget-put widget :error "Border width is at least 0")
-                        widget)))
+  :type `(integer
+          :validate ,(lambda (widget)
+                       (when (< (widget-value widget) 0)
+                         (widget-put widget :error "Border width is at least 0")
+                         widget)))
   :initialize #'custom-initialize-default
   :set (lambda (symbol value)
          (let ((delta (- value exwm-floating-border-width))