Mercurial > emacs
changeset 85699:f240b732dbe0
(f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch.
The trunk version does this differently.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 27 Oct 2007 19:12:27 +0000 |
| parents | a08b0eb5e464 |
| children | 134547b13d73 |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/f90.el Sat Oct 27 17:14:37 2007 +0000 +++ b/lisp/progmodes/f90.el Sat Oct 27 19:12:27 2007 +0000 @@ -540,7 +540,7 @@ ;; 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." (interactive) (let ((case-fold-search t) - (count 1) + (count 1) matching-end) (end-of-line) (while (and (> count 0)