"-open-server")))
(unless function
(error "\"%S\" is not supported" protocol))
- (setq process (funcall function server server-name))
+ (condition-case nil
+ (setq process (funcall function server server-name))
+ (error))
(when process
(with-current-buffer (process-buffer process)
(make-local-variable 'riece-protocol)