438 |
;; proc foo { \n {arg1 def} \n arg2 } { |
;; proc foo { \n {arg1 def} \n arg2 } { |
439 |
;; The current setting handles the first case properly but not the second. |
;; 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). |
;; 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]+") |
(defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"#]+[ \t]+") |
442 |
|
|
443 |
|
|
444 |
|
|