[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org e36c3cc21b: org-babel-sh-evaluate: Do not issue str
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org e36c3cc21b: org-babel-sh-evaluate: Do not issue string :results value |
Date: |
Thu, 1 Sep 2022 11:57:54 -0400 (EDT) |
branch: externals/org
commit e36c3cc21b8b1471e1f7928a118de693819c3f12
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
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.
---
lisp/ob-shell.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el
index e3771715ff..44efb4ea14 100644
--- a/lisp/ob-shell.el
+++ b/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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org e36c3cc21b: org-babel-sh-evaluate: Do not issue string :results value,
ELPA Syncer <=