diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-27 00:07:14 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-27 00:07:14 +0000 |
| commit | 9921b91aeaa67886b0bd0ce0905535a7ce050c7f (patch) | |
| tree | 23c09bd1b6d3cc979bcc4a756d61245de898117b /lisp/progmodes/tcl.el | |
| parent | 60273d661df95cc216467f14713ce53338d26f02 (diff) | |
| download | emacs-9921b91aeaa67886b0bd0ce0905535a7ce050c7f.tar.gz | |
(tcl-omit-ws-regexp): Avoid the case where { or [ appears within a comment.
Diffstat (limited to 'lisp/progmodes/tcl.el')
| -rw-r--r-- | lisp/progmodes/tcl.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index 2e26170196e..4dba6b61a56 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#}][^\n\"]+[ \t]+") +(defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"#]+[ \t]+") |