From d36ec9e347d79fdcf33be7c2ff49ad92e120f87d Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 26 Aug 2003 05:23:25 +0000 Subject: [PATCH] Undo the last change. --- lisp/ChangeLog | 3 --- lisp/riece-display.el | 14 ++++++++------ 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f766099..79a6b03 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,5 @@ 2003-08-26 Daiki Ueno - * riece-display.el (riece-update-channel-list-buffer): Don't add - 'riece-identity property. - * riece-options.el (riece-addons): Enable riece-unread by default. * riece-highlight.el (riece-channel-list-current-face): New variable. diff --git a/lisp/riece-display.el b/lisp/riece-display.el index 752494b..2f22561 100644 --- a/lisp/riece-display.el +++ b/lisp/riece-display.el @@ -78,12 +78,14 @@ (if (car channels) (let ((point (point))) (insert (format "%2d:%c%s\n" index - (if (riece-identity-equal - (car channels) - riece-current-channel) - ?* - ?\ ) - (riece-format-identity (car channels)))))) + (if (riece-identity-equal + (car channels) + riece-current-channel) + ?* + ?\ ) + (riece-format-identity (car channels)))) + (put-text-property point (point) 'riece-identity + (car channels)))) (setq index (1+ index) channels (cdr channels)))))) -- 1.7.10.4