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

fixup! fixup! org-insert-heading: Fix when folded text is kept right at the new heading

This commit is contained in:
Ihor Radchenko 2023-08-20 09:43:25 +03:00
parent 7a4784b122
commit dd2f05f592
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
testing/lisp/test-org.el
View File

@ -1938,14 +1938,12 @@ CLOCK: [2022-09-17 sam. 11:00]--[2022-09-17 sam. 11:46] => 0:46"
(buffer-string))))
(should
(equal
"
* 1
"* 1
** 1.1
** 1.2
*
* 2"
(org-test-with-temp-text "
<point>* 1
(org-test-with-temp-text "<point>* 1
** 1.1
** 1.2
* 2"
@ -2098,7 +2096,7 @@ text
(buffer-substring-no-properties (line-beginning-position) (point-max)))))
(should
(equal
"* TODO "
"* TODO \n"
(let ((org-todo-keywords '((sequence "FIRST" "TODO" "|" "DONE"))))
(org-test-with-temp-text "* TODO\n** WAITING\n"
(org-insert-todo-heading-respect-content)
@ -2106,7 +2104,7 @@ text
;; Pass prefix argument.
(should
(equal
"* FIRST "
"* FIRST \n"
(let ((org-todo-keywords '((sequence "FIRST" "TODO" "|" "DONE"))))
(org-test-with-temp-text "* TODO\n** WAITING\n"
(org-insert-todo-heading-respect-content '(4))