From 9d4433a211f2e441e42e77b9ecb10c87c67950cc Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 19 Sep 2011 23:36:45 -0700 Subject: [PATCH] Tweak previous f90.el change. --- lisp/progmodes/f90.el | 13 +++++++------ 1 file 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'. -- 2.39.2