From 60bf447608b982ba00b9a52917ec1b91247616bf Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 18 Sep 2009 07:16:04 +0100 Subject: [PATCH] Include the final newline when narrowing to a subtree --- lisp/ChangeLog | 4 ++++ lisp/org.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85addc2db..7b56ec7db 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-09-18 Carsten Dominik + + * org.el (org-sort-entries-or-items): Include the final newline. + 2009-09-17 Carsten Dominik * org.el (org-closest-date): Fix issue with past preference. diff --git a/lisp/org.el b/lisp/org.el index ac5b1edd3..d00bbb568 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5651,7 +5651,7 @@ frame is not changed." (outline-up-heading 1 t))) (setq beg (point) heading (org-get-heading)) - (org-end-of-subtree t) (setq end (point))) + (org-end-of-subtree t t) (setq end (point))) (if (and (buffer-live-p org-last-indirect-buffer) (not (eq org-indirect-buffer-display 'new-frame)) (not arg)) @@ -6420,7 +6420,7 @@ If yes, remember the marker and the distance to BEG." (save-match-data (narrow-to-region (progn (org-back-to-heading t) (point)) - (progn (org-end-of-subtree t) (point)))))) + (progn (org-end-of-subtree t t) (point)))))) (defun org-clone-subtree-with-time-shift (n &optional shift) "Clone the task (subtree) at point N times. -- 2.11.4.GIT