From 5864e1d131a6ec12c363cccc16509d1212fdf8fc Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Fri, 10 Dec 2010 15:05:56 +0900 Subject: [PATCH] Don't append coding-system name to filename when coding-system is nil. --- lisp/ChangeLog | 5 +++++ lisp/riece-log.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4687f71..ead7cae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-12-10 Daiki Ueno + + * riece-log.el (riece-log-make-file-name): Don't append + coding-system name to the filename when coding-system is nil. + 2010-10-15 Daiki Ueno * riece-ctlseq.el (riece-ctlseq-put-attributes): Fix typo. diff --git a/lisp/riece-log.el b/lisp/riece-log.el index 0938456..86b285c 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -111,7 +111,7 @@ 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 (if (featurep 'mule) + (expand-file-name (if (and (featurep 'mule) coding-system) (format "%s.txt.%s" (format-time-string "%Y%m%d") coding-system) -- 2.25.1