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

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Tobias Geerinckx-Rice <me <at> tobias.gr>
Subject: bug#48790: closed (Re: bug#48790: [PATCH] etc: indent-code.el:
 Remove any existing tabs.)
Date: Sat, 12 Jun 2021 08:28:02 +0000

[Message part 1 (text/plain, inline)]

Your bug report

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

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 48790 <at> debbugs.gnu.org.

-- 
48790: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=48790
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Tobias Geerinckx-Rice <me <at> tobias.gr>
To: Ludovic Courtès <ludo <at> gnu.org>
Cc: 48790-done <at> debbugs.gnu.org
Subject: Re: bug#48790: [PATCH] etc: indent-code.el: Remove any existing tabs.
Date: Sat, 12 Jun 2021 10:27:41 +0200

[Message part 3 (text/plain, inline)]

Ludovic Courtès 写道：
> Good idea, go for it!

Thanks Ludo'!  Pushed as 0b17dc4aaea85bf0e35184909914f81761fedf56.

Kind regards,

T G-R

[signature.asc (application/pgp-signature, inline)]

[Message part 5 (message/rfc822, inline)]

From: Tobias Geerinckx-Rice <me <at> tobias.gr>
To: guix-patches <at> gnu.org
Subject: [PATCH] etc: indent-code.el: Remove any existing tabs.
Date: Wed,  2 Jun 2021 14:26:40 +0200

* etc/indent-code.el (main): Call UNTABIFY on the sexp or entire buffer.
---
 etc/indent-code.el | 3 +++
 1 file changed, 3 insertions(+)

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!")))
-- 
2.31.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.