From: Daiki Ueno Date: Tue, 7 Dec 2004 09:51:23 +0000 (+0000) Subject: Fixed. X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=f6991bf026bc65cdcf82ceb7f2071806d600f25c Fixed. --- 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