* riece-log.el (riece-log-flashback): Use
authorueno <ueno>
Wed, 17 Dec 2003 02:05:08 +0000 (02:05 +0000)
committerueno <ueno>
Wed, 17 Dec 2003 02:05:08 +0000 (02:05 +0000)
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.

lisp/ChangeLog
lisp/riece-emacs.el
lisp/riece-log.el
lisp/riece-xemacs.el

index 64bd3e8..7405df1 100644 (file)
@@ -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.
index 825ee57..0e49815 100644 (file)
@@ -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
index bba2e17..4398f8b 100644 (file)
@@ -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))
index 1bab726..b1d7349 100644 (file)
 
 (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