diff options
author | Miles Bader <[email protected]> | 2007-10-27 09:07:17 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2007-10-27 09:07:17 +0000 |
commit | fdc9061358d3654e14bfc1419632e1d6c6c5c13e (patch) | |
tree | 00f5484d576513deddd938a9a277d0db860b9a5b /lisp/progmodes/f90.el | |
parent | ebe4c71027cd6ec8583631e895e7fdd3decfc099 (diff) | |
parent | b6ff295c434269fe824ec47cbfc87c6a02dfd94d (diff) |
Merge from emacs--rel--22
Patches applied:
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: [email protected]/emacs--devo--0--patch-908
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 29ffbcfe6b..49cfa504b8 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\\)\ +enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\)\ \\(.*::\\|[ \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) |