about summary refs log tree commit diff
path: root/exwm-floating.el
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2024-03-16T16·39+0100
committerDaniel Mendler <mail@daniel-mendler.de>2024-03-16T16·40+0100
commitbf921084b4a03aa53a806f792ea3b77ca8005114 (patch)
tree826b73c8da67b08f07412ce76a72c106920206ca /exwm-floating.el
parent0ef8e04f27bb975f8cf41e438b63e9f90c8090d6 (diff)
; 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.
Diffstat (limited to 'exwm-floating.el')
-rw-r--r--exwm-floating.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/exwm-floating.el b/exwm-floating.el
index 34d06a30db09..574a78f01562 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))