From 9ac48ffd104797eb269aeb17742fa7a1991f0f04 Mon Sep 17 00:00:00 2001 From: Daiki 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,3 +1,7 @@ +2004-08-16 Daiki Ueno + + * riece-highlight.el (riece-highlight-server-match): Simplified. + 2004-08-16 Daiki Ueno * Riece: Version 1.0.2 released. 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) -- 2.25.1