From f5573e6a00ba649f8da390e280374d172dc7dd77 Mon Sep 17 00:00:00 2001
From: Bastien Guerry <bastien.guerry@data.gouv.fr>
Date: Wed, 9 Sep 2020 11:34:04 +0200
Subject: [PATCH] org-capture.el: Fix heading's level when inserting a template
 "here"

* lisp/org-capture.el (org-capture-place-entry): Fix heading's
level when inserting a template "here" with C-0 M-x org-capture.

Reported-by: Nick Dokos <ndokos@gmail.com>
See <https://orgmode.org/list/87lfiuxqze.fsf@alphaville.usersys.redhat.com/>
---
 lisp/org-capture.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index b74978c82..d9c8472b9 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1144,7 +1144,13 @@ may have been stored before."
     (when exact-position (goto-char exact-position))
     (cond
      ;; Force insertion at point.
-     ((org-capture-get :insert-here) nil)
+     (insert-here?
+      ;; FIXME: level should probably set directly within (let ...).
+      (setq level (org-get-valid-level
+		   (if (or (org-at-heading-p)
+			   (ignore-errors (org-back-to-heading t)))
+		       (org-outline-level)
+		     1))))
      ;; Insert as a child of the current entry.
      ((org-capture-get :target-entry-p)
       (setq level (org-get-valid-level