me
/
guix
Archived
1
0
Fork 0
Code

etc: indent-code.el: Remove any existing tabs. 

* etc/indent-code.el (main): Call UNTABIFY on the sexp or entire buffer.
master
Tobias Geerinckx-Rice 2021-06-02 14:26:28 +02:00
parent f5d9d6ec68
commit 0b17dc4aae
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
etc/indent-code.el
View File

@ -99,6 +99,8 @@
nil t) nil t)
(let ((indent-tabs-mode nil)) (let ((indent-tabs-mode nil))
(beginning-of-defun) (beginning-of-defun)
(mark-sexp)
(untabify (point) (mark))
(indent-sexp) (indent-sexp)
(save-buffer) (save-buffer)
(message "Done!")) (message "Done!"))
@ -108,6 +110,7 @@
;; Indent all of FILE-NAME. ;; Indent all of FILE-NAME.
(find-file file-name) (find-file file-name)
(let ((indent-tabs-mode nil)) (let ((indent-tabs-mode nil))
(untabify (point-min) (point-max))
(indent-region (point-min) (point-max)) (indent-region (point-min) (point-max))
(save-buffer) (save-buffer)
(message "Done!"))) (message "Done!")))