From 71d78dc24436897c0ae10b958e56e184a9d2b09e Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 7 Dec 2004 12:57:53 +0000 Subject: [PATCH] (riece-log-get-directory): .log -> .txt --- lisp/ChangeLog | 1 + lisp/riece-log.el | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) 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. ] 2004-12-07 TAKAHASHI Kaoru 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)) -- 2.25.1