diff options
| author | Glenn Morris | 2004-04-30 18:54:44 +0000 |
|---|---|---|
| committer | Glenn Morris | 2004-04-30 18:54:44 +0000 |
| commit | 8aa7b879cdbc5e8705f3ed6c470a4b223d83fe8a (patch) | |
| tree | bc04be70bb13aa0d3bd0fb9adfaec057c5a32d74 | |
| parent | 718d07060aee5c5646f5eb73e04e96ca61e05737 (diff) | |
| download | emacs-8aa7b879cdbc5e8705f3ed6c470a4b223d83fe8a.tar.gz emacs-8aa7b879cdbc5e8705f3ed6c470a4b223d83fe8a.zip | |
(fortran-fill): Use local var `bol' rather than duplicate call to
`line-beginning-position'.
| -rw-r--r-- | lisp/progmodes/fortran.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index f23eabe6e9c..88d41650c07 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -1700,8 +1700,7 @@ If ALL is nil, only match comments that start in column > 0." | |||
| 1700 | (while repeat | 1700 | (while repeat |
| 1701 | (setq repeat nil) | 1701 | (setq repeat nil) |
| 1702 | ;; Adapted from f90-find-breakpoint. | 1702 | ;; Adapted from f90-find-breakpoint. |
| 1703 | (re-search-backward fortran-break-delimiters-re | 1703 | (re-search-backward fortran-break-delimiters-re bol) |
| 1704 | (line-beginning-position)) | ||
| 1705 | (if (not fortran-break-before-delimiters) | 1704 | (if (not fortran-break-before-delimiters) |
| 1706 | (if (looking-at fortran-no-break-re) | 1705 | (if (looking-at fortran-no-break-re) |
| 1707 | ;; Deal with cases such as "**" split over | 1706 | ;; Deal with cases such as "**" split over |