babel: wrapped `org-babel-params-from-buffer' in `save-match-data'
* lisp/babel/ob.el (org-babel-params-from-buffer): wrapped in save-match-data
This commit is contained in:
parent
0d1aaf735f
commit
b816a85ac0
|
@ -602,6 +602,7 @@ may be specified in the properties of the current outline entry."
|
||||||
may be specified at the top of the current buffer."
|
may be specified at the top of the current buffer."
|
||||||
(or org-babel-current-buffer-properties
|
(or org-babel-current-buffer-properties
|
||||||
(setq org-babel-current-buffer-properties
|
(setq org-babel-current-buffer-properties
|
||||||
|
(save-match-data
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(save-restriction
|
(save-restriction
|
||||||
(widen)
|
(widen)
|
||||||
|
@ -609,7 +610,7 @@ may be specified at the top of the current buffer."
|
||||||
(when (re-search-forward
|
(when (re-search-forward
|
||||||
(org-make-options-regexp (list "BABEL")) nil t)
|
(org-make-options-regexp (list "BABEL")) nil t)
|
||||||
(org-babel-parse-header-arguments
|
(org-babel-parse-header-arguments
|
||||||
(org-match-string-no-properties 2))))))))
|
(org-match-string-no-properties 2)))))))))
|
||||||
|
|
||||||
(defun org-babel-parse-src-block-match ()
|
(defun org-babel-parse-src-block-match ()
|
||||||
"Parse the match data resulting from a match of the
|
"Parse the match data resulting from a match of the
|
||||||
|
|
Loading…
Reference in New Issue