((= (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)
(defun iplayer ()
(interactive)
+ (setq mode-line-process nil)
(display-iplayer-tree (get-iplayer-tree)))
(provide 'iplayer)