Mercurial > emacs
comparison lisp/progmodes/f90.el @ 45972:50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 23 Jun 2002 15:43:11 +0000 |
| parents | c80140b02539 |
| children | 3fcd9700f0fc |
comparison
equal
deleted
inserted
replaced
| 45971:b9d32c09048c | 45972:50b1541ec981 |
|---|---|
| 1622 (interactive) | 1622 (interactive) |
| 1623 ;; Break line before or after last delimiter (non-word char) if | 1623 ;; Break line before or after last delimiter (non-word char) if |
| 1624 ;; position is beyond fill-column. | 1624 ;; position is beyond fill-column. |
| 1625 ;; Will not break **, //, or => (as specified by f90-no-break-re). | 1625 ;; Will not break **, //, or => (as specified by f90-no-break-re). |
| 1626 (f90-update-line) | 1626 (f90-update-line) |
| 1627 (while (> (current-column) fill-column) | 1627 ;; Need this for `f90-electric-insert' and other f90- callers. |
| 1628 (let ((pos-mark (point-marker))) | 1628 (unless (and (boundp 'comment-auto-fill-only-comments) |
| 1629 (move-to-column fill-column) | 1629 comment-auto-fill-only-comments |
| 1630 (or (f90-in-string) (f90-find-breakpoint)) | 1630 (not (f90-in-comment))) |
| 1631 (f90-break-line) | 1631 (while (> (current-column) fill-column) |
| 1632 (goto-char pos-mark) | 1632 (let ((pos-mark (point-marker))) |
| 1633 (set-marker pos-mark nil)))) | 1633 (move-to-column fill-column) |
| 1634 (or (f90-in-string) (f90-find-breakpoint)) | |
| 1635 (f90-break-line) | |
| 1636 (goto-char pos-mark) | |
| 1637 (set-marker pos-mark nil))))) | |
| 1634 | 1638 |
| 1635 | 1639 |
| 1636 (defun f90-join-lines () | 1640 (defun f90-join-lines () |
| 1637 "Join present line with next line, if this line ends with \&." | 1641 "Join present line with next line, if this line ends with \&." |
| 1638 (interactive) | 1642 (interactive) |