- (let ((process (riece-start-server
- (riece-server-name-to-server server-name)
- server-name)))
- (with-current-buffer (process-buffer process)
- (setq riece-server-name server-name))
- (setq riece-server-process-alist
- (cons (cons server-name process)
- riece-server-process-alist))))
+ (if (assoc server-name riece-server-process-alist)
+ (error "%s is already opened" server-name)
+ (riece-open-server
+ (riece-server-name-to-server server-name)
+ server-name)))