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-misc.el
diff --git
a/lisp/riece-misc.el
b/lisp/riece-misc.el
index
bad8928
..
b269572
100644
(file)
--- a/
lisp/riece-misc.el
+++ b/
lisp/riece-misc.el
@@
-35,8
+35,8
@@
(defun riece-get-buffer-create (name)
(let ((buffer (get-buffer-create name)))
(defun riece-get-buffer-create (name)
(let ((buffer (get-buffer-create name)))
- (or (memq buffer riece-buffer-list)
- (push buffer riece-buffer-list))
+ (unless (memq buffer riece-buffer-list)
+ (setq riece-buffer-list (cons buffer riece-buffer-list)))
buffer))
(defun riece-insert (buffers string)
buffer))
(defun riece-insert (buffers string)
@@
-173,7
+173,7
@@
(mapatoms
(lambda (atom)
(unless (riece-channel-p (symbol-name atom))
(mapatoms
(lambda (atom)
(unless (riece-channel-p (symbol-name atom))
- (push (symbol-name atom) users)))
+ (setq users (cons (symbol-name atom) users))))
riece-obarray)
(if (member riece-real-nickname users)
users
riece-obarray)
(if (member riece-real-nickname users)
users