Function: org-N-empty-lines-before-current

org-N-empty-lines-before-current is a byte-compiled function defined in org.el.gz.

Signature

(org-N-empty-lines-before-current N)

Documentation

Make the number of empty lines before current exactly N.

So this will delete or add empty lines.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-N-empty-lines-before-current (n)
  "Make the number of empty lines before current exactly N.
So this will delete or add empty lines."
  (let ((column (current-column)))
    (forward-line 0)
    (unless (bobp)
      (let ((start (save-excursion
		     (skip-chars-backward " \r\t\n")
		     (line-end-position))))
	(delete-region start (line-end-position 0))))
    (insert (make-string n ?\n))
    (move-to-column column)))