[Emacs-diffs] /srv/bzr/emacs/trunk r105852: Tweak previous f90.el change.

[Glenn Morris]

------------------------------------------------------------
revno: 105852
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2011-09-19 23:36:45 -0700
message:
  Tweak previous f90.el change.
modified:
  lisp/progmodes/f90.el

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-09-20 04:12:05 +0000
+++ b/lisp/progmodes/f90.el     2011-09-20 06:36:45 +0000
@@ -2012,14 +2012,15 @@
 
 (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'.