Mercurial > emacs
comparison lisp/progmodes/tcl.el @ 58562:937f83cb003d
(tcl-omit-ws-regexp): Avoid the case where { or [ appears within a string.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sat, 27 Nov 2004 00:04:16 +0000 |
parents | 03a731220a33 |
children | 72c3587cd01b |
comparison
equal
deleted
inserted
replaced
58561:36249becd283 | 58562:937f83cb003d |
---|---|
436 ;; proc foo { {arg1 def} arg2 } { | 436 ;; proc foo { {arg1 def} arg2 } { |
437 ;; as well as | 437 ;; as well as |
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#}].+[ \t]+") | 441 (defconst tcl-omit-ws-regexp "^[^]\" \t\n#}][^\n\"]+[ \t]+") |
442 | 442 |
443 | 443 |
444 | 444 |
445 ;; | 445 ;; |
446 ;; Some helper functions. | 446 ;; Some helper functions. |