branch: externals/org
commit 40f5d0c155b77dafd4c9919edaed5046c8c1350f
Author: Morgan Smith <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Testing: Test moving a subtree with a "Local Variables" block
* testing/lisp/test-org.el (test-org/move-subtree): Add tests that
include a "Local Variables" block.
---
testing/lisp/test-org.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 3887897f06..d4ac16f01e 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -5932,6 +5932,16 @@ Also ensure undo works as expected."
(test-move-subtree 'up
"* H1\n** H1.2<point>\n"
'error)
+ ;; Local variables
+ (let ((local-variable-string "# Local Variables:
+# fill-column: 120
+# End:\n"))
+ (test-move-subtree 'down
+ (concat "* H1<point>\n* H2\n" local-variable-string)
+ (concat "* H2\n* H1\n" local-variable-string))
+ (test-move-subtree 'down
+ (concat "* H1<point>\n* H2\n" local-variable-string
"* H3\n")
+ (concat "* H2\n* H1\n* H3\n" local-variable-string)))
;; With selection
(test-move-subtree 'down
"* T\n** <point>H1\n** H2\n** H3\n"
