From: James Cherti <contact@jamescherti.com>
Date: Thu, 20 Mar 2025 13:01:36 +0000 (-0400)
Subject: outline-move-subtree-down/up: Fix for non-nil outline-blank-line
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff0439bc9e0c4448ed5584acf79da2b8421f0f51;p=emacs.git

outline-move-subtree-down/up: Fix for non-nil outline-blank-line

* lisp/outline.el (outline-move-subtree-down):
Include blank line when outline-blank-line is t
(bug#77238).

Copyright-paperwork-exempt: yes
(cherry picked from commit 40bf281c644e3323f010b007c9bfc730e92896aa)
---

diff --git a/lisp/outline.el b/lisp/outline.el
index 461a41d09e6..d899d1df667 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -915,7 +915,8 @@ the match data is set appropriately."
 	 ;; move it to, adding a newline if necessary, to ensure these points
 	 ;; are at bol on the line below the subtree.
          (end-point-func (lambda ()
-			   (outline-end-of-subtree)
+			   (let ((outline-blank-line nil))
+			     (outline-end-of-subtree))
 			   (if (eq (char-after) ?\n) (forward-char 1)
 				(if (and (eobp) (not (bolp))) (insert "\n")))
 			   (point)))