projects
/
elisp
/
riece.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Makefile.am (elc): Renamed from "compile".
[elisp/riece.git]
/
lisp
/
riece-commands.el
diff --git
a/lisp/riece-commands.el
b/lisp/riece-commands.el
index
7ed3322
..
74ab97f
100644
(file)
--- a/
lisp/riece-commands.el
+++ b/
lisp/riece-commands.el
@@
-254,7
+254,8
@@
(list users current-prefix-arg)))
(let (group)
(while users
(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
(if (or (= (length group) 3)
(null users))
(riece-send-string
@@
-285,7
+286,8
@@
(list users current-prefix-arg)))
(let (group)
(while users
(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
(if (or (= (length group) 3)
(null users))
(riece-send-string
@@
-523,7
+525,9
@@
If prefix argument ARG is non-nil, toggle frozen status."
server-name)))
(with-current-buffer (process-buffer process)
(setq riece-server-name server-name))
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
(defun riece-command-close-server (server-name &optional message)
(interactive