From dea2aed0b509734ec4e1cd163ac2a4f013000da2 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 11 Jun 2010 16:03:50 -0400 Subject: Untabified all source files --- lisp/ldg-exec.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'lisp/ldg-exec.el') diff --git a/lisp/ldg-exec.el b/lisp/ldg-exec.el index 3881f8e9..bf3565b4 100644 --- a/lisp/ldg-exec.el +++ b/lisp/ldg-exec.el @@ -12,15 +12,15 @@ (if (null ledger-binary-path) (error "The variable `ledger-binary-path' has not been set")) (let ((buf (or input-buffer (current-buffer))) - (outbuf (or output-buffer - (generate-new-buffer " *ledger-tmp*")))) + (outbuf (or output-buffer + (generate-new-buffer " *ledger-tmp*")))) (with-current-buffer buf (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 nil outbuf nil "-f" "-") - args))) + (coding-system-for-read 'utf-8)) + (apply #'call-process-region + (append (list (point-min) (point-max) + ledger-binary-path nil outbuf nil "-f" "-") + args))) outbuf))) (defun ledger-exec-read (&optional input-buffer &rest args) @@ -28,7 +28,7 @@ (apply #'ledger-exec-ledger input-buffer nil "emacs" args) (goto-char (point-min)) (prog1 - (read (current-buffer)) + (read (current-buffer)) (kill-buffer (current-buffer))))) (provide 'ldg-exec) -- cgit v1.2.3