[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 <b.riefenstahl@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