From: ueno <ueno>
Date: Tue, 7 Dec 2004 12:57:53 +0000 (+0000)
Subject: (riece-log-get-directory): .log -> .txt
X-Git-Tag: riece-1_0_7~111
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e820fcf5ebf02435db9addd530852835ea622826;p=elisp%2Friece.git

(riece-log-get-directory): .log -> .txt
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a363641..56e8aed 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,7 @@
 	riece-log-flashback-1; simplified.
 	(riece-log-get-files): Check existence of directory.
 	(riece-log-get-directory): New implementation.
+	[cf. <Liece:00396>]
 
 2004-12-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 3f2c9bc..dd90a45 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -90,7 +90,7 @@ If integer, flash back only this line numbers. t means all lines."
 
 (defun riece-log-get-file (identity)
   (expand-file-name
-   (concat (format-time-string "%Y%m%d") ".log")
+   (concat (format-time-string "%Y%m%d") ".txt")
    (riece-log-get-directory identity)))
 
 (defun riece-log-get-files (identity)
@@ -99,7 +99,7 @@ If integer, flash back only this line numbers. t means all lines."
 	(nreverse (sort (directory-files directory t
 			 (concat "^"
 				 (riece-make-interval-regexp "[0-9]" 8)
-				 "\\.log$")
+				 "\\.txt$")
 			 t)
 		  #'string-lessp)))))
 
@@ -163,7 +163,7 @@ If LINES is t, insert today's logs entirely."
       (while (and (< lines 0) files)
 	(if (and (file-exists-p (car files))
 		 (string-match (concat "\\([0-9][0-9][0-9][0-9]\\)"
-				       "\\([0-9][0-9]\\)\\([0-9][0-9]\\).log$")
+				       "\\([0-9][0-9]\\)\\([0-9][0-9]\\).txt$")
 			       (car files)))
 	    (save-restriction
 	      (narrow-to-region (point) (point))