diff options
author | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-16T16·39+0100 |
---|---|---|
committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-03-16T16·40+0100 |
commit | bf921084b4a03aa53a806f792ea3b77ca8005114 (patch) | |
tree | 826b73c8da67b08f07412ce76a72c106920206ca /exwm-floating.el | |
parent | 0ef8e04f27bb975f8cf41e438b63e9f90c8090d6 (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.el | 10 |
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)) |