mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Lawrence Mitchell 2011-09-19 21:12:05 -07:00 • committed by Glenn Morris
parent 78054a469d
commit f84e2fe26c
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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.

6
lisp/progmodes/f90.el
View file

@ -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)