/[emacs]/emacs/lisp/progmodes/f90.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/f90.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59 by gm, Sat Aug 3 16:54:49 2002 UTC revision 1.60 by gm, Sat Aug 3 19:01:50 2002 UTC
# Line 339  The options are 'downcase-word, 'upcase- Line 339  The options are 'downcase-word, 'upcase-
339    (list    (list
340     ;; Special highlighting of "module procedure".     ;; Special highlighting of "module procedure".
341     '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))     '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
342     ;; Highlight declaration of derived type.     ;; Highlight definition of derived type.
343     '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\     '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
 \\(\\sw+\\)"  
344       (1 font-lock-keyword-face) (3 font-lock-function-name-face))       (1 font-lock-keyword-face) (3 font-lock-function-name-face))
345     ;; Other functions and declarations.     ;; Other functions and declarations.
346     '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\     '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
# Line 633  do\\([ \t]*while\\)?\\|select[ \t]*case\ Line 632  do\\([ \t]*while\\)?\\|select[ \t]*case\
632    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
633    
634  (defconst f90-type-def-re  (defconst f90-type-def-re
635    "\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)"    "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
636    "Regexp matching the definition of a derived type.")    "Regexp matching the definition of a derived type.")
637    
638  (defconst f90-no-break-re  (defconst f90-no-break-re

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26