* 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-12-17  Daiki Ueno  <ueno@unixuser.org>
 
 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.
        * 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 (file)
--- 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-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
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index bba2e17..4398f8b 100644 (file)
--- 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
              (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))
                                  (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 (file)
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -114,6 +114,9 @@
 
 (defalias 'riece-cancel-timer 'delete-itimer)
 
 
 (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
 (provide 'riece-xemacs)
 
 ;;; riece-xemacs.el ends here