(defun indent-buffer ()
"Indent whole buffer"
(interactive)
(indent-region (point-min) (point-max))
(message "format successfully"))
(defun indent-file (file)
"prompt for a file and indent it according to its major mode"
(interactive "Which file do you want to indent: ")
(find-file file)
(indent-buffer))
(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-buffer))
(save-buffer))))
绑定indent-buffer到f7键:
(global-set-key [f7] 'indent-buffer)