From 9b5f964d716f1dcec3be4382381fedb6dda7de01 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 8 Aug 2016 13:13:11 +0200 Subject: [PATCH] ob-core: Tiny refactoring * lisp/ob-core.el (org-babel-get-src-block-info): Tiny refactoring. --- lisp/ob-core.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index a05924731..f6cac3ac3 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -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)