(tcl-omit-ws-regexp): Avoid the case where { or [ appears within a string.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 6965dea9fc1..2e26170196e 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -438,7 +438,7 @@ is a Tcl expression, and the last argument is Tcl commands.")
 ;;    proc foo { \n {arg1 def} \n arg2 } {
 ;; The current setting handles the first case properly but not the second.
 ;; It also fails if `proc' is not in column-0 (e.g. it's in a namespace).
-(defconst tcl-omit-ws-regexp "^[^] \t\n#}].+[ \t]+")
+(defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"]+[ \t]+")