[Emacs-diffs] /srv/bzr/emacs/trunk r104719: Add some more F2008 font-locking for f90.el.

[Glenn Morris]

------------------------------------------------------------
revno: 104719
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-06-25 17:01:36 -0700
message:
  Add some more F2008 font-locking for f90.el.
  
  * lisp/progmodes/f90.el (f90-keywords-re, f90-keywords-level-3-re):
  Add some F2008 stuff.
modified:
  lisp/ChangeLog
  lisp/progmodes/f90.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-25 22:22:47 +0000
+++ b/lisp/ChangeLog    2011-06-26 00:01:36 +0000
@@ -17,8 +17,8 @@
        (f90-looking-at-program-block-start, f90-no-block-limit):
        Add support for submodules.
 
-       * progmodes/f90.el (f90-keywords-re, f90-procedures-re)
-       (f90-constants-re): Add some F2008 stuff.
+       * progmodes/f90.el (f90-keywords-re, f90-keywords-level-3-re)
+       (f90-procedures-re, f90-constants-re): Add some F2008 stuff.
 
 2011-06-25  Eli Zaretskii  <address@hidden>
 

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-06-25 21:28:24 +0000
+++ b/lisp/progmodes/f90.el     2011-06-26 00:01:36 +0000
@@ -311,8 +311,8 @@
                 "deferred" "enum" "enumerator" "extends" "extends_type_of"
                 "final" "generic" "import" "non_intrinsic" "non_overridable"
                 "nopass" "pass" "protected" "same_type_as" "value" "volatile"
-                ;; F2008
-                "contiguous" "submodule"
+                ;; F2008.
+                "contiguous" "submodule" "concurrent"
                 ) 'words)
   "Regexp used by the function `f90-change-keywords'.")
 
@@ -330,6 +330,10 @@
      ;; F2003. asynchronous separate.
      "abstract" "deferred" "import" "final" "non_intrinsic" "non_overridable"
      "nopass" "pass" "protected" "value" "volatile"
+     ;; F2008.
+     ;; "concurrent" is only in the sense of "do [,] concurrent", but given
+     ;; the [,] it's simpler to just do every instance (cf "do while").
+     "contiguous" "concurrent"
      ) 'words)
   "Keyword-regexp for font-lock level >= 3.")