diff options
Diffstat (limited to 'lisp/ledger.el')
| -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)) |