From b816a85ac08e224135ab1a3b0fa28c120da99829 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 22 Jun 2010 11:46:28 -0700 Subject: [PATCH] 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 --- lisp/babel/ob.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/babel/ob.el b/lisp/babel/ob.el index 5d26d5582..56eb0c83a 100644 --- a/lisp/babel/ob.el +++ b/lisp/babel/ob.el @@ -602,14 +602,15 @@ may be specified in the properties of the current outline entry." may be specified at the top of the current buffer." (or org-babel-current-buffer-properties (setq org-babel-current-buffer-properties - (save-excursion - (save-restriction - (widen) - (goto-char (point-min)) - (when (re-search-forward - (org-make-options-regexp (list "BABEL")) nil t) - (org-babel-parse-header-arguments - (org-match-string-no-properties 2)))))))) + (save-match-data + (save-excursion + (save-restriction + (widen) + (goto-char (point-min)) + (when (re-search-forward + (org-make-options-regexp (list "BABEL")) nil t) + (org-babel-parse-header-arguments + (org-match-string-no-properties 2))))))))) (defun org-babel-parse-src-block-match () "Parse the match data resulting from a match of the