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-manage--kill-buffer-query-function "exwm-manage.el")
(declare-function exwm-workspace-move-window "exwm-workspace.el" (declare-function exwm-workspace-move-window "exwm-workspace.el"
(frame-or-index &optional id)) (frame-or-index &optional id))
(declare-function exwm-workspace-switch "exwm-workspace.el"
(frame-or-index &optional force))
(define-minor-mode exwm-debug (define-minor-mode exwm-debug
"Debug-logging enabled if non-nil." "Debug-logging enabled if non-nil."
@ -351,13 +353,11 @@ One of `line-mode' or `char-mode'.")
(lambda (key value) (lambda (key value)
(when (sequencep key) (when (sequencep key)
(setq result (append result (setq result (append result
`([ `([,(format "Send '%s'"
,(format "Send '%s'"
(key-description value)) (key-description value))
(lambda () ,(lambda ()
(interactive) (interactive)
(dolist (i ',value) (mapc #'exwm-input--fake-key value))
(exwm-input--fake-key i)))
:keys ,(key-description key)]))))) :keys ,(key-description key)])))))
exwm-input--simulation-keys) exwm-input--simulation-keys)
result))) result)))
@ -380,9 +380,9 @@ One of `line-mode' or `char-mode'.")
,(lambda (&rest _args) ,(lambda (&rest _args)
(mapcar (lambda (i) (mapcar (lambda (i)
`[,(format "Workspace %d" i) `[,(format "Workspace %d" i)
(lambda () ,(lambda ()
(interactive) (interactive)
(exwm-workspace-switch ,i)) (exwm-workspace-switch i))
(/= ,i exwm-workspace-current-index)]) (/= ,i exwm-workspace-current-index)])
(number-sequence 0 (1- (length exwm-workspace--list)))))))) (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 (defcustom exwm-floating-border-width 1
"Border width of floating windows." "Border width of floating windows."
:type '(integer :type `(integer
:validate (lambda (widget) :validate ,(lambda (widget)
(when (< (widget-value widget) 0) (when (< (widget-value widget) 0)
(widget-put widget :error "Border width is at least 0") (widget-put widget :error "Border width is at least 0")
widget))) widget)))