projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* test/test-riece-log.el
[riece]
/
lisp
/
test
/
test-riece-log.el
diff --git
a/lisp/test/test-riece-log.el
b/lisp/test/test-riece-log.el
index
e4105a0
..
98a3c05
100644
(file)
--- 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)
(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)) '("." ".."))
(while files
(if (file-directory-p (car files))
(unless (member (file-name-nondirectory (car files)) '("." ".."))
@@
-129,7
+131,7
@@
(riece-log-enabled t)
riece-log-directory-map
(riece-server-process-alist
(riece-log-enabled t)
riece-log-directory-map
(riece-server-process-alist
- (list (cons "" (start-process "" (current-buffer) "
yes
")))))
+ (list (cons "" (start-process "" (current-buffer) "
true
")))))
(riece-log-display-message-function
(riece-make-message
(riece-make-identity "ueno" "")
(riece-log-display-message-function
(riece-make-message
(riece-make-identity "ueno" "")
@@
-139,7
+141,8
@@
(make-char 'japanese-jisx0208 36 57))
"")
"a b c\n" nil t)))
(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
(lunit-assert-2
case
(file-directory-p