From caad78ca8a15d5dce4c2f58f11c8b51966a2f42d Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Thu, 22 Jan 2015 00:47:48 -0500 Subject: [PATCH] =?UTF-8?q?babel:=20Fix=20bug=20in=20=E2=80=98org-babel-lo?= =?UTF-8?q?b-get-info=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * lisp/ob-lob.el (org-babel-lob-get-info): Use `save-match-data'. Callers rely on the match data being set to ‘org-babel-lob-one-liner-regexp’. --- lisp/ob-lob.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index 64804686b..01148c796 100644 --- a/lisp/ob-lob.el +++ b/lisp/ob-lob.el @@ -116,9 +116,10 @@ if so then run the appropriate source block from the Library." (match-string 2) (match-string 11))) (save-excursion (forward-line -1) - (and (looking-at (concat org-babel-src-name-regexp - "\\([^\n]*\\)$")) - (org-no-properties (match-string 1)))))))))) + (save-match-data + (and (looking-at (concat org-babel-src-name-regexp + "\\([^\n]*\\)$")) + (org-no-properties (match-string 1))))))))))) (defvar org-babel-default-header-args:emacs-lisp) ; Defined in ob-emacs-lisp.el (defun org-babel-lob-execute (info)