Explorar o código

org-babel-sh-evaluate: Do not issue string :results value

* lisp/ob-shell.el (org-babel-sh-evaluate): Do not assume that
:results value always yields string value.  Avoid error when results
is nil.
Ihor Radchenko %!s(int64=2) %!d(string=hai) anos
pai
achega
e36c3cc21b
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      lisp/ob-shell.el

+ 1 - 1
lisp/ob-shell.el

@@ -318,7 +318,7 @@ return the value of the last statement in BODY."
 	      (set-file-modes script-file #o755)
 	      (org-babel-eval script-file "")))
 	   (t (org-babel-eval shell-file-name (org-trim body))))))
-    (when value-is-exit-status
+    (when (and results value-is-exit-status)
       (setq results (car (reverse (split-string results "\n" t)))))
     (when results
       (let ((result-params (cdr (assq :result-params params))))