Richard Walker <walkerricha...@gmail.com> writes: > A follow-up to the changes made to org-datetree-insert-line > in September 2020. > > The definition now begins: > > (defun org-datetree-insert-line (year &optional month day text) > (delete-region (save-excursion (skip-chars-backward " \t\n") (point)) > (point)) > (when (assq 'heading org-blank-before-new-entry) > (insert "\n")) > ... > > ... > (setf org-blank-before-new-entry '((heading . nil) (plain-list-item . nil))) > > Such a setting seems to be consistent with the help text of > org-blank-before-new-entry, and what org--blank-before-heading-p > expects to find. But, having made this setting, > (when (assq 'heading org-blank-before-new-entry) > (insert "\n")) > still does the insertion, since (assq 'heading org-blank-before-new-entry) > is non-nil. > > Change (assq 'heading org-blank-before-new-entry) > to (org--blank-before-heading-p) here?
You are indeed right. Fixed on main now. https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=6bbd08f5aa81bd0b6b2b2f448a858516f388702a -- Ihor Radchenko // yantar92, Org mode contributor, Learn more about Org mode at <https://orgmode.org/>. Support Org development at <https://liberapay.com/org-mode>, or support my work at <https://liberapay.com/yantar92>