/[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.80 by monnier, Sat Nov 27 00:07:14 2004 UTC revision 1.81 by monnier, Sun Apr 3 21:20:03 2005 UTC
# Line 1  Line 1 
1  ;;; tcl.el --- Tcl code editing commands for Emacs  ;;; tcl.el --- Tcl code editing commands for Emacs
2    
3  ;; Copyright (C) 1994,98,1999,2000,01,02,2003,2004  Free Software Foundation, Inc.  ;; Copyright (C) 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
4    ;;           Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
7  ;; Author: Tom Tromey <tromey@redhat.com>  ;; Author: Tom Tromey <tromey@redhat.com>
# Line 469  Uses variables `tcl-proc-regexp' and `tc Line 470  Uses variables `tcl-proc-regexp' and `tc
470           ;; Keywords.  Only recognized if surrounded by whitespace.           ;; Keywords.  Only recognized if surrounded by whitespace.
471           ;; FIXME consider using "not word or symbol", not           ;; FIXME consider using "not word or symbol", not
472           ;; "whitespace".           ;; "whitespace".
473           (cons (concat "\\(\\s-\\|^\\)"           (cons (concat "\\_<" (regexp-opt tcl-keyword-list t) "\\_>")
                        ;; FIXME Use regexp-quote?  
                        (regexp-opt tcl-keyword-list t)  
                        "\\(\\s-\\|$\\)")  
474                 2))))                 2))))
475    
476  (if tcl-proc-regexp  (if tcl-proc-regexp
# Line 1507  The first line is assumed to look like \ Line 1505  The first line is assumed to look like \
1505    
1506  (provide 'tcl)  (provide 'tcl)
1507    
1508  ;;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d  ;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d
1509  ;;; tcl.el ends here  ;;; tcl.el ends here

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

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