; 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.
This commit is contained in:
Daniel Mendler 2024-03-16 17:39:35 +01:00
parent 0ef8e04f27
commit bf921084b4
No known key found for this signature in database
GPG key ID: D88ADB2A2693CA43
2 changed files with 14 additions and 14 deletions

View file

@ -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))