diff options
| author | Glenn Morris | 2007-10-27 19:12:27 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-10-27 19:12:27 +0000 |
| commit | e2bd4dd4d099a230e8dccb7914f90bf104e27e41 (patch) | |
| tree | e41d8ec4897747b0d62a887cec4d3b2afe822c7a | |
| parent | 8f3f313d137a36fdee61339d551d75c47f460128 (diff) | |
| download | emacs-e2bd4dd4d099a230e8dccb7914f90bf104e27e41.tar.gz emacs-e2bd4dd4d099a230e8dccb7914f90bf104e27e41.zip | |
(f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch.
The trunk version does this differently.
| -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 49cfa504b89..29ffbcfe6b1 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -540,7 +540,7 @@ and variable-name parts, respectively." | |||
| 540 | ;; TODO ? actually check for balanced parens in that case. | 540 | ;; TODO ? actually check for balanced parens in that case. |
| 541 | '("^[ \t0-9]*\\(?:pure\\|elemental\\)?[ \t]*\ | 541 | '("^[ \t0-9]*\\(?:pure\\|elemental\\)?[ \t]*\ |
| 542 | \\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\ | 542 | \\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\ |
| 543 | enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\)\ | 543 | enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\)\ |
| 544 | \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)" | 544 | \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)" |
| 545 | (1 font-lock-type-face t) (4 font-lock-variable-name-face t)) | 545 | (1 font-lock-type-face t) (4 font-lock-variable-name-face t)) |
| 546 | ;; Derived type/class variables. | 546 | ;; Derived type/class variables. |
| @@ -1508,7 +1508,7 @@ Return (TYPE NAME), or nil if not found." | |||
| 1508 | Return (TYPE NAME), or nil if not found." | 1508 | Return (TYPE NAME), or nil if not found." |
| 1509 | (interactive) | 1509 | (interactive) |
| 1510 | (let ((case-fold-search t) | 1510 | (let ((case-fold-search t) |
| 1511 | (count 1) | 1511 | (count 1) |
| 1512 | matching-end) | 1512 | matching-end) |
| 1513 | (end-of-line) | 1513 | (end-of-line) |
| 1514 | (while (and (> count 0) | 1514 | (while (and (> count 0) |