diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-03-04 16:39:43 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-03-04 16:39:43 +0100 |
commit | b549c6006511150a93bb97a539d400ab3ade4b75 (patch) | |
tree | 1804ccd2658547167a33dc0f5691287eb626312f | |
parent | f1a99ceddf37c2e30106dd35ff29e1ea4bce6f90 (diff) | |
download | org-mode-b549c6006511150a93bb97a539d400ab3ade4b75.tar.gz |
test-org-footnote: Fix a broken test (part 2)
* testing/lisp/test-org-footnote.el: Fix
`test-org-footnote/normalize-outside-org'.
-rw-r--r-- | testing/lisp/test-org-footnote.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/testing/lisp/test-org-footnote.el b/testing/lisp/test-org-footnote.el index a768c70..91f2b97 100644 --- a/testing/lisp/test-org-footnote.el +++ b/testing/lisp/test-org-footnote.el @@ -210,17 +210,20 @@ Footnotes: \[1] Definition")))) ;; 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-cite-prefix-regexp "\\([ ]*[_.[:word:]]+>+\\|[ ]*[]>|]\\)+") - (message-signature-separator "^-- $")) + ;; present, insert footnotes before it.n + (let ((org-footnote-tag-for-non-org-mode-files nil)) (with-temp-buffer (insert "Body[fn::def] -- Fake signature -- Signature") - (let ((major-mode 'message-mode)) (org-footnote-normalize)) + ;; Mimic `message-mode'. + (let ((major-mode 'message-mode) + (message-cite-prefix-regexp "\\([ ]*[_.[:word:]]+>+\\|[ ]*[]>|]\\)+") + (message-signature-separator "^-- $")) + (flet ((message-point-in-header-p nil nil)) + (org-footnote-normalize))) (should (equal (buffer-string) "Body[1] |