From e2bd4dd4d099a230e8dccb7914f90bf104e27e41 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 27 Oct 2007 19:12:27 +0000 Subject: [PATCH] (f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch. The trunk version does this differently. --- lisp/progmodes/f90.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2