Size: a a a
PG
(let (result)
(while bindings
(push `(define-key ,map ,(pop bindings) ,(pop bindings))
result))
(nreverse result))DL
(let (result)
(while bindings
(push `(define-key ,map ,(pop bindings) ,(pop bindings))
result))
(nreverse result))VL
PG
DL
VL
(let (result)
(while bindings
(push `(define-key ,map ,(pop bindings) ,(pop bindings))
result))
(nreverse result))(cl-loop for (key cmd) on bindings by #'cddr
collect `(define-key ,map ,key ,cmd))
VL
VL
VL
VL
VL
DL
(-> bindings
(into {})
(mapcat (fn [[k v]]
`(define-key ,map k v))))
VL
VL
(-> bindings
(into {})
(mapcat (fn [[k v]]
`(define-key ,map k v))))
DL
VL
VL
VL