summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-03-04 16:39:43 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-03-04 16:39:43 +0100
commitb549c6006511150a93bb97a539d400ab3ade4b75 (patch)
tree1804ccd2658547167a33dc0f5691287eb626312f
parentf1a99ceddf37c2e30106dd35ff29e1ea4bce6f90 (diff)
downloadorg-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.el13
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]