[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 3f39608: lisp/org.el: Fix inserting a headi
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 3f39608: lisp/org.el: Fix inserting a heading before the first entry |
Date: |
Thu, 6 May 2021 07:57:11 -0400 (EDT) |
branch: externals-release/org
commit 3f396088578ebce0e2e1792d10d229209bf046fb
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>
lisp/org.el: Fix inserting a heading before the first entry
* lisp/org.el (org-insert-heading): When inserting a headline
before the first one, insert a blank line after the inserted
heading if the previous call to `org--blank-before-heading-p'
returned `t'.
Reported-by: Gustavo Barros <gusbrs.2016@gmail.com>
Link: https://orgmode.org/list/87y2cxoybz.fsf@gmail.com/
---
lisp/org.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/lisp/org.el b/lisp/org.el
index e932fa0..6dbf33a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6959,6 +6959,11 @@ unconditionally."
(when (equal arg '(16)) (org-up-heading-safe))
(org-end-of-subtree)))
(unless (bolp) (insert "\n"))
+ (when (and blank? (save-excursion
+ (backward-char)
+ (org-before-first-heading-p)))
+ (insert "\n")
+ (backward-char))
(unless level (backward-char))
(unless (and blank? (org-previous-line-empty-p))
(org-N-empty-lines-before-current (if blank? 1 0)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals-release/org 3f39608: lisp/org.el: Fix inserting a heading before the first entry,
ELPA Syncer <=