Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 49755:fb628fd7f726
(fortran-fill): Fill lines that do not have comments.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 12 Feb 2003 21:51:45 +0000 |
parents | cc3cda196420 |
children | aab211655bcd d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
49754:77c84ccd18b9 | 49755:fb628fd7f726 |
---|---|
1680 ;; | 1680 ;; |
1681 ;; Need to use fortran-find-comment-start-skip to make sure that quoted !'s | 1681 ;; Need to use fortran-find-comment-start-skip to make sure that quoted !'s |
1682 ;; don't prevent a break. | 1682 ;; don't prevent a break. |
1683 (when (and (save-excursion | 1683 (when (and (save-excursion |
1684 (beginning-of-line) | 1684 (beginning-of-line) |
1685 (when (fortran-find-comment-start-skip) | 1685 (if (not (fortran-find-comment-start-skip)) |
1686 t | |
1686 (goto-char (match-beginning 0)) | 1687 (goto-char (match-beginning 0)) |
1687 (>= (point) fill-point))) | 1688 (>= (point) fill-point))) |
1688 (save-excursion | 1689 (save-excursion |
1689 (goto-char fill-point) | 1690 (goto-char fill-point) |
1690 (not (bolp))) | 1691 (not (bolp))) |