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

diff -r 937f83cb003d -r 72c3587cd01b lisp/progmodes/tcl.el
--- a/lisp/progmodes/tcl.el	Sat Nov 27 00:04:16 2004 +0000
+++ b/lisp/progmodes/tcl.el	Sat Nov 27 00:07:14 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#}][^\n\"]+[ \t]+")
+(defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"#]+[ \t]+")