/[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.64.4.1 by monnier, Wed Nov 21 02:04:45 2001 UTC revision 1.64.4.2 by eliz, Fri Apr 12 17:14:49 2002 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, 1998, 1999, 2000, 2001  Free Software Foundation, Inc.  ;; Copyright (C) 1994,1998,1999,2000,2001,2002  Free Software Foundation, Inc.
4    
5  ;; Maintainer: FSF  ;; Maintainer: Tom Tromey <tromey@redhat.com>
6  ;; Author: Tom Tromey <tromey@busco.lanl.gov>  ;; Author: Tom Tromey <tromey@redhat.com>
7  ;;    Chris Lindblad <cjl@lcs.mit.edu>  ;;    Chris Lindblad <cjl@lcs.mit.edu>
8  ;; Keywords: languages tcl modes  ;; Keywords: languages tcl modes
9  ;; Version: $Revision$  ;; Version: $Revision$
# Line 1542  This is faster that `tcl-hairy-in-commen Line 1542  This is faster that `tcl-hairy-in-commen
1542                 p-start p-end)                 p-start p-end)
1543             ;; Search backwards.             ;; Search backwards.
1544             (save-excursion             (save-excursion
1545               (while (looking-at "^[ \t]*#")               (while (and (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
1546                             (not (bobp)))
1547                 (forward-line -1))                 (forward-line -1))
              (forward-line)  
1548               (setq p-start (point)))               (setq p-start (point)))
1549    
1550             ;; Search forwards.             ;; Search forwards.
1551             (save-excursion             (save-excursion
1552               (while (looking-at "^[ \t]*#")               (while (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
1553                 (forward-line))                 (forward-line))
1554               (setq p-end (point)))               (setq p-end (point)))
1555    

Legend:
Removed from v.1.64.4.1  
changed lines
  Added in v.1.64.4.2

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