forked from mirrors/org-mode
org-test-with-temp-text allows variable inputs holding strings
* testing/org-test.el (org-test-with-temp-text): Allow variable inputs holding strings.
This commit is contained in:
parent
a7d89a80fb
commit
ded9f87ebc
|
@ -166,17 +166,16 @@ files."
|
|||
mode holding TEXT. If the string \"<point>\" appears in TEXT
|
||||
then remove it and place the point there before running BODY."
|
||||
(declare (indent 1))
|
||||
(let ((inside-text (if (stringp text) text (eval text))))
|
||||
`(with-temp-buffer
|
||||
(org-mode)
|
||||
,(let ((point (string-match (regexp-quote "<point>") text)))
|
||||
,(let ((point (string-match (regexp-quote "<point>") inside-text)))
|
||||
(if point
|
||||
`(progn
|
||||
(insert `(replace-match "" nil nil text))
|
||||
`(progn (insert `(replace-match "" nil nil inside-text))
|
||||
(goto-char ,(match-beginning 0)))
|
||||
`(progn
|
||||
(insert ,text)
|
||||
`(progn (insert ,inside-text)
|
||||
(goto-char (point-min)))))
|
||||
,@body))
|
||||
,@body)))
|
||||
|
||||
|
||||
;;; Navigation Functions
|
||||
|
|
Loading…
Reference in New Issue