# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1083351284 0
# Node ID f5da8d364dbaa1905e0471a342f2cb9dad2d5239
# Parent  d5d0f1479a4a09bf8bb8271bda70312cc9847223
(fortran-fill): Use local var `bol' rather than duplicate call to
`line-beginning-position'.

diff -r d5d0f1479a4a -r f5da8d364dba lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Fri Apr 30 18:52:11 2004 +0000
+++ b/lisp/progmodes/fortran.el	Fri Apr 30 18:54:44 2004 +0000
@@ -1700,8 +1700,7 @@
                   (while repeat
                     (setq repeat nil)
                     ;; Adapted from f90-find-breakpoint.
-                    (re-search-backward fortran-break-delimiters-re
-                                        (line-beginning-position))
+                    (re-search-backward fortran-break-delimiters-re bol)
                     (if (not fortran-break-before-delimiters)
                         (if (looking-at fortran-no-break-re)
                             ;; Deal with cases such as "**" split over