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-core.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-core.el')
| -rw-r--r-- | exwm-core.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/exwm-core.el b/exwm-core.el index e65c5c662f63..a7fdfce71097 100644 --- a/exwm-core.el +++ b/exwm-core.el @@ -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 () - (interactive) - (dolist (i ',value) - (exwm-input--fake-key i))) + ,(lambda () + (interactive) + (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 () - (interactive) - (exwm-workspace-switch ,i)) + ,(lambda () + (interactive) + (exwm-workspace-switch i)) (/= ,i exwm-workspace-current-index)]) (number-sequence 0 (1- (length exwm-workspace--list)))))))) |