EmacsWiki: indent-file.el (original) (raw)

Download

(provide 'indent-file) (eval-when-compile (require 'cl))

(defun indent-whole-buffer () "indent whole buffer and untabify it" (interactive) (delete-trailing-whitespace) (indent-region (point-min) (point-max) nil) (untabify (point-min) (point-max)))

(defun indent-file-when-save () "indent file when save." (make-local-variable 'after-save-hook) (add-hook 'after-save-hook (lambda () (if (buffer-file-name) (indent-whole-buffer)) (save-buffer))))

(defun indent-file-when-visit () "indent file when visit." (make-local-variable 'find-file-hook) (add-hook 'find-file-hook (lambda () (if (buffer-file-name) (indent-whole-buffer)) (save-buffer))))