- (lirc-display-notice "Left channel " lirc-current-channel)
- (setq lirc-current-channel nil)
- (lirc-del-channel (car (lirc-msg-params msg)))
- (lirc-render-prompt))
+ (let ((channel (car (lirc-msg-params msg))))
+ (lirc-display-notice "Left channel " channel)
+ (lirc-del-channel (car (lirc-msg-params msg)))
+ (when (equal lirc-current-channel channel)
+ (setq lirc-current-channel nil)
+ (lirc-render-prompt))))