Skip to content

Commit b4e41b9

Browse files
committed
org-insert-heading-respect-content: Fix test failures after a1af06d
* lisp/org.el (org-insert-todo-heading-respect-content): Ignore the optional argument always inserting a heading.
1 parent 2cc2d8f commit b4e41b9

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

lisp/org.el

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6401,10 +6401,11 @@ Set it to HEADING when provided."
64016401
(interactive)
64026402
(org-insert-heading '(4) invisible-ok))
64036403

6404-
(defun org-insert-todo-heading-respect-content (&optional force-state)
6404+
(defun org-insert-todo-heading-respect-content (&optional _)
64056405
"Insert TODO heading with `org-insert-heading-respect-content' set to t."
64066406
(interactive)
6407-
(org-insert-todo-heading '(4) force-state))
6407+
(let ((org-insert-heading-respect-content t))
6408+
(org-insert-todo-heading '(4) t)))
64086409

64096410
(defun org-insert-todo-heading (arg &optional force-heading)
64106411
"Insert a new heading with the same level and TODO state as current heading.

0 commit comments

Comments
 (0)