add exit check for synchronous export

emacsorphanage · Jul 23, 2024 · e5f2fa4 · e5f2fa4
1 parent c539038
commit e5f2fa4
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/ox-pandoc.el b/ox-pandoc.el
@@ -1957,7 +1957,11 @@ when the process completes."
             ,(expand-file-name input-file))))
     (message "Running pandoc with args: %s" args)
     (if noninteractive
-      (apply 'call-process `(,org-pandoc-command nil nil nil ,@args))
+      (let ((exit-status
+	     (apply 'call-process `(,org-pandoc-command nil nil nil ,@args))))
+	(if (= exit-status 0)
+          (message "Exported to %s." output-file)
+          (message "Error occured when exporting to %s, %d" output-file exit-status)))
       (let ((process
              (apply 'start-process
                     `("pandoc" ,(generate-new-buffer "*Pandoc*")