From 32cf8bf731b7d4852b1dbe8b1572206e9c6a9396 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Mon, 26 Sep 2011 00:15:53 +0530 Subject: [PATCH] org-odt.el: When zip command fails, log its output as a message * contrib/lisp/org-odt.el (org-odt-save-as-outfile): When the zip command fails, spit out the output it generates to "*Messages*" buffer. --- contrib/lisp/org-odt.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/org-odt.el b/contrib/lisp/org-odt.el index 792ca2cea..4db2dc333 100644 --- a/contrib/lisp/org-odt.el +++ b/contrib/lisp/org-odt.el @@ -1736,14 +1736,18 @@ visually." ;; FIXME: If the file is locked this throws a cryptic error (delete-file target)) - (let ((coding-system-for-write 'no-conversion) exitcode) + (let ((coding-system-for-write 'no-conversion) exitcode err-string) (message "Creating odt file...") (mapc (lambda (cmd) (message "Running %s" (mapconcat 'identity cmd " ")) - (setq exitcode - (apply 'call-process (car cmd) nil nil nil (cdr cmd))) + (setq err-string + (with-output-to-string + (setq exitcode + (apply 'call-process (car cmd) + nil standard-output nil (cdr cmd))))) (or (zerop exitcode) + (ignore (message "%s" err-string)) (error "Unable to create odt file (%S)" exitcode))) cmds))