* Makefile.am (elc): Renamed from "compile".

[elisp/riece.git] / lisp / riece-display.el

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 65de48d..be5934c 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -214,11 +214,15 @@
     (unless (riece-identity-assoc-no-server
             identity riece-channel-buffer-alist)
       (let ((buffer (riece-channel-buffer-create identity)))
-       (push (cons identity buffer) riece-channel-buffer-alist)))
+       (setq riece-channel-buffer-alist
+             (cons (cons identity buffer)
+                   riece-channel-buffer-alist))))
     (unless (riece-identity-assoc-no-server
             identity riece-user-list-buffer-alist)
       (let ((buffer (riece-user-list-buffer-create identity)))
-       (push (cons identity buffer) riece-user-list-buffer-alist)))))
+       (setq riece-user-list-buffer-alist
+             (cons (cons identity buffer)
+                   riece-user-list-buffer-alist))))))
 
 (defun riece-switch-to-nearest-channel (pointer)
   (let ((start riece-current-channels)