From df7530ff260ba989e9661cfb23355562658e88db Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 12 Aug 2005 07:30:34 +0000 Subject: [PATCH] Fixed. --- lisp/riece-log.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/riece-log.el b/lisp/riece-log.el index e1c0a74..70a87b0 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -98,15 +98,15 @@ 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 - (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 - default-file-name-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 + default-file-name-coding-system) (unless (file-directory-p (file-name-directory file)) (make-directory (file-name-directory file) t)) (write-region (concat (format-time-string "%H:%M") " " -- 1.7.10.4