bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#33989: 27.0.50; master: Tcl indentation broken


From: Benjamin Riefenstahl
Subject: bug#33989: 27.0.50; master: Tcl indentation broken
Date: Tue, 15 Jan 2019 22:42:24 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux)

Attaching a patch with a simple test-case.

>From 65e830aa45fc61536c3aec4af70cb0a58538519a Mon Sep 17 00:00:00 2001
From: Benjamin Riefenstahl <address@hidden>
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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]