/[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.58 by gm, Sun Jun 23 15:43:11 2002 UTC revision 1.59 by gm, Sat Aug 3 16:54:49 2002 UTC
# Line 340  The options are 'downcase-word, 'upcase- Line 340  The options are 'downcase-word, 'upcase-
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 declaration of derived type.
343  ;;;   '("\\<\\(type\\)[ \t]*\\(.*::[ \t]*\\|[ \t]+\\)\\(\\sw+\\)"     '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\
344  ;;;     (1 font-lock-keyword-face) (3 font-lock-function-name-face))  \\(\\sw+\\)"
345         (1 font-lock-keyword-face) (3 font-lock-function-name-face))
346     ;; Other functions and declarations.     ;; Other functions and declarations.
347     '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\     '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
348  subroutine\\|type\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?"  subroutine\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?"
349       (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t))       (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t))
350     "\\<\\(\\(end[ \t]*\\)?\\(interface\\|block[ \t]*data\\)\\|contains\\)\\>")     "\\<\\(\\(end[ \t]*\\)?\\(interface\\|block[ \t]*data\\)\\|contains\\)\\>")
351    "This does fairly subdued highlighting of comments and function calls.")    "This does fairly subdued highlighting of comments and function calls.")
# Line 366  do\\([ \t]*while\\)?\\|select[ \t]*case\ Line 367  do\\([ \t]*while\\)?\\|select[ \t]*case\
367        (2 font-lock-constant-face nil t) (3 font-lock-keyword-face))        (2 font-lock-constant-face nil t) (3 font-lock-keyword-face))
368      ;; Implicit declaration.      ;; Implicit declaration.
369      '("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\      '("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\
370  \\|logical\\|type[ \t]*(\\sw+)\\|none\\)\\>"  \\|logical\\|type[ \t]*(\\sw+)\\|none\\)[ \t]*"
371        (1 font-lock-keyword-face) (2 font-lock-type-face))        (1 font-lock-keyword-face) (2 font-lock-type-face))
372      '("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/"      '("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/"
373        (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))        (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
# Line 632  do\\([ \t]*while\\)?\\|select[ \t]*case\ Line 633  do\\([ \t]*while\\)?\\|select[ \t]*case\
633    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")    "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
634    
635  (defconst f90-type-def-re  (defconst f90-type-def-re
636    "\\<\\(type\\)[ \t]+\\(\\sw+\\)\\>"    "\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)"
637    "Regexp matching the definition of a derived type.")    "Regexp matching the definition of a derived type.")
638    
639  (defconst f90-no-break-re  (defconst f90-no-break-re

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

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