From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 20 Feb 2002 22:33:35 +0000 (+0000)
Subject: (tcl-do-fill-paragraph): Find and fill on more
X-Git-Tag: ttn-vms-21-2-B4~16554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0472b23ea79094d7c91543ccbbda8ffd86a843c7;p=emacs.git

(tcl-do-fill-paragraph): Find and fill on more
natural paragraph boundaries.  Don't fail at beginning of buffer.
---

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index cf43669a2cf..60efed8c168 100644
--- 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: 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 @@ simpler version that is often right, and works in Emacs 18."
 	       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)))