From 951a6f250638a1dd60f6b3a941555586a0547580 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 3 Mar 2012 07:35:12 -0700 Subject: [PATCH 1/2] fix code block replacement with results * lisp/ob.el (org-babel-find-named-result): Fix code block replacement with results. --- lisp/ob.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/ob.el b/lisp/ob.el index 701e923d4..39f53ef77 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1497,7 +1497,8 @@ buffer or nil if no such result exists." (concat org-babel-result-regexp "[ \t]" (regexp-quote name) "[ \t\n\f\v\r]+") nil t) (when (and (string= "name" (downcase (match-string 1))) - (or (looking-at org-babel-src-block-regexp) + (or (beginning-of-line 1) + (looking-at org-babel-src-block-regexp) (looking-at org-babel-multi-line-header-regexp))) (throw 'is-a-code-block (org-babel-find-named-result name (point)))) (beginning-of-line 0) (point))))) From f1a99ceddf37c2e30106dd35ff29e1ea4bce6f90 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 4 Mar 2012 15:53:55 +0100 Subject: [PATCH 2/2] test-org-footnote: Fix a broken test * testing/lisp/test-org-footnote.el: Fix failing `test-org-footnote/normalize-outside-org'. --- testing/lisp/test-org-footnote.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/testing/lisp/test-org-footnote.el b/testing/lisp/test-org-footnote.el index 52e553808..a768c70c9 100644 --- a/testing/lisp/test-org-footnote.el +++ b/testing/lisp/test-org-footnote.el @@ -212,7 +212,8 @@ Footnotes: ;; 3. As an exception, in `message-mode' buffer, if a signature is ;; present, insert footnotes before it. (let ((org-footnote-tag-for-non-org-mode-files nil) - (message-signature-separator "^-- $")) + (message-cite-prefix-regexp "\\([ ]*[_.[:word:]]+>+\\|[ ]*[]>|]\\)+") + (message-signature-separator "^-- $")) (with-temp-buffer (insert "Body[fn::def] --