diff mbox series

[bug#48790] etc: indent-code.el: Remove any existing tabs.

Message ID 20210602122640.22368-1-me@tobias.gr
State Accepted
Headers show
Series [bug#48790] etc: indent-code.el: Remove any existing tabs. | expand

Commit Message

Tobias Geerinckx-Rice June 2, 2021, 12:26 p.m. UTC 
* etc/indent-code.el (main): Call UNTABIFY on the sexp or entire buffer.
---
 etc/indent-code.el | 3 +++
 1 file changed, 3 insertions(+)

Comments

Ludovic Courtès June 5, 2021, 9:18 p.m. UTC | #1 
Hi,

Tobias Geerinckx-Rice <me@tobias.gr> skribis:

> * etc/indent-code.el (main): Call UNTABIFY on the sexp or entire buffer.

Good idea, go for it!

Ludo’.
Tobias Geerinckx-Rice June 12, 2021, 8:27 a.m. UTC | #2 
Ludovic Courtès 写道：
> Good idea, go for it!

Thanks Ludo'!  Pushed as 0b17dc4aaea85bf0e35184909914f81761fedf56.

Kind regards,

T G-R
diff mbox series

Patch

diff --git a/etc/indent-code.el b/etc/indent-code.el
index 84b15b356f..bdea8ee8bf 100755
--- a/etc/indent-code.el
+++ b/etc/indent-code.el
@@ -99,6 +99,8 @@ 
                             nil t)
          (let ((indent-tabs-mode nil))
            (beginning-of-defun)
+           (mark-sexp)
+           (untabify (point) (mark))
            (indent-sexp)
            (save-buffer)
            (message "Done!"))
@@ -108,6 +110,7 @@ 
      ;; Indent all of FILE-NAME.
      (find-file file-name)
      (let ((indent-tabs-mode nil))
+       (untabify (point-min) (point-max))
        (indent-region (point-min) (point-max))
        (save-buffer)
        (message "Done!")))