org-test: Small code clean-up
* testing/org-test.el (org-test-with-temp-text): Clean-up code.
This commit is contained in:
parent
d01d22b74f
commit
7fe1da1f8c
|
@ -208,13 +208,13 @@ otherwise place the point at the beginning of the inserted text."
|
|||
`(let ((inside-text (if (stringp ,text) ,text (eval ,text))))
|
||||
(with-temp-buffer
|
||||
(org-mode)
|
||||
(let ((point (string-match (regexp-quote "<point>") inside-text)))
|
||||
(let ((point (string-match "<point>" inside-text)))
|
||||
(if point
|
||||
(progn
|
||||
(insert (replace-match "" nil nil inside-text))
|
||||
(goto-char (1+ (match-beginning 0))))
|
||||
(progn (insert inside-text)
|
||||
(goto-char (point-min)))))
|
||||
(insert inside-text)
|
||||
(goto-char (point-min))))
|
||||
,@body)))
|
||||
(def-edebug-spec org-test-with-temp-text (form body))
|
||||
|
||||
|
|
Loading…
Reference in New Issue