[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/tcl.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/tcl.el |
Date: |
Sun, 03 Apr 2005 17:20:04 -0400 |
Index: emacs/lisp/progmodes/tcl.el
diff -c emacs/lisp/progmodes/tcl.el:1.80 emacs/lisp/progmodes/tcl.el:1.81
*** emacs/lisp/progmodes/tcl.el:1.80 Sat Nov 27 00:07:14 2004
--- emacs/lisp/progmodes/tcl.el Sun Apr 3 21:20:03 2005
***************
*** 1,6 ****
;;; tcl.el --- Tcl code editing commands for Emacs
! ;; Copyright (C) 1994,98,1999,2000,01,02,2003,2004 Free Software Foundation,
Inc.
;; Maintainer: FSF
;; Author: Tom Tromey <address@hidden>
--- 1,7 ----
;;; tcl.el --- Tcl code editing commands for Emacs
! ;; Copyright (C) 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
! ;; Free Software Foundation, Inc.
;; Maintainer: FSF
;; Author: Tom Tromey <address@hidden>
***************
*** 469,478 ****
;; Keywords. Only recognized if surrounded by whitespace.
;; FIXME consider using "not word or symbol", not
;; "whitespace".
! (cons (concat "\\(\\s-\\|^\\)"
! ;; FIXME Use regexp-quote?
! (regexp-opt tcl-keyword-list t)
! "\\(\\s-\\|$\\)")
2))))
(if tcl-proc-regexp
--- 470,476 ----
;; Keywords. Only recognized if surrounded by whitespace.
;; FIXME consider using "not word or symbol", not
;; "whitespace".
! (cons (concat "\\_<" (regexp-opt tcl-keyword-list t) "\\_>")
2))))
(if tcl-proc-regexp
***************
*** 1507,1511 ****
(provide 'tcl)
! ;;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d
;;; tcl.el ends here
--- 1505,1509 ----
(provide 'tcl)
! ;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d
;;; tcl.el ends here
- [Emacs-diffs] Changes to emacs/lisp/progmodes/tcl.el,
Stefan Monnier <=