# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1014244415 0
# Node ID 55d255989f05e3104c084cccb2f0426a0b8b715f
# Parent  1f1affb402ce885294d87f3aba55f4eff6751ef2
(tcl-do-fill-paragraph): Find and fill on more
natural paragraph boundaries.  Don't fail at beginning of buffer.

diff -r 1f1affb402ce -r 55d255989f05 lisp/progmodes/tcl.el
--- a/lisp/progmodes/tcl.el	Wed Feb 20 22:33:01 2002 +0000
+++ b/lisp/progmodes/tcl.el	Wed Feb 20 22:33:35 2002 +0000
@@ -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: Tom Tromey <tromey@busco.lanl.gov>
-;; 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.65 $
 
 ;; This file is part of GNU Emacs.
 
@@ -1269,14 +1269,14 @@
 	       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)))