branch: externals-release/org
commit 7f2f73c4148e029b96c2d805e5445a31d80ef273
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-babel-read: Small fix
* lisp/ob-core.el (org-babel-read): Remove redundant `format' call for
code block body. The body is already a string. Make the block name
more human readable using %s `format' arg.
Reported-by: Tom Gillespie <[email protected]>
Link:
https://orgmode.org/list/ca+g3_ppfhcx6eekguvxdcuy3njsptnrbye0ghjeptvi2a-5...@mail.gmail.com
---
lisp/ob-core.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 9d72cf870c..c2a3673752 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -3187,8 +3187,8 @@ situations in which is it not appropriate."
(if (and (memq (string-to-char cell) '(?\( ?`))
(not (org-babel-confirm-evaluate
;; See `org-babel-get-src-block-info'.
- (list "emacs-lisp" (format "%S" cell)
- '((:eval . yes)) nil (format "%S" cell)
+ (list "emacs-lisp" cell
+ '((:eval . yes)) nil (format "%s" cell)
nil nil))))
;; Not allowed.
(user-error "Evaluation of elisp code %S aborted." cell)
