Commit f84e2fe2 authored by Lawrence Mitchell's avatar Lawrence Mitchell Committed by Glenn Morris

Fixes for f90.el filling in comments (bug#9553)

* lisp/progmodes/f90.el (f90-break-line): If breaking inside comment delete
all whitespace around breakpoint.
(f90-find-breakpoint): Only break at whitespace inside a comment.
parent 78054a46
2011-09-20 Lawrence Mitchell <wence@gmx.li>
* progmodes/f90.el (f90-break-line): If breaking inside comment delete
all whitespace around breakpoint. (Bug#9553)
(f90-find-breakpoint): Only break at whitespace inside a comment.
2011-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion-file-name-table): Keep track of errors.
......
......@@ -2000,7 +2000,7 @@ is non-nil, call `f90-update-line' after inserting the continuation marker."
(cond ((f90-in-string)
(insert "&\n&"))
((f90-in-comment)
(delete-horizontal-space 'backwards) ; remove trailing whitespace
(delete-horizontal-space) ; remove trailing whitespace
(insert "\n" (f90-get-present-comment-type)))
(t (insert "&")
(or no-update (f90-update-line))
......@@ -2012,7 +2012,9 @@ is non-nil, call `f90-update-line' after inserting the continuation marker."
(defun f90-find-breakpoint ()
"From `fill-column', search backward for break-delimiter."
(re-search-backward f90-break-delimiters (line-beginning-position))
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment