[Emacs-diffs] Changes to emacs/lisp/progmodes/tcl.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/tcl.el
diff -c emacs/lisp/progmodes/tcl.el:1.65 emacs/lisp/progmodes/tcl.el:1.66
*** emacs/lisp/progmodes/tcl.el:1.65    Wed Oct 10 20:25:05 2001
--- emacs/lisp/progmodes/tcl.el Wed Feb 20 17:33:35 2002
***************
*** 1,12 ****
  ;;; tcl.el --- Tcl code editing commands for Emacs
  
! ;; Copyright (C) 1994, 1998, 1999, 2000, 2001  Free Software Foundation, Inc.
  
! ;; Maintainer: Tom Tromey <address@hidden>
! ;; Author: Tom Tromey <address@hidden>
  ;;    Chris Lindblad <address@hidden>
  ;; Keywords: languages tcl modes
! ;; Version: $Revision: 1.65 $
  
  ;; This file is part of GNU Emacs.
  
--- 1,12 ----
  ;;; tcl.el --- Tcl code editing commands for Emacs
  
! ;; Copyright (C) 1994, 1998, 1999, 2000, 2001, 2002  Free Software 
Foundation, Inc.
  
! ;; Maintainer: Tom Tromey <address@hidden>
! ;; Author: Tom Tromey <address@hidden>
  ;;    Chris Lindblad <address@hidden>
  ;; Keywords: languages tcl modes
! ;; Version: $Revision: 1.66 $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 1269,1282 ****
               p-start p-end)
           ;; Search backwards.
           (save-excursion
!            (while (looking-at "^[ \t]*#")
               (forward-line -1))
-            (forward-line)
             (setq p-start (point)))
  
           ;; Search forwards.
           (save-excursion
!            (while (looking-at "^[ \t]*#")
               (forward-line))
             (setq p-end (point)))
  
--- 1269,1282 ----
               p-start p-end)
           ;; Search backwards.
           (save-excursion
!            (while (and (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
!                        (not (bobp)))
               (forward-line -1))
             (setq p-start (point)))
  
           ;; Search forwards.
           (save-excursion
!            (while (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
               (forward-line))
             (setq p-end (point)))