17 lines
368 B
Plaintext
Executable File
17 lines
368 B
Plaintext
Executable File
#!/usr/bin/emacs --script
|
|
|
|
(setq require-final-newline 'visit)
|
|
|
|
(defun indent-files (files)
|
|
(cond (files
|
|
(find-file (car files))
|
|
(untabify (point-min) (point-max))
|
|
(indent-region (point-min) (point-max))
|
|
(save-buffer)
|
|
(kill-buffer)
|
|
(indent-files (cdr files)))))
|
|
|
|
(indent-files command-line-args-left)
|
|
|
|
;; EOF ;;
|