Fixed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a57c56d..8ec7cde 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,6 @@
 2004-12-07  Daiki Ueno  <ueno@unixuser.org>
 
 2004-12-07  Daiki Ueno  <ueno@unixuser.org>
 

-       * riece-log.el (riece-log-insert-log): Renamed from
+       * riece-log.el (riece-log-insert): Renamed from

        riece-log-flashback-1; simplified.
 
 2004-12-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
        riece-log-flashback-1; simplified.
 
 2004-12-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index adc766f..738b2a5 100644 (file)
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -166,7 +166,7 @@ If integer, flash back only this line numbers. t means all lines."
                                  riece-log-file-name-coding-system)))
   file-name)
 
                                  riece-log-file-name-coding-system)))
   file-name)
 

-(defun riece-log-insert-log (identity lines)
+(defun riece-log-insert (identity lines)

   "Insert logs for IDENTITY at most LINES.
 If LINES is t, insert today's logs entirely."
   (if (eq lines t)
   "Insert logs for IDENTITY at most LINES.
 If LINES is t, insert today's logs entirely."
   (if (eq lines t)


@@ -202,7 +202,7 @@ If LINES is t, insert today's logs entirely."
     (let (buffer-read-only
          (point (goto-char (point-max))))
       (insert (with-temp-buffer
     (let (buffer-read-only
          (point (goto-char (point-max))))
       (insert (with-temp-buffer

-               (riece-log-insert-log identity riece-log-flashback)
+               (riece-log-insert identity riece-log-flashback)

                (buffer-string)))
       (goto-char point)
       (while (re-search-forward
                (buffer-string)))
       (goto-char point)
       (while (re-search-forward