441 |
|
|
442 |
|
|
443 |
|
|
444 |
;; Its pretty bogus to have to do this, but there is no easier way to |
;; Here's another stab. I think this one actually works. |
445 |
;; say "match not syntax-1 and not syntax-2". Too bad you can't put |
;; We have to be careful that the open-brace following this regexp |
446 |
;; \s in [...]. This sickness is used in Emacs 19 to match a defun |
;; is indeed the one corresponding to the function's body so |
447 |
;; starter. (It is used for this in v18 as well). |
;; that end-of-defun works correctly. Tricky cases are: |
448 |
;;(defconst tcl-omit-ws-regexp |
;; proc foo { {arg1 def} arg2 } { |
449 |
;; (concat "^\\(\\s" |
;; as well as |
450 |
;; (mapconcat 'char-to-string "w_.()\"\\$'/" "\\|\\s") |
;; proc foo { \n {arg1 def} \n arg2 } { |
451 |
;; "\\)\\S(*") |
;; The current setting handles the first case properly but not the second. |
452 |
;; "Regular expression that matches everything except space, comment |
;; It also fails if `proc' is not in column-0 (e.g. it's in a namespace). |
453 |
;;starter, and comment ender syntax codes.") |
(defconst tcl-omit-ws-regexp "^[^] \t\n#}].+[ \t]+") |
|
|
|
|
;; FIXME? Instead of using the hairy regexp above, we just use a |
|
|
;; simple one. |
|
|
;;(defconst tcl-omit-ws-regexp "^[^] \t\n#}]\\S(*" |
|
|
;; "Regular expression used in locating function definitions.") |
|
|
|
|
|
;; Here's another stab. I think this one actually works. Now the |
|
|
;; problem seems to be that there is a bug in Emacs 19.22 where |
|
|
;; end-of-defun doesn't really use the brace matching the one that |
|
|
;; trails defun-prompt-regexp. |
|
|
;; ?? Is there a bug now ?? |
|
|
(defconst tcl-omit-ws-regexp "^[^ \t\n#}][^\n}]+}*[ \t]+") |
|
454 |
|
|
455 |
|
|
456 |
|
|
531 |
If not nil, use a smarter, Tcl-specific way to find the current |
If not nil, use a smarter, Tcl-specific way to find the current |
532 |
word when looking up help on a Tcl command. |
word when looking up help on a Tcl command. |
533 |
|
|
534 |
Turning on Tcl mode calls the value of the variable `tcl-mode-hook' |
Turning on Tcl mode runs `tcl-mode-hook'. Read the documentation for |
|
with no args, if that value is non-nil. Read the documentation for |
|
535 |
`tcl-mode-hook' to see what kinds of interesting hook functions |
`tcl-mode-hook' to see what kinds of interesting hook functions |
536 |
already exist. |
already exist. |
537 |
|
|
547 |
;; (setq require-final-newline t) |
;; (setq require-final-newline t) |
548 |
|
|
549 |
(set (make-local-variable 'comment-start) "# ") |
(set (make-local-variable 'comment-start) "# ") |
550 |
(set (make-local-variable 'comment-start-skip) "#+ *") |
(set (make-local-variable 'comment-start-skip) |
551 |
|
"\\(\\(^\\|[;{[]\\)\\s-*\\)#+ *") |
552 |
(set (make-local-variable 'comment-end) "") |
(set (make-local-variable 'comment-end) "") |
553 |
|
|
554 |
(set (make-local-variable 'outline-regexp) ".") |
(set (make-local-variable 'outline-regexp) ".") |