remove all newlines after text in elisp

rmtrail.el

(defun php-delete-trailing-blank-lines ()
      "Deletes all blank lines at the end of the file."
      (interactive)
      (save-excursion
        (save-restriction
          (widen)
          (goto-char (point-max))
          (delete-blank-lines)
          (let ((trailnewlines (abs (skip-chars-backward "\n\t"))))
            (if (> trailnewlines 0)
                (progn
                  (delete-char trailnewlines)))))))