[elpa] externals-release/org 7f2f73c414 1/2: org-babel-read: Small fix

[ELPA Syncer]

branch: externals-release/org
commit 7f2f73c4148e029b96c2d805e5445a31d80ef273
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    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 <tgbugs@gmail.com>
    Link: 
https://orgmode.org/list/CA+G3_PPFHcx6eeKGuvxDcuy3NjSpTnrbye0gHJePtvi2a-5wrg@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)