tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

ob-core: Tiny refactoring

Browse source 
* lisp/ob-core.el (org-babel-get-src-block-info): Tiny refactoring.
This commit is contained in:
Nicolas Goaziou 2016-08-08 13:13:11 +02:00
parent 5e224bb2ef
commit 9b5f964d71
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ob-core.el
View file

@ -566,7 +566,7 @@ object instead.
Return nil if point is not on a source block. Otherwise, return
a list with the following pattern:
\(language body header-arguments-alist switches name block-head)"
(language body header-arguments-alist switches name block-head)"
(let* ((datum (or datum (org-element-context)))
(type (org-element-type datum))
(inline (eq type 'inline-src-block)))
@ -603,14 +603,11 @@ a list with the following pattern:
;; If DATUM is provided, make sure we get node
;; properties applicable to its location within
;; the document.
(org-with-wide-buffer
(when datum
(goto-char (org-element-property :begin datum)))
(org-babel-params-from-properties lang))
(org-with-point-at (org-element-property :begin datum)
(org-babel-params-from-properties lang))
(mapcar #'org-babel-parse-header-arguments
(cons
(org-element-property :parameters datum)
(org-element-property :header datum)))))
(cons (org-element-property :parameters datum)
(org-element-property :header datum)))))
(or (org-element-property :switches datum) "")
name
(org-element-property (if inline :begin :post-affiliated)