diff options
| author | John Wiegley <johnw@newartisans.com> | 2009-02-13 05:02:37 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2009-02-13 05:02:37 -0400 |
| commit | 037dd0f716e82568b005a78ee4d79fce0b886af3 (patch) | |
| tree | 2c6ae2abe7fb49e6e35e8348086839f584c7f2f2 /lisp | |
| parent | 60019dc4b426a632688fd9eb9fa1ae970fadc432 (diff) | |
| download | ledger-037dd0f716e82568b005a78ee4d79fce0b886af3.tar.gz ledger-037dd0f716e82568b005a78ee4d79fce0b886af3.tar.bz2 ledger-037dd0f716e82568b005a78ee4d79fce0b886af3.zip | |
Set coding-system-for-write when talking to ledger
Otherwise, calling out to Ledger uses whatever the user's default
happens to be, such as iso-latin-1. This caused problems for one user
who had euro symbols encoding in utf-8 in his data file.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/ledger.el b/lisp/ledger.el index d5b04712..525d0f61 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -1289,11 +1289,12 @@ This is done so that the last digit falls in COLUMN, which defaults to 52." (t (let ((buf (current-buffer))) (with-current-buffer buffer - (apply #'call-process-region - (append (list (point-min) (point-max) - ledger-binary-path ledger-delete-after - buf nil "-f" "-") - args))))))) + (let ((coding-system-for-write 'utf-8)) + (apply #'call-process-region + (append (list (point-min) (point-max) + ledger-binary-path ledger-delete-after + buf nil "-f" "-") + args)))))))) (defun ledger-run-ledger-and-delete (buffer &rest args) (let ((ledger-delete-after t)) |