riece-mini.el (riece-mini-display-message-function): Don't use cl macro.

(riece-mini-show-backlog): Follow the change above.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acef142..5d95a1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-09-10  OHASHI Akira  <bg66@koka-in.org>
 
+       * riece-mini.el (riece-mini-display-message-function): Don't use cl
+       macro.
+       (riece-mini-show-backlog): Follow the change above.
+       
        * riece-mini.el (riece-mini): New group.
        (riece-mini-backlog-size): New user option.
        (riece-mini-backlog-history): New internal variable.

diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el
index c18609b..fb676a9 100644 (file)
--- a/lisp/riece-mini.el
+++ b/lisp/riece-mini.el
@@ -81,10 +81,12 @@
     (let ((string (concat (format-time-string "%H:%M") " "
                          (riece-format-message message t))))
       (riece-mini-message-no-log "%s" string)
-      (when (>= (length riece-mini-backlog-history)
+      (while (>= (length riece-mini-backlog-history)
                riece-mini-backlog-size)
-       (pop riece-mini-backlog-history))
-      (push string riece-mini-backlog-history))))
+       (setq riece-mini-backlog-history
+             (cdr riece-mini-backlog-history)))
+      (setq riece-mini-backlog-history
+           (reverse (cons string (reverse riece-mini-backlog-history)))))))
 
 (defun riece-mini-send-message (arg)
   "Send message using minibuffer.
@@ -118,7 +120,7 @@ If twice (C-u C-u), then ask the channel."
     (when riece-mini-backlog-history
       (setq riece-mini-backlog-shown t)
       (riece-mini-message-no-log
-       (mapconcat 'identity (reverse riece-mini-backlog-history) "")))))
+       (mapconcat 'identity riece-mini-backlog-history "")))))
 
 (defun riece-mini-pre-command ()
   (when riece-mini-backlog-shown