[elpa] externals/org b4e41b9879 3/5: org-insert-heading-respect-content: Fix test failures after a1af06d64

[ELPA Syncer]

branch: externals/org
commit b4e41b98792f85a1c6d4c73141de49c78b0e5bf7
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-insert-heading-respect-content: Fix test failures after a1af06d64
    
    * lisp/org.el (org-insert-todo-heading-respect-content): Ignore the
    optional argument always inserting a heading.
---
 lisp/org.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 2c79e9f76e..8189a7ccdb 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6401,10 +6401,11 @@ Set it to HEADING when provided."
   (interactive)
   (org-insert-heading '(4) invisible-ok))
 
-(defun org-insert-todo-heading-respect-content (&optional force-state)
+(defun org-insert-todo-heading-respect-content (&optional _)
   "Insert TODO heading with `org-insert-heading-respect-content' set to t."
   (interactive)
-  (org-insert-todo-heading '(4) force-state))
+  (let ((org-insert-heading-respect-content t))
+    (org-insert-todo-heading '(4) t)))
 
 (defun org-insert-todo-heading (arg &optional force-heading)
   "Insert a new heading with the same level and TODO state as current heading.