[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/f90.el |
Date: |
Sun, 23 Jun 2002 11:43:11 -0400 |
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 ()