X-Git-Url: http://christophe.rhodes.io/gitweb/?p=iplayer-el.git;a=blobdiff_plain;f=iplayer.el;h=68d3a01190c95b22d37211623fa80b3168721478;hp=47ec879760498c184a98e8207e0b1a2486be8ec6;hb=d78f76fee563d2fd51a4ec613fe2d9d955e8877c;hpb=4477c6b3556d932de04a34aa3430523355460fdc

diff --git a/iplayer.el b/iplayer.el
index 47ec879..68d3a01 100644
--- a/iplayer.el
+++ b/iplayer.el
@@ -60,12 +60,13 @@
   (interactive "p")
   (let ((keys (this-command-keys))
         (presets (mapcar (lambda (x) (cons (read-kbd-macro (car x)) (cdr x))) iplayer-presets)))
-    (message "%s" (this-command-keys))
     (cond
      ((= (length keys) 1)
       (let ((channel (cdr (assoc keys presets))))
         (if channel
-            (iplayer-channel (format "^%s$" channel))
+            (progn
+              (setq mode-line-process (format "[%s]" channel))
+              (iplayer-channel (format "^%s$" channel)))
           (error "no preset for key %s" keys)))))))
 
 (defun iplayer-channel (channel)
@@ -102,6 +103,7 @@
 
 (defun iplayer ()
   (interactive)
+  (setq mode-line-process nil)
   (display-iplayer-tree (get-iplayer-tree)))
 
 (provide 'iplayer)