From 6479fe73a1253ca586d797a5296f5bdc0f0c8d71 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 7 Dec 2004 09:51:23 +0000 Subject: [PATCH] Fixed. --- lisp/ChangeLog | 2 +- lisp/riece-log.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a57c56d..8ec7cde 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,6 @@ 2004-12-07 Daiki Ueno - * 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 diff --git a/lisp/riece-log.el b/lisp/riece-log.el index adc766f..738b2a5 100644 --- 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) -(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) @@ -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 - (riece-log-insert-log identity riece-log-flashback) + (riece-log-insert identity riece-log-flashback) (buffer-string))) (goto-char point) (while (re-search-forward -- 1.7.10.4