From 12ccdd0a843e797a64c6b8a1e00d42f31b4263c5 Mon Sep 17 00:00:00 2001 From: bg66 Date: Sun, 12 Oct 2008 16:03:44 +0000 Subject: [PATCH] (riece-mini-show-backlog): Fix for multibyte characters. --- lisp/ChangeLog | 5 +++++ lisp/riece-mini.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9799954..9dfc800 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-10-13 OHASHI Akira + + * riece-mini.el (riece-mini-show-backlog): Fix for multibyte + characters. + 2008-09-08 Daiki Ueno * riece-notify.el: New add-on. diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el index f9f7587..da62089 100644 --- a/lisp/riece-mini.el +++ b/lisp/riece-mini.el @@ -123,7 +123,7 @@ If twice (C-u C-u), then ask the channel." (let ((height (1+ riece-mini-backlog-size))) (mapc #'(lambda (string) (setq height (+ height - (/ (length string) (window-width))))) + (/ (string-width string) (window-width))))) riece-mini-backlog-history) (let ((max-mini-window-height height) (resize-mini-windows t)) -- 1.7.10.4