awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-09 12:57:22 -05:00
Code Issues Packages Projects Releases Wiki Activity

Use builtin blank line deletion command

Browse Source
This commit is contained in:
Chris Barrett
2022-10-05 22:22:19 +13:00
parent be2e163bca
commit c60e41ea19
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-format.el
View File

@ -54,12 +54,6 @@ Only applies to level-1 headings in the document."
(defun org-format--delete-empty-lines ()
(goto-char (line-beginning-position))
(while (thing-at-point-looking-at (rx bol (* space) eol))
(delete-region (line-beginning-position) (1+ (line-end-position)))))
(defun org-format--ensure-empty-lines (n)
(save-excursion
(goto-char (line-beginning-position))
@ -106,15 +100,19 @@ Only applies to level-1 headings in the document."
(unless (and (fboundp 'org-transclusion-within-transclusion-p)
(org-transclusion-within-transclusion-p))
(forward-line 1)
(org-format--delete-empty-lines)
(delete-blank-lines)
(org-format--ensure-empty-lines org-format-blank-lines-before-meta)
(org-end-of-meta-data t)
(org-format--ensure-empty-lines org-format-blank-lines-before-content)))
t
scope)
;; Format transcluded headings as if they were really there.
(org-with-wide-buffer
;; Clean up trailing whitespace.
(goto-char (point-max))
(delete-blank-lines)
;; Format transcluded headings as if they were really there.
(goto-char (point-min))
(while (search-forward-regexp (rx bol "#+transclude:") nil t)
(save-excursion