GNU bug report logs - #33989
27.0.50; master: Tcl indentation broken

Previous Next

Full log

Message #14 received at 33989 <at> debbugs.gnu.org (full text, mbox):

From: Benjamin Riefenstahl <b.riefenstahl <at> turtle-trading.net>
To: Eli Zaretskii <eliz <at> gnu.org>
Cc: 33989 <at> debbugs.gnu.org, Tom Tromey <tom <at> tromey.com>
Subject: Re: bug#33989: 27.0.50; master: Tcl indentation broken
Date: Tue, 15 Jan 2019 22:42:24 +0100

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

Attaching a patch with a simple test-case.

[0001-tcl-mode-Add-a-test-for-top-level-indentation.patch (text/x-diff, inline)]

From 65e830aa45fc61536c3aec4af70cb0a58538519a Mon Sep 17 00:00:00 2001
From: Benjamin Riefenstahl <b.riefenstahl <at> turtle-trading.net>
Date: Sat, 12 Jan 2019 15:42:35 +0100
Subject: [PATCH] tcl-mode: Add a test for top level indentation

* test/lisp/progmodes/tcl-tests.el (tcl-mode-global-indent): Add.
---
 test/lisp/progmodes/tcl-tests.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/test/lisp/progmodes/tcl-tests.el b/test/lisp/progmodes/tcl-tests.el
index 50c3eba75d..b145244a63 100644
--- a/test/lisp/progmodes/tcl-tests.el
+++ b/test/lisp/progmodes/tcl-tests.el
@@ -72,6 +72,15 @@
       (indent-region (point-min) (point-max))
       (should (equal (buffer-string) text)))))
 
+;; Reproduce bug#33989
+(ert-deftest tcl-mode-global-indent ()
+  (with-temp-buffer
+    (tcl-mode)
+    (let ((text "fooBar {\n    inside\n}\n"))
+      (insert text)
+      (indent-region (point-min) (point-max))
+      (should (equal (buffer-string) text)))))
+
 (provide 'tcl-tests)
 
 ;;; tcl-tests.el ends here
-- 
2.11.0

Previous Next

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