From 51e0bc8a82aeb62ed125c8fca90f8c1c51013d4e Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 13 Feb 2009 05:38:45 -0400 Subject: Set coding-system-for-read, as well as write --- lisp/ledger.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/ledger.el b/lisp/ledger.el index 525d0f61..c9ceb62e 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -1289,7 +1289,8 @@ This is done so that the last digit falls in COLUMN, which defaults to 52." (t (let ((buf (current-buffer))) (with-current-buffer buffer - (let ((coding-system-for-write 'utf-8)) + (let ((coding-system-for-write 'utf-8) + (coding-system-for-read 'utf-8)) (apply #'call-process-region (append (list (point-min) (point-max) ledger-binary-path ledger-delete-after -- cgit v1.2.3