[Emacs-diffs] /srv/bzr/emacs/trunk r104281: * lisp/progmodes/f90.el (f90-type-def-re): Handle "type, bind(c)". (Bug#8691)

[Glenn Morris]

------------------------------------------------------------
revno: 104281
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-05-18 23:18:58 -0700
message:
  * lisp/progmodes/f90.el (f90-type-def-re): Handle "type, bind(c)".  (Bug#8691)
modified:
  lisp/ChangeLog
  lisp/progmodes/f90.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-19 06:04:16 +0000
+++ b/lisp/ChangeLog    2011-05-19 06:18:58 +0000
@@ -1,5 +1,8 @@
 2011-05-19  Glenn Morris  <address@hidden>
 
+       * progmodes/f90.el (f90-type-def-re):
+       Handle "type, bind(c)".  (Bug#8691)
+
        * emacs-lisp/autoload.el (batch-update-autoloads):
        Set autoload-excludes by parsing loadup.el rather than Makefiles.
 

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-04-16 23:30:15 +0000
+++ b/lisp/progmodes/f90.el     2011-05-19 06:18:58 +0000
@@ -809,8 +809,10 @@
   ;; type word
   ;; type :: word
   ;; type, stuff :: word
+  ;; type, bind(c) :: word
   ;; NOT "type ("
-  "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
+  "\\<\\(type\\)\\>\\(?:\\(?:[^()\n]*\\|\
+.*,[ \t]*bind[ \t]*([ \t]*c[ \t]*)[ \t]*\\)::\\)?[ \t]*\\(\\sw+\\)"
   "Regexp matching the definition of a derived type.")
 
 (defconst f90-typeis-re