Browse Source

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.
Jambunathan K 8 years ago
parent
commit
32cf8bf731
1 changed files with 7 additions and 3 deletions
  1. 7 3
      contrib/lisp/org-odt.el

+ 7 - 3
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))