diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-07-13 21:11:12 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-07-13 21:16:39 -0700 |
commit | 39f71206c58de91bcf89d5a2f48af6b8feddb8ef (patch) | |
tree | aae997b396ebfe53010ac01e6e511b62ee01b8fd | |
parent | 272aefce838d8948cd69f5b5443bf11ec82ffcca (diff) | |
download | org-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.el | 4 |
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))) |