[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el

[Glenn Morris]

Index: emacs/lisp/progmodes/f90.el
diff -c emacs/lisp/progmodes/f90.el:1.57 emacs/lisp/progmodes/f90.el:1.58
*** emacs/lisp/progmodes/f90.el:1.57    Wed Jun 19 18:39:42 2002
--- emacs/lisp/progmodes/f90.el Sun Jun 23 11:43:11 2002
***************
*** 1624,1636 ****
    ;; 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))))
  
  
  (defun f90-join-lines ()
--- 1624,1640 ----
    ;; position is beyond fill-column.
    ;; Will not break **, //, or => (as specified by f90-no-break-re).
    (f90-update-line)
!   ;; 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 ()