From 0d0406f27b64461d8428c19e43c4dbad0e37bdfd Mon Sep 17 00:00:00 2001 From: OHASHI Akira Date: Fri, 10 Sep 2004 13:19:06 +0000 Subject: [PATCH] riece-mini.el (riece-mini-display-message-function): Don't use cl macro. (riece-mini-show-backlog): Follow the change above. --- lisp/ChangeLog | 4 ++++ lisp/riece-mini.el | 10 ++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index acef142..5d95a1b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-09-10 OHASHI Akira + * 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 --- 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 -- 2.25.1