(tcl-do-fill-paragraph): Find and fill on more

natural paragraph boundaries.  Don't fail at beginning of buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f273a1512829b81a3149b792d63f0d55ad897af..86b64dbd356128c81a1c930014cbc40409a71cea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-12  Tom Tromey  <tromey@cachet>
+
+       * progmodes/tcl.el (tcl-do-fill-paragraph): Find and fill on more
+       natural paragraph boundaries.  Don't fail at beginning of buffer.
+
 2002-04-12  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * progmodes/compile.el (compile-internal): Fix the change from

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 2947b7acaf60aff10dac89db603a916f4644aebc..a1aa420ae547c03552064f5a591482cd44a6b05c 100644 (file)
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -1,12 +1,12 @@
 ;;; tcl.el --- Tcl code editing commands for Emacs
 
-;; Copyright (C) 1994, 1998, 1999, 2000, 2001  Free Software Foundation, Inc.
+;; Copyright (C) 1994,1998,1999,2000,2001,2002  Free Software Foundation, Inc.
 
-;; Maintainer: FSF
-;; Author: Tom Tromey <tromey@busco.lanl.gov>
+;; Maintainer: Tom Tromey <tromey@redhat.com>
+;; Author: Tom Tromey <tromey@redhat.com>
 ;;    Chris Lindblad <cjl@lcs.mit.edu>
 ;; Keywords: languages tcl modes
-;; Version: $Revision: 1.64 $
+;; Version: $Revision: 1.64.4.1 $
 
 ;; This file is part of GNU Emacs.
 
@@ -132,7 +132,7 @@
           (require 'imenu))
        ()))
 
-(defconst tcl-version "$Revision: 1.64 $")
+(defconst tcl-version "$Revision: 1.64.4.1 $")
 (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>")
 
 ;;
@@ -1542,14 +1542,14 @@ This is faster that `tcl-hairy-in-comment', but is correct less often."
               p-start p-end)
           ;; Search backwards.
           (save-excursion
-            (while (looking-at "^[ \t]*#")
+            (while (and (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
+                        (not (bobp)))
               (forward-line -1))
-            (forward-line)
             (setq p-start (point)))
 
           ;; Search forwards.
           (save-excursion
-            (while (looking-at "^[ \t]*#")
+            (while (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
               (forward-line))
             (setq p-end (point)))