diff options
| author | Glenn Morris | 2011-09-19 23:36:45 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-09-19 23:36:45 -0700 |
| commit | 9d4433a211f2e441e42e77b9ecb10c87c67950cc (patch) | |
| tree | 1fa873f9dff698d8a637f02c1d80e1c939445d4e | |
| parent | f5954cd7f95815ed9c71c16088e7ec930f6485d0 (diff) | |
| download | emacs-9d4433a211f2e441e42e77b9ecb10c87c67950cc.tar.gz emacs-9d4433a211f2e441e42e77b9ecb10c87c67950cc.zip | |
Tweak previous f90.el change.
| -rw-r--r-- | lisp/progmodes/f90.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 7d239736dc1..eb33822ce55 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -2012,14 +2012,15 @@ is non-nil, call `f90-update-line' after inserting the continuation marker." | |||
| 2012 | 2012 | ||
| 2013 | (defun f90-find-breakpoint () | 2013 | (defun f90-find-breakpoint () |
| 2014 | "From `fill-column', search backward for break-delimiter." | 2014 | "From `fill-column', search backward for break-delimiter." |
| 2015 | ;; Commented text more likely than commented code. | ||
| 2015 | (if (f90-in-comment) | 2016 | (if (f90-in-comment) |
| 2016 | (re-search-backward "\\s-" (line-beginning-position)) | 2017 | (re-search-backward "\\s-" (line-beginning-position)) |
| 2017 | (re-search-backward f90-break-delimiters (line-beginning-position))) | 2018 | (re-search-backward f90-break-delimiters (line-beginning-position)) |
| 2018 | (if (not f90-break-before-delimiters) | 2019 | (if (not f90-break-before-delimiters) |
| 2019 | (forward-char (if (looking-at f90-no-break-re) 2 1)) | 2020 | (forward-char (if (looking-at f90-no-break-re) 2 1)) |
| 2020 | (backward-char) | 2021 | (backward-char) |
| 2021 | (or (looking-at f90-no-break-re) | 2022 | (or (looking-at f90-no-break-re) |
| 2022 | (forward-char)))) | 2023 | (forward-char))))) |
| 2023 | 2024 | ||
| 2024 | (defun f90-do-auto-fill () | 2025 | (defun f90-do-auto-fill () |
| 2025 | "Break line if non-white characters beyond `fill-column'. | 2026 | "Break line if non-white characters beyond `fill-column'. |