ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/ob-core.el: Add some missing docstrings 

* lisp/ob-core.el (org-babel-execute-safely-maybe):
(org-babel-execute-maybe):
(org-babel-active-location-p): Add docstrings.
This commit is contained in:
Ihor Radchenko 2023-08-04 11:33:01 +03:00
parent 47b04383e7
commit 4fb8ad9990
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ob-core.el
View File

@ -312,11 +312,15 @@ environment, to override this check."
;;;###autoload ;;;###autoload
(defun org-babel-execute-safely-maybe () (defun org-babel-execute-safely-maybe ()
"Maybe `org-babel-execute-maybe'.
This function does nothing unless `org-babel-no-eval-on-ctrl-c-ctrl-c'
is non-nil."
(unless org-babel-no-eval-on-ctrl-c-ctrl-c (unless org-babel-no-eval-on-ctrl-c-ctrl-c
(org-babel-execute-maybe))) (org-babel-execute-maybe)))
;;;###autoload ;;;###autoload
(defun org-babel-execute-maybe () (defun org-babel-execute-maybe ()
"Execute src block or babel call at point."
(interactive) (interactive)
(or (org-babel-execute-src-block-maybe) (or (org-babel-execute-src-block-maybe)
(org-babel-lob-execute-maybe))) (org-babel-lob-execute-maybe)))
@ -1169,6 +1173,7 @@ evaluation mechanisms."
(defvar org-link-bracket-re) (defvar org-link-bracket-re)
(defun org-babel-active-location-p () (defun org-babel-active-location-p ()
"Return non-nil, when at executable element."
(org-element-type-p (org-element-type-p
(save-match-data (org-element-context)) (save-match-data (org-element-context))
'(babel-call inline-babel-call inline-src-block src-block))) '(babel-call inline-babel-call inline-src-block src-block)))