mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
natural paragraph boundaries.  Don't fail at beginning of buffer.
This commit is contained in:
Richard M. Stallman 2002-02-20 22:33:35 +00:00
parent 94ddbe6d9e
commit 0472b23ea7
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/tcl.el
View file

@ -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)))