From 81e52263a74d1fcd322249f1674729597d607a76 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 17 Mar 2019 10:47:28 -0400 Subject: * exwm-workspace.el: Use closures rather than `(lambda ...) --- exwm-workspace.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'exwm-workspace.el') diff --git a/exwm-workspace.el b/exwm-workspace.el index f6b8fbac06e7..cca4ed8c431c 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -176,9 +176,9 @@ NIL if FRAME is not a workspace" (= (length key) 1) (<= 0 (elt key 0) 127)) (define-key map key - `(lambda () - (interactive) - (exwm-workspace--switch-map-select-nth ,i))))))) + (lambda () + (interactive) + (exwm-workspace--switch-map-select-nth i))))))) (define-key map "\C-a" (lambda () (interactive) (goto-history-element 1))) (define-key map "\C-e" (lambda () (interactive) @@ -497,17 +497,17 @@ PREFIX-DIGITS is a list of the digits introduced so far." ;; Go ahead if there are enough digits to select any workspace. (set-transient-map (let ((map (make-sparse-keymap)) - (cmd `(lambda () + (cmd (let ((digits (cons d prefix-digits))) + (lambda () (interactive) - (exwm-workspace--switch-map-nth-prefix - ',(cons d prefix-digits))))) + (exwm-workspace--switch-map-nth-prefix digits))))) (dotimes (i 10) (define-key map (int-to-string i) cmd)) ;; Accept (define-key map [return] - `(lambda () - (interactive) - (exwm-workspace--switch-map-select-nth ,n))) + (lambda () + (interactive) + (exwm-workspace--switch-map-select-nth n))) map))))) (defun exwm-workspace--switch-map-select-nth (n) -- cgit 1.4.1