Re: [O] [PATCH 1/2] Fix narrowing for 1-line subtrees

[Leo Vivier]

Sorry, the patch I've submitted wasn't right: it had part of another
test I was running, hence the `end-of-line'.

Here's the proper version:
--------------------------------[START]--------------------------------
lisp/org.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index ef6e40ca9..4514407e7 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13046,17 +13046,17 @@ WHAT entry will also be removed."
                    (unless (= (skip-chars-backward " \t" p) 0)
                      (delete-region (point) (line-end-position)))))))
             ((not what) (throw 'exit nil)) ; Nothing to do.
-            (t (insert-before-markers "\n")
-               (backward-char 1)
+            (t (backward-char 1)
                (when org-adapt-indentation
                  (indent-to-column (1+ (org-outline-level))))))
        (when what
         ;; Insert planning keyword.
-        (insert (cl-case what
-                  (closed org-closed-string)
-                  (deadline org-deadline-string)
-                  (scheduled org-scheduled-string)
-                  (otherwise (error "Invalid planning type: %s" what)))
+        (insert "\n"
+                (cl-case what
+                   (closed org-closed-string)
+                   (deadline org-deadline-string)
+                   (scheduled org-scheduled-string)
+                   (otherwise (error "Invalid planning type: %s" what)))
                 " ")
         ;; Insert associated timestamp.
         (let ((ts (org-insert-time-stamp
-- 
2.20.1
---------------------------------[END]---------------------------------

Best,
-- 
Leo Vivier
English Studies & General Linguistics
Master Student, English Department
Université Rennes 2