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

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 6965dea9fc107d0e2b6d28105f9fd9a02b2df200..2e26170196ef6a06f88b2d26f7a3c17ce9adbacd 100644 (file)
--- 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]+")
 
 \f