projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3f35b38
)
Use get-language-info to get the default coding-system.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 12 Aug 2005 07:26:21 +0000
(07:26 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 12 Aug 2005 07:26:21 +0000
(07:26 +0000)
lisp/riece-log.el
patch
|
blob
|
history
diff --git
a/lisp/riece-log.el
b/lisp/riece-log.el
index
cbdad44
..
e1c0a74
100644
(file)
--- a/
lisp/riece-log.el
+++ b/
lisp/riece-log.el
@@
-98,8
+98,11
@@
It is created if there is at least one instance of Emacs running riece-log.")
(defun riece-log-display-message-function (message)
(if riece-log-enabled
(defun riece-log-display-message-function (message)
(if riece-log-enabled
- (let ((coding-system-for-write (or riece-log-coding-system
- default-buffer-file-coding-system))
+ (let ((coding-system-for-write
+ (if (featurep 'mule)
+ (or riece-log-coding-system
+ (car (get-language-info current-language-environment
+ 'coding-system)))))
(file (riece-log-make-file-name (riece-message-target message)
coding-system-for-write))
file-name-coding-system
(file (riece-log-make-file-name (riece-message-target message)
coding-system-for-write))
file-name-coding-system
@@
-112,9
+115,12
@@
It is created if there is at least one instance of Emacs running riece-log.")
riece-log-lock-file))))
(defun riece-log-make-file-name (identity coding-system)
riece-log-lock-file))))
(defun riece-log-make-file-name (identity coding-system)
- (expand-file-name (format "%s.txt.%s"
- (format-time-string "%Y%m%d")
- coding-system)
+ (expand-file-name (if (featurep 'mule)
+ (format "%s.txt.%s"
+ (format-time-string "%Y%m%d")
+ coding-system)
+ (format "%s.txt"
+ (format-time-string "%Y%m%d")))
(riece-log-directory identity)))
(defun riece-log-list-files (identity time)
(riece-log-directory identity)))
(defun riece-log-list-files (identity time)