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 461a41d09e655eff35afe9391aa981b5893f8957..d899d1df667d9ebff74c12bafa715d27e45dd346 100644 (file)
--- 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)))