(interactive "p")
(let ((keys (this-command-keys))
(presets (mapcar (lambda (x) (cons (read-kbd-macro (car x)) (cdr x))) iplayer-presets)))
(interactive "p")
(let ((keys (this-command-keys))
(presets (mapcar (lambda (x) (cons (read-kbd-macro (car x)) (cdr x))) iplayer-presets)))