Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.

Browse source
This commit is contained in:
Glenn Morris 2002-06-23 15:45:48 +00:00
parent 11554bdd63
commit d595e95d3e
2 changed files with 16 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-06-23 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/f90.el (f90-do-auto-fill): Respect the value of
comment-auto-fill-only-comments.
2002-06-21 Kai Gro,b_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
* net/ange-ftp.el (backup-buffer): Delete `ange-ftp' property.

18
lisp/progmodes/f90.el
View file

@ -1624,13 +1624,17 @@ Update keyword case first."
;; position is beyond fill-column.
;; Will not break **, //, or => (as specified by f90-no-break-re).
(f90-update-line)
(while (> (current-column) fill-column)
(let ((pos-mark (point-marker)))
(move-to-column fill-column)
(or (f90-in-string) (f90-find-breakpoint))
(f90-break-line)
(goto-char pos-mark)
(set-marker pos-mark nil))))
;; Need this for `f90-electric-insert' and other f90- callers.
(unless (and (boundp 'comment-auto-fill-only-comments)
comment-auto-fill-only-comments
(not (f90-in-comment)))
(while (> (current-column) fill-column)
(let ((pos-mark (point-marker)))
(move-to-column fill-column)
(or (f90-in-string) (f90-find-breakpoint))
(f90-break-line)
(goto-char pos-mark)
(set-marker pos-mark nil)))))
(defun f90-join-lines ()