- (setq lirc-current-context nil)
- (clrhash lirc-contexts)
- (lirc-start-process network)
- (lirc-send-msg (lirc-msg nil nil "USER" lirc-user-name 0 "*" lirc-full-name))
- (lirc-send-msg (lirc-msg nil nil "NICK" lirc-nick))))
+ (if (not (assoc network lirc-networks))
+ (lirc-display-error "Network '" network "' is unknown.")
+ (clrhash lirc-contexts)
+ (setq lirc-current-context nil)
+ (lirc-start-process network)
+ (lirc-send-msg (lirc-msg nil nil "USER" lirc-user-name 0 "*" lirc-full-name))
+ (lirc-send-msg (lirc-msg nil nil "NICK" lirc-nick)))))