From: Lawrence Mitchell Date: Tue, 20 Sep 2011 04:12:05 +0000 (-0700) Subject: Fixes for f90.el filling in comments (bug#9553) X-Git-Tag: emacs-pretest-24.0.90~76 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f84e2fe26c96da1e9091bbdffebb55304c9b44c8;p=emacs.git 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. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c2eb430f30..2f4f7051250 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-09-20 Lawrence Mitchell + + * 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 * minibuffer.el (completion-file-name-table): Keep track of errors. diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index cdb5f2a715d..7d239736dc1 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -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)