From 7a6bbe7e9076a455c50a9ca5c6714401811edca6 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 12 Aug 2005 07:26:21 +0000 Subject: [PATCH] Use get-language-info to get the default coding-system. --- lisp/riece-log.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/riece-log.el b/lisp/riece-log.el index cbdad44..e1c0a74 100644 --- 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 - (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 @@ -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) - (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) -- 1.7.10.4