; Remove extra newlines at top and bottom of a nroff-generated text file.  Used
; among other places for README files.
(defun cleanup-extra-newlines ()
    (interactive)
    (delete-blank-lines)
    (if (= (following-char) ?\n)
	(delete-char 1)
    )
    (end-of-buffer)
    (delete-blank-lines)
    (save-buffer)
)