From 40bf281c644e3323f010b007c9bfc730e92896aa Mon Sep 17 00:00:00 2001 From: James Cherti Date: Thu, 20 Mar 2025 09:01:36 -0400 Subject: [PATCH] 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 --- lisp/outline.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/outline.el b/lisp/outline.el index 1a1c8705ee2..1209b1ce766 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)))