procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak previous f90.el change.

Browse source
This commit is contained in:
Glenn Morris 2011-09-19 23:36:45 -07:00
parent f5954cd7f9
commit 9d4433a211
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/progmodes/f90.el
View file

@ -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'.