[elpa] externals/org 1bbd86310a 31/50: Backport commit 4c1bc8315 from Emacs

[ELPA Syncer]

branch: externals/org
commit 1bbd86310a4eee2011534aabcc8edeb2be378398
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Kyle Meyer <kyle@kyleam.com>

    Backport commit 4c1bc8315 from Emacs
    
    * lisp/ob-core.el (org-src-sha): Avoid triggering the
    `register-definition-prefixes' in doc strings (bug#56968).
    
    Fix up some prefix registration problems in doc strings
    4c1bc8315d8e677e4eeb2760d7a5ab7b7553359b
    Lars Ingebrigtsen
    Thu Aug 4 11:03:10 2022 +0200
---
 lisp/ob-core.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 3d159ed38a..3b114703cd 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -488,13 +488,13 @@ arguments, imagine you'd like to set the file name output 
of a
 latex source block to a sha1 of its contents.  We could achieve
 this with:
 
-(defun org-src-sha ()
-  (let ((elem (org-element-at-point)))
-    (concat (sha1 (org-element-property :value elem)) \".svg\")))
+  (defun org-src-sha ()
+    (let ((elem (org-element-at-point)))
+      (concat (sha1 (org-element-property :value elem)) \".svg\")))
 
-(setq org-babel-default-header-args:latex
-      `((:results . \"file link replace\")
-        (:file . (lambda () (org-src-sha)))))
+  (setq org-babel-default-header-args:latex
+        `((:results . \"file link replace\")
+          (:file . (lambda () (org-src-sha)))))
 
 Because the closure is evaluated with point at the source block,
 the call to `org-element-at-point' above will always retrieve