From 13c4d7f6e1d8bd0f40aa17f926dfa04608466924 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 2 Jul 2013 09:31:51 +0200 Subject: [PATCH] Fix commit e31955. Thanks to Samuel for reporting this. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ce4becd68..8a7af5aa5 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11585,8 +11585,8 @@ prefix argument (`C-u C-u C-u C-c C-w')." (if regionp (delete-region (point) (+ (point) (- region-end region-start))) (delete-region - (point-at-bol) - (min (buffer-size) (1+ (org-end-of-subtree t)))))) + (and (org-back-to-heading t) (point)) + (min (buffer-size) (org-end-of-subtree t t) (point))))) (when (featurep 'org-inlinetask) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil)