diff options
| author | Glenn Morris <[email protected]> | 2007-10-27 19:12:27 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2007-10-27 19:12:27 +0000 |
| commit | e2bd4dd4d099a230e8dccb7914f90bf104e27e41 (patch) | |
| tree | e41d8ec4897747b0d62a887cec4d3b2afe822c7a /lisp/progmodes/f90.el | |
| parent | 8f3f313d137a36fdee61339d551d75c47f460128 (diff) | |
(f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch.
The trunk version does this differently.
Diffstat (limited to 'lisp/progmodes/f90.el')
| -rw-r--r-- | lisp/progmodes/f90.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 49cfa504b8..29ffbcfe6b 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) |