[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.69 emacs/lisp/progmodes/f90.el:1.70
*** emacs/lisp/progmodes/f90.el:1.69    Wed Apr 16 07:08:58 2003
--- emacs/lisp/progmodes/f90.el Wed Apr 16 09:50:40 2003
***************
*** 855,861 ****
    "Return (\"do\" NAME) if a do statement starts after point.
  NAME is nil if the statement has no label."
    (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>")
!       (list (match-string 3) (match-string 2)))
  
  (defsubst f90-looking-at-select-case ()
    "Return (\"select\" NAME) if a select-case statement starts after point.
--- 855,861 ----
    "Return (\"do\" NAME) if a do statement starts after point.
  NAME is nil if the statement has no label."
    (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>")
!       (list (match-string 3) (match-string 2))))
  
  (defsubst f90-looking-at-select-case ()
    "Return (\"select\" NAME) if a select-case statement starts after point.
***************
*** 1519,1525 ****
        (forward-char (if (looking-at f90-no-break-re) 2 1))
      (backward-char)
      (or (looking-at f90-no-break-re)
!         (forward-char)))))
  
  (defun f90-do-auto-fill ()
    "Break line if non-white characters beyond `fill-column'.
--- 1519,1525 ----
        (forward-char (if (looking-at f90-no-break-re) 2 1))
      (backward-char)
      (or (looking-at f90-no-break-re)
!         (forward-char))))
  
  (defun f90-do-auto-fill ()
    "Break line if non-white characters beyond `fill-column'.