about summary refs log tree commit diff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2019-03-17T14·47-0400
committerStefan Monnier <monnier@iro.umontreal.ca>2019-03-17T14·47-0400
commit81e52263a74d1fcd322249f1674729597d607a76 (patch)
tree105b1a99969ea846023085655cf9f46d60a43bba
parent397ca5497e82168b0de1cac9a2204dc695b1de5a (diff)
* exwm-workspace.el: Use closures rather than `(lambda ...)
-rw-r--r--exwm-workspace.el18
1 files changed, 9 insertions, 9 deletions
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)