mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Eric Schulte 2011-09-20 09:01:11 -06:00
parent a7d89a80fb
commit ded9f87ebc
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
testing/org-test.el
View File

@ -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))
`(with-temp-buffer
(org-mode)
,(let ((point (string-match (regexp-quote "<point>") text)))
(if point
`(progn
(insert `(replace-match "" nil nil text))
(goto-char ,(match-beginning 0)))
`(progn
(insert ,text)
(goto-char (point-min)))))
,@body))
(let ((inside-text (if (stringp text) text (eval text))))
`(with-temp-buffer
(org-mode)
,(let ((point (string-match (regexp-quote "<point>") inside-text)))
(if point
`(progn (insert `(replace-match "" nil nil inside-text))
(goto-char ,(match-beginning 0)))
`(progn (insert ,inside-text)
(goto-char (point-min)))))
,@body)))
;;; Navigation Functions