mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Make more lambdas visible to the byte compiler

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

14
exwm-core.el
View file

@ -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 ()
,(lambda ()
(interactive)
(dolist (i ',value)
(exwm-input--fake-key i)))
(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 ()
,(lambda ()
(interactive)
(exwm-workspace-switch ,i))
(exwm-workspace-switch i))
(/= ,i exwm-workspace-current-index)])
(number-sequence 0 (1- (length exwm-workspace--list))))))))

4
exwm-floating.el
View file

@ -67,8 +67,8 @@ 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)
:type `(integer
:validate ,(lambda (widget)
(when (< (widget-value widget) 0)
(widget-put widget :error "Border width is at least 0")
widget)))