From 60273d661df95cc216467f14713ce53338d26f02 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 27 Nov 2004 00:04:16 +0000 Subject: [PATCH] (tcl-omit-ws-regexp): Avoid the case where { or [ appears within a string. --- lisp/progmodes/tcl.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]+") -- 2.39.5