From f84e2fe26c96da1e9091bbdffebb55304c9b44c8 Mon Sep 17 00:00:00 2001 From: Lawrence Mitchell Date: Mon, 19 Sep 2011 21:12:05 -0700 Subject: [PATCH] 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. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/f90.el | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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) -- 2.39.2