From bf921084b4a03aa53a806f792ea3b77ca8005114 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 16 Mar 2024 17:39:35 +0100 Subject: ; 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-floating.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'exwm-floating.el') 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)) -- cgit 1.4.1