From: bg66 Date: Fri, 10 Sep 2004 13:19:07 +0000 (+0000) Subject: riece-mini.el (riece-mini-display-message-function): Don't use cl macro. X-Git-Tag: riece-1_0_4~26 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7e07c5ce8903286bc12bac19363a5f5f2be9160d;p=elisp%2Friece.git 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 --- 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