/[emacs]/emacs/lisp/progmodes/f90.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/f90.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by gm, Wed Jun 19 22:39:42 2002 UTC revision 1.58 by gm, Sun Jun 23 15:43:11 2002 UTC
# Line 1624  Update keyword case first." Line 1624  Update keyword case first."
1624    ;; position is beyond fill-column.    ;; position is beyond fill-column.
1625    ;; Will not break **, //, or => (as specified by f90-no-break-re).    ;; Will not break **, //, or => (as specified by f90-no-break-re).
1626    (f90-update-line)    (f90-update-line)
1627    (while (> (current-column) fill-column)    ;; Need this for `f90-electric-insert' and other f90- callers.
1628      (let ((pos-mark (point-marker)))    (unless (and (boundp 'comment-auto-fill-only-comments)
1629        (move-to-column fill-column)                 comment-auto-fill-only-comments
1630        (or (f90-in-string) (f90-find-breakpoint))                 (not (f90-in-comment)))
1631        (f90-break-line)      (while (> (current-column) fill-column)
1632        (goto-char pos-mark)        (let ((pos-mark (point-marker)))
1633        (set-marker pos-mark nil))))          (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)))))
1638    
1639    
1640  (defun f90-join-lines ()  (defun f90-join-lines ()

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26