/[emacs]/emacs/lisp/progmodes/tcl.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/tcl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.71 by lektu, Tue Feb 4 13:24:35 2003 UTC revision 1.72 by monnier, Tue Feb 11 21:04:50 2003 UTC
# Line 441  is a Tcl expression, and the last argume Line 441  is a Tcl expression, and the last argume
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    
# Line 543  documentation for details): Line 531  documentation for details):
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    
# Line 560  Commands: Line 547  Commands:
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) ".")

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26