# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1101513856 0
# Node ID 937f83cb003d48628419a74f6ab98a181b64ecff
# Parent  36249becd2836b22bab5a3a8dfa07e327770315b
(tcl-omit-ws-regexp): Avoid the case where { or [ appears within a string.

diff -r 36249becd283 -r 937f83cb003d lisp/progmodes/tcl.el
--- a/lisp/progmodes/tcl.el	Fri Nov 26 23:56:39 2004 +0000
+++ b/lisp/progmodes/tcl.el	Sat Nov 27 00:04:16 2004 +0000
@@ -438,7 +438,7 @@
 ;;    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]+")