From 64d69fb52d96f0a819505210f56025be36221cdb Mon Sep 17 00:00:00 2001 From: bg66 Date: Sat, 11 Sep 2004 06:04:40 +0000 Subject: [PATCH] * riece-mini.el (riece-mini-display-message-function): Remove properties and "\n" of the end. (riece-mini-show-backlog): Follow the change above. --- lisp/ChangeLog | 12 +++++++++--- lisp/riece-mini.el | 6 ++++-- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5d95a1b..7932abc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,9 +1,15 @@ +2004-09-11 OHASHI Akira + + * riece-mini.el (riece-mini-display-message-function): Remove + properties and "\n" of the end. + (riece-mini-show-backlog): Follow the change above. + 2004-09-10 OHASHI Akira - * riece-mini.el (riece-mini-display-message-function): Don't use cl - macro. + * 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 fb676a9..a96c7ae 100644 --- a/lisp/riece-mini.el +++ b/lisp/riece-mini.el @@ -80,9 +80,11 @@ (setq riece-mini-last-channel (riece-message-target message))) (let ((string (concat (format-time-string "%H:%M") " " (riece-format-message message t)))) + (when (string-match "\\(.*\\)$" string) + (setq string (riece-match-string-no-properties 1 string))) (riece-mini-message-no-log "%s" string) (while (>= (length riece-mini-backlog-history) - riece-mini-backlog-size) + riece-mini-backlog-size) (setq riece-mini-backlog-history (cdr riece-mini-backlog-history))) (setq riece-mini-backlog-history @@ -120,7 +122,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 riece-mini-backlog-history ""))))) + (mapconcat 'identity riece-mini-backlog-history "\n"))))) (defun riece-mini-pre-command () (when riece-mini-backlog-shown -- 1.7.10.4