diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-09-19 23:36:45 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-09-19 23:36:45 -0700 |
| commit | 9d4433a211f2e441e42e77b9ecb10c87c67950cc (patch) | |
| tree | 1fa873f9dff698d8a637f02c1d80e1c939445d4e | |
| parent | f5954cd7f95815ed9c71c16088e7ec930f6485d0 (diff) | |
| download | emacs-9d4433a211f2e441e42e77b9ecb10c87c67950cc.tar.gz | |
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." (defun f90-find-breakpoint () "From `fill-column', search backward for break-delimiter." + ;; Commented text more likely than commented code. (if (f90-in-comment) (re-search-backward "\\s-" (line-beginning-position)) - (re-search-backward f90-break-delimiters (line-beginning-position))) - (if (not f90-break-before-delimiters) - (forward-char (if (looking-at f90-no-break-re) 2 1)) - (backward-char) - (or (looking-at f90-no-break-re) - (forward-char)))) + (re-search-backward f90-break-delimiters (line-beginning-position)) + (if (not f90-break-before-delimiters) + (forward-char (if (looking-at f90-no-break-re) 2 1)) + (backward-char) + (or (looking-at f90-no-break-re) + (forward-char))))) (defun f90-do-auto-fill () "Break line if non-white characters beyond `fill-column'. |