From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Thu, 5 Jan 2023 10:55:31 +0000 (+0100)
Subject: org-mode ob-eval org-babel-eval-error-notify fix
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=635a120237fc2e8c0dc7a609e7a0d757af6bbc2e;p=emacsconfig.git

org-mode ob-eval org-babel-eval-error-notify fix

display message only if error is not 0.
would be nice to have a toggle variable for that.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/elpa/org-9.6/ob-eval.el b/elpa/org-9.6/ob-eval.el
index f5756607..b379264e 100644
--- a/elpa/org-9.6/ob-eval.el
+++ b/elpa/org-9.6/ob-eval.el
@@ -38,14 +38,15 @@
 
 (defun org-babel-eval-error-notify (exit-code stderr)
   "Open a buffer to display STDERR and a message with the value of EXIT-CODE."
-  (let ((buf (get-buffer-create org-babel-error-buffer-name)))
+  (if (> exit-code 0)
+      (let ((buf (get-buffer-create org-babel-error-buffer-name)))
     (with-current-buffer buf
       (goto-char (point-max))
       (save-excursion
         (unless (bolp) (insert "\n"))
         (insert stderr)
         (insert (format "[ Babel evaluation exited with code %S ]" exit-code))))
-    (display-buffer buf))
+    (display-buffer buf)))
   (message "Babel evaluation exited with code %S" exit-code))
 
 (defun org-babel-eval (command query)