(list users current-prefix-arg)))
(let (group)
(while users
- (push (pop users) group)
+ (setq group (cons (car users) group)
+ users (cdr users))
(if (or (= (length group) 3)
(null users))
(riece-send-string
(list users current-prefix-arg)))
(let (group)
(while users
- (push (pop users) group)
+ (setq group (cons (car users) group)
+ users (cdr users))
(if (or (= (length group) 3)
(null users))
(riece-send-string
server-name)))
(with-current-buffer (process-buffer process)
(setq riece-server-name server-name))
- (push (cons server-name process) riece-server-process-alist)))
+ (setq riece-server-process-alist
+ (cons (cons server-name process)
+ riece-server-process-alist))))
(defun riece-command-close-server (server-name &optional message)
(interactive