diff options
| author | John Wiegley <johnw@newartisans.com> | 2009-02-13 05:38:45 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2009-02-13 05:38:45 -0400 |
| commit | 51e0bc8a82aeb62ed125c8fca90f8c1c51013d4e (patch) | |
| tree | d98b62b617361407811133efdaf672ca0b489399 | |
| parent | 10ba30ddfd8f4b9ee31826c0d0caa33056576bd5 (diff) | |
| download | fork-ledger-51e0bc8a82aeb62ed125c8fca90f8c1c51013d4e.tar.gz fork-ledger-51e0bc8a82aeb62ed125c8fca90f8c1c51013d4e.tar.bz2 fork-ledger-51e0bc8a82aeb62ed125c8fca90f8c1c51013d4e.zip | |
Set coding-system-for-read, as well as write
| -rw-r--r-- | lisp/ledger.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |