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> |
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 |
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 |