[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.56 emacs/lisp/progmodes/f90.el:1.57
*** emacs/lisp/progmodes/f90.el:1.56    Sun May 26 15:54:22 2002
--- emacs/lisp/progmodes/f90.el Wed Jun 19 18:39:42 2002
***************
*** 632,639 ****
    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
  
  (defconst f90-type-def-re
!   "\\<\\(type\\)\\([^(\n]*\\)\\(::\\)?[ \t]*\\b\\(\\sw+\\)"
!   "Regexp matching the declaration of a variable of derived type.")
  
  (defconst f90-no-break-re
    (regexp-opt '("**" "//" "=>") 'paren)
--- 632,639 ----
    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
  
  (defconst f90-type-def-re
!   "\\<\\(type\\)[ \t]+\\(\\sw+\\)\\>"
!   "Regexp matching the definition of a derived type.")
  
  (defconst f90-no-break-re
    (regexp-opt '("**" "//" "=>") 'paren)
***************
*** 977,983 ****
  NAME is non-nil only for type."
    (cond
     ((looking-at f90-type-def-re)
!     (list (match-string 1) (match-string 4)))
     ((looking-at "\\(interface\\|block[\t]*data\\)\\>")
      (list (match-string 1) nil))))
  
--- 977,983 ----
  NAME is non-nil only for type."
    (cond
     ((looking-at f90-type-def-re)
!     (list (match-string 1) (match-string 2)))
     ((looking-at "\\(interface\\|block[\t]*data\\)\\>")
      (list (match-string 1) nil))))