From ce0e94169085bbb6eb842bc0cd2a3d416b63791f Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 12 Dec 2004 02:15:03 +0000 Subject: [PATCH] * riece-log.el (riece-log-flashback): Fixed regexp. --- lisp/ChangeLog | 2 ++ lisp/riece-log.el | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0f1618..40505a2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2004-12-12 Daiki Ueno + * riece-log.el (riece-log-flashback): Fixed regexp. + * riece-menu.el (riece-menu-items): Add "Next Channel" and "Previous Channel". diff --git a/lisp/riece-log.el b/lisp/riece-log.el index 6d882fb..8c37673 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -217,8 +217,10 @@ If LINES is t, insert today's logs entirely." (buffer-string))) (goto-char point) (while (re-search-forward - "^[0-9][0-9]:[0-9][0-9] [<>]\\([^<>]+\\)[<>] " nil t) - (put-text-property (match-beginning 1) (match-end 1) + (concat "^" riece-time-prefix-regexp + "\\(<[^>]+>\\|>[^<]+<\\|([^)]+)\\|{[^}]+}\\|=[^=]+=\\)") + nil t) + (put-text-property (1+ (match-beginning 1)) (1- (match-end 1)) 'riece-identity (riece-make-identity (riece-match-string-no-properties 1) -- 1.7.10.4