From b4e41b98792f85a1c6d4c73141de49c78b0e5bf7 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 20 Aug 2022 14:22:53 +0800 Subject: [PATCH] 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 2c79e9f76..8189a7ccd 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.