From 598a79cca3521471571db43623ad2cfb9df959a4 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 16 Aug 2004 12:50:21 +0000 Subject: [PATCH] * riece-highlight.el (riece-highlight-server-match): Simplified. --- lisp/ChangeLog | 4 ++++ lisp/riece-highlight.el | 7 ++----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 128661f..7d62294 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-08-16 Daiki Ueno + * riece-highlight.el (riece-highlight-server-match): Simplified. + +2004-08-16 Daiki Ueno + * Riece: Version 1.0.2 released. * riece-version.el (riece-version-number): Bump up to 1.0.2. diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el index b9dd902..6b3dbb5 100644 --- a/lisp/riece-highlight.el +++ b/lisp/riece-highlight.el @@ -203,11 +203,8 @@ "Highlight IRC buffers") (defun riece-highlight-server-match (limit) - (let ((match-data (match-data))) - (if (re-search-forward "(from [^)]+)$" limit t) - (if (get-text-property (match-beginning 0) 'riece-server-name) - t - (store-match-data match-data))))) + (and (re-search-forward "(from [^)]+)$" limit t) + (get-text-property (match-beginning 0) 'riece-server-name))) (defun riece-highlight-setup-dialogue () (make-local-variable 'font-lock-defaults) -- 1.7.10.4