Function: woman-leave-blank-lines

woman-leave-blank-lines is a byte-compiled function defined in woman.el.gz.

Signature

(woman-leave-blank-lines &optional LEAVE)

Documentation

Delete all blank lines around point.

Leave one blank line if optional argument LEAVE is non-nil and non-zero, or if LEAVE is nil and variable woman-leave-blank-lines(var)/woman-leave-blank-lines(fun) is non-nil and non-zero.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
;;; The main formatting functions:

(defun woman-leave-blank-lines (&optional leave)
  "Delete all blank lines around point.
Leave one blank line if optional argument LEAVE is non-nil and
non-zero, or if LEAVE is nil and variable `woman-leave-blank-lines' is
non-nil and non-zero."
  ;; ***** It may suffice to delete only lines ABOVE point! *****
  ;; NOTE: Function arguments are evaluated left to right
  ;; (*note (elisp)Function Forms::.).
  (delete-region
   (save-excursion
     (if (not (eq (skip-syntax-backward " ") 0))
	 (forward-line))			; forward-char ?
     (point))
   (progn (skip-syntax-forward " ")
	  (beginning-of-line)
	  (point)))
  (unless woman-nospace
    (if (or (null leave) (eq leave 0))
	;; output any `pending' vertical space ...
	(setq leave woman-leave-blank-lines))
    (if (and leave (> leave 0)) (insert-before-markers ?\n)))
  (setq woman-leave-blank-lines nil))