X-Git-Url: http://christophe.rhodes.io/gitweb/?p=iplayer-el.git;a=blobdiff_plain;f=iplayer.el;h=b134ccf6be43c4554cc180ab9a02a151fc186cb5;hp=a27450b6da1250ab823320641887dceb5dcd15ab;hb=ceba71290c00410efa51aeaaa543e2fa89a3cddc;hpb=95b13c36c85b1276b4d2eb198497f2249e6de8f4

diff --git a/iplayer.el b/iplayer.el
index a27450b..b134ccf 100644
--- a/iplayer.el
+++ b/iplayer.el
@@ -163,13 +163,19 @@
 
 Used in the `iplayer-preset' command.")
 
+(defun iplayer-frob-presets (presets)
+  (cond
+   ((version< emacs-version "24")
+    (mapcar (lambda (x) (cons (read-kbd-macro (car x)) (cdr x))) presets))
+   (t presets)))
+
 (define-iplayer-command iplayer-preset (&optional keys)
   "Switch display to a preset channel.
 
 The presets are defined in the variable `iplayer-presets'."
   (interactive)
   (let ((keys (or (and keys (concat keys)) (this-command-keys)))
-        (presets (mapcar (lambda (x) (cons (read-kbd-macro (car x)) (cdr x))) iplayer-presets)))
+        (presets (iplayer-frob-presets iplayer-presets)))
     (cond
      ((= (length keys) 1)
       (let ((channel (cdr (assoc keys presets))))