From: ueno <ueno>
Date: Wed, 17 Dec 2003 02:05:08 +0000 (+0000)
Subject: * riece-log.el (riece-log-flashback): Use
X-Git-Tag: riece-0_1_7~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=93d36d14915e0b8c678e0ab7f4708851a38bd304;p=elisp%2Friece.git

* riece-log.el (riece-log-flashback): Use
riece-match-string-no-properties instead of match-string-no-properties.
* riece-xemacs.el (riece-match-string-no-properties): New function.
* riece-emacs.el (riece-match-string-no-properties): New alias.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64bd3e8..7405df1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-12-17  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-log.el (riece-log-flashback): Use
+	riece-match-string-no-properties instead of match-string-no-properties.
+	* riece-xemacs.el (riece-match-string-no-properties): New function.
+	* riece-emacs.el (riece-match-string-no-properties): New alias.
+
 	* riece-identity.el: Don't require 'riece-compat.
 	(riece-identity-prefix-case-table): Abolish.
 	(riece-identity-prefix-case-pair-alist): New constant.
diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 825ee57..0e49815 100644
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -89,6 +89,8 @@
 (defalias 'riece-run-with-idle-timer 'run-with-idle-timer)
 (defalias 'riece-cancel-timer 'cancel-timer)
 
+(defalias 'riece-match-string-no-properties 'match-string-no-properties)
+
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index bba2e17..4398f8b 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -120,7 +120,7 @@ If integer, flash back only this line numbers. t means all lines."
 	      (put-text-property (match-beginning 1) (match-end 1)
 				 'riece-identity
 				 (riece-make-identity
-				  (match-string-no-properties 1)
+				  (riece-match-string-no-properties 1)
 				  (riece-identity-server identity))))
 	    (if (memq 'riece-button riece-addons)
 		(riece-button-update-buffer))
diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 1bab726..b1d7349 100644
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -114,6 +114,9 @@
 
 (defalias 'riece-cancel-timer 'delete-itimer)
 
+(defun riece-match-string-no-properties (number &optional string)
+  (format "%s" (match-string number string)))
+
 (provide 'riece-xemacs)
 
 ;;; riece-xemacs.el ends here