From d1f21341e13d897c6aa152b1b454b38e02c09b5c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 18 May 2011 23:18:58 -0700 Subject: [PATCH] * lisp/progmodes/f90.el (f90-type-def-re): Handle "type, bind(c)". (Bug#8691) --- lisp/ChangeLog | 3 +++ lisp/progmodes/f90.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0548bf9ea28..96d8cf3d83a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-05-19 Glenn Morris + * 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. diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 53aa95498da..e9bb43c4d6d 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -809,8 +809,10 @@ Can be overridden by the value of `font-lock-maximum-decoration'.") ;; 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 -- 2.39.2