diff options
| author | Stefan Monnier | 2004-11-27 00:07:14 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-11-27 00:07:14 +0000 |
| commit | 9921b91aeaa67886b0bd0ce0905535a7ce050c7f (patch) | |
| tree | 23c09bd1b6d3cc979bcc4a756d61245de898117b | |
| parent | 60273d661df95cc216467f14713ce53338d26f02 (diff) | |
| download | emacs-9921b91aeaa67886b0bd0ce0905535a7ce050c7f.tar.gz emacs-9921b91aeaa67886b0bd0ce0905535a7ce050c7f.zip | |
(tcl-omit-ws-regexp): Avoid the case where { or [ appears within a comment.
| -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.") | |||
| 438 | ;; proc foo { \n {arg1 def} \n arg2 } { | 438 | ;; proc foo { \n {arg1 def} \n arg2 } { |
| 439 | ;; The current setting handles the first case properly but not the second. | 439 | ;; The current setting handles the first case properly but not the second. |
| 440 | ;; It also fails if `proc' is not in column-0 (e.g. it's in a namespace). | 440 | ;; It also fails if `proc' is not in column-0 (e.g. it's in a namespace). |
| 441 | (defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"]+[ \t]+") | 441 | (defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"#]+[ \t]+") |
| 442 | 442 | ||
| 443 | 443 | ||
| 444 | 444 | ||