(defun buffer-cleanup () (interactive) (whitespace-cleanup) (untabify (point-min) (point-max)))