summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-07-13 21:11:12 -0700
committerEric Schulte <schulte.eric@gmail.com>2010-07-13 21:16:39 -0700
commit39f71206c58de91bcf89d5a2f48af6b8feddb8ef (patch)
treeaae997b396ebfe53010ac01e6e511b62ee01b8fd
parent272aefce838d8948cd69f5b5443bf11ec82ffcca (diff)
downloadorg-mode-39f71206c58de91bcf89d5a2f48af6b8feddb8ef.tar.gz
ob-eval: no longer throws errors on non-numeric exit codes
* lisp/ob-eval.el (org-babel-eval-error-notify): no longer throws errors on non-numeric exit codes
-rw-r--r--lisp/ob-eval.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ob-eval.el b/lisp/ob-eval.el
index cfb19c7..afeed74 100644
--- a/lisp/ob-eval.el
+++ b/lisp/ob-eval.el
@@ -38,7 +38,7 @@
(goto-char (point-max))
(save-excursion (insert stderr)))
(display-buffer buf))
- (message "Babel evaluation exited with code %d" exit-code))
+ (message "Babel evaluation exited with code %S" exit-code))
(defun org-babel-eval (cmd body)
"Run CMD on BODY.
@@ -51,7 +51,7 @@ STDERR with `org-babel-eval-error-notify'."
(setq exit-code
(org-babel-shell-command-on-region
(point-min) (point-max) cmd t 'replace err-buff))
- (if (> exit-code 0)
+ (if (or (not (numberp exit-code)) (> exit-code 0))
(progn
(with-current-buffer err-buff
(org-babel-eval-error-notify exit-code (buffer-string)))