|
@@ -146,6 +146,7 @@ currently executed.")
|
|
|
(save-restriction ,@body)))
|
|
|
(unless visited-p
|
|
|
(kill-buffer to-be-removed))))
|
|
|
+(def-edebug-spec org-test-at-id (form body))
|
|
|
|
|
|
(defmacro org-test-in-example-file (file &rest body)
|
|
|
"Execute body in the Org-mode example file."
|
|
@@ -169,6 +170,7 @@ currently executed.")
|
|
|
(save-restriction ,@body)))
|
|
|
(unless visited-p
|
|
|
(kill-buffer to-be-removed))))
|
|
|
+(def-edebug-spec org-test-in-example-file (form body))
|
|
|
|
|
|
(defmacro org-test-at-marker (file marker &rest body)
|
|
|
"Run body after placing the point at MARKER in FILE.
|