[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.59 emacs/lisp/progmodes/f90.el:1.60
*** emacs/lisp/progmodes/f90.el:1.59    Sat Aug  3 12:54:49 2002
--- emacs/lisp/progmodes/f90.el Sat Aug  3 15:01:50 2002
***************
*** 339,347 ****
    (list
     ;; Special highlighting of "module procedure".
     '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
!    ;; Highlight declaration of derived type.
!    '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\
! \\(\\sw+\\)"
       (1 font-lock-keyword-face) (3 font-lock-function-name-face))
     ;; Other functions and declarations.
     '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
--- 339,346 ----
    (list
     ;; Special highlighting of "module procedure".
     '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
!    ;; Highlight definition of derived type.
!    '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
       (1 font-lock-keyword-face) (3 font-lock-function-name-face))
     ;; Other functions and declarations.
     '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
***************
*** 633,639 ****
    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
  
  (defconst f90-type-def-re
!   "\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)"
    "Regexp matching the definition of a derived type.")
  
  (defconst f90-no-break-re
--- 632,638 ----
    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
  
  (defconst f90-type-def-re
!   "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
    "Regexp matching the definition of a derived type.")
  
  (defconst f90-no-break-re