From 123744759c43984496cbc52926c43090f15fba6e Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 8 Dec 2004 09:46:06 +0000 Subject: [PATCH] * test/test-riece-log.el (test-riece-log-delete-directory): Suppress file-name encoding. * test/test-riece-log.el (test-riece-log-display-message-function): New test case. --- lisp/ChangeLog | 3 +++ lisp/test/test-riece-log.el | 7 +++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c46faae..515fa51 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2004-12-08 Daiki Ueno + * test/test-riece-log.el (test-riece-log-delete-directory): + Suppress file-name encoding. + * riece-log.el (riece-log-get-directory): Fixed bug in riece-log-directory-map handling. diff --git a/lisp/test/test-riece-log.el b/lisp/test/test-riece-log.el index e4105a0..8f2cccc 100644 --- a/lisp/test/test-riece-log.el +++ b/lisp/test/test-riece-log.el @@ -3,7 +3,9 @@ (luna-define-class test-riece-log (lunit-test-case)) (defun test-riece-log-delete-directory (directory) - (let ((files (directory-files directory t nil t))) + (let (file-name-coding-system + default-file-name-coding-system + (files (directory-files directory t nil t))) (while files (if (file-directory-p (car files)) (unless (member (file-name-nondirectory (car files)) '("." "..")) @@ -139,7 +141,8 @@ (make-char 'japanese-jisx0208 36 57)) "") "a b c\n" nil t))) - (let (file-name-coding-system) + (let (file-name-coding-system + default-file-name-coding-system) (lunit-assert-2 case (file-directory-p -- 1.7.10.4