From: Glenn Morris <rgm@gnu.org>
Date: Sat, 27 Oct 2007 19:12:27 +0000 (+0000)
Subject: (f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch.
X-Git-Tag: emacs-pretest-23.0.90~10036
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2bd4dd4d099a230e8dccb7914f90bf104e27e41;p=emacs.git

(f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch.
The trunk version does this differently.
---

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 49cfa504b89..29ffbcfe6b1 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -540,7 +540,7 @@ and variable-name parts, respectively."
     ;; TODO ? actually check for balanced parens in that case.
     '("^[ \t0-9]*\\(?:pure\\|elemental\\)?[ \t]*\
 \\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\
-enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\)\
+enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\)\
 \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)"
       (1 font-lock-type-face t) (4 font-lock-variable-name-face t))
     ;; Derived type/class variables.
@@ -1508,7 +1508,7 @@ Return (TYPE NAME), or nil if not found."
 Return (TYPE NAME), or nil if not found."
   (interactive)
   (let ((case-fold-search t)
-        (count 1)
+        (count 1) 
         matching-end)
     (end-of-line)
     (while (and (> count 0)